VB+Access上机实验题Word格式.docx
《VB+Access上机实验题Word格式.docx》由会员分享，可在线阅读，更多相关《VB+Access上机实验题Word格式.docx（31页珍藏版）》请在冰豆网上搜索。
图1-2测试运算符的功能
实验4编写一个华氏温度与摄氏温度转换的程序。
掌握简单程序的编写、输入数据的方法、不同数据类型的转换。
本题的关键是将文本框的内容如何代到转换公式中。
程序如下：
PrivateSubCommand1_Click（）
Dimf,cAsSingle‘使用变量
f=Text1.Text
c=5/9*（f-32）
Text2.Text=c
EndSub
PrivateSubCommand2_Click（）
Text1.Text=9/5*Val（Text2.Text）+32
‘不使用变量，直接使用文本框
【思考题】：
1、观察当一个工程生成后，VB系统会产生多少个与之相对应的文件，文件的扩展名分别是什么，代表什么类型的文件，他们之间有什么关系？
2、编程在输入框中输入姓名，在输出框显示“**（姓名），你好！
！
3、将以上三个程序做在一个工程中，然后分别运行每个窗体和模块。
4、在资源管理器窗口中是否可以同时管理多个工程，如何运行每一个工程？
在VB中，能否编写没有窗体的程序？
5、是否可以在一个关系表达式中给一个变量赋值。
6、在VB中变量能否在声明的同时赋初值。
实验二
结构化程序设计
使学生理解模块化程序设计的基本思想，掌握结构化程序设计的基本方法，能够熟练的使用基本控制语句进行编程。
6学时
1、在购买某物品时，若实际的金额x在下述范围内，所付的金额y按对应折扣支付：
xx<
1000
y=
0.9x1000≤x<
2000
0.8x2000≤x<
3000
0.7xx≥3000
2、编一模拟计算器的程序，界面如图2-1所示。
图2-1计算器
3、计算S=1-
+
-
+…-
的值。
4、计算1~100的奇数和、偶数和。
5、在窗体上输出九九乘法表。
6、从键盘接收一个数，判断他是不是素数。
7、求100以内的所有素数。
8、5个一行显示100以内的所有素数。
实验1购买物品的实付金额按折扣计算。
掌握IF语句的一般格式、功能和使用。
（1）新建工程，在窗体上添加两个按钮，属性设置如表2-1所示。
表2-1属性设置
控件名称
控件类型
属性名
属性值
说明
Form1
Form
Caption
计算器
启动窗体
Command1
CommandButton
开始
Command2
结束
（2）程序代码
Dimx!
y!
x=Val（InputBox（"
输入x的值"
））
Ifx<
1000Then
y=x
ElseIfx<
2000Then
y=0.9*x
3000Then
y=0.8*x
Else
y=0.7*x
EndIf
Printy
End
PrivateSubCommand3_Click（）
Text1.Text="
"
Text2.Text="
Text3.Text="
Text4.Text="
实验2编一模拟计算器的程序。
（1）掌握Select结构的一般格式、功能和使用。
（2）注意输入数据合法性检验，当输入错误时错误处理的能力。
（1）新建工程，如图3-1所示在窗体上添加所需控件，属性设置如表2-2所示。
表2-2属性设置
循环控制结构
Label1
Label
操作数1
Label2
操作数2
Label3
运算符
Label4
结果
Text1
TextBox
Text
“”
输入操作数1
Text2
Text
输入操作数2
Text3
输入运算符
Text4
Enabled
false
显示结果
不接受输入
OptionExplicit
DimxAsSingle
DimyAsSingle
DimierrorAsInteger
x=Val（Text1.Text）
y=Val（Text2.Text）
SelectCaseTrim（Text3.Text）
Case"
+"
Text4.Text=Str（x+y）
-"
Text4.Text=Str（x-y）
*"
Text4.Text=Str（x*y）
/"
IfyThen
Text4.Text=Str（x/y）
ierror=MsgBox（"
分母为零，出错"
vbRetryCancel）
Ifierror=vbRetryThen
Text2.SetFocus
End
CaseElse
运算符出错，重新输入！
Text3.SetFocus
EndSelect
实验3计算S=1-
掌握循环结构语句的一般格式、功能和使用。
（1）新建工程，在窗体上添加两个按钮，属性设置如表2-3所示:
表2-3属性设置
Dimi,s!
sign%
sign=1
s=0
Fori=1To100
s=s+sign*1/i
sign=sign
Nexti
Print:
Print
PrintTab（8）;
"
s的值为：
;
s
（3）运行程序
1、编程求所有的水仙花数。
水仙花数是一个三位数，每位的立方和等于该数本身，例如：
153=13+53+33。
2、从键盘接收一个数，以他为行在窗体上输出三角形。
实验三
数组和过程
了解数组和过程的概念，掌握数组和过程的定义方法和运用方法。
4学时
1、利用下列程序测试参数传送的两种方式：
传值调用和传址调用，分析程序运行结果。
Dimx%,y%
x=1
y=2
Callp（x,y）:
Printx,y
Callp（x,x）:
Callp（y,y）:
Callp（y,x）:
PrivateSubp（ByRefx%,ByValy%）
x=x+1
y=y+1
1、利用下列程序理解过程及变量作用域的概念，并分析程序的运行结果。
DimaAsInteger,bAsInteger
a=3:
b=5
PrintTab（12）;
调用p1前：
a="
a;
b="
b
Callp1
调用p1后：
调用p2前：
Callp2
调用p2后：
PrivateSubp1（）
a=a+1:
b=b+1
调用p1：
PrivateSubp2（）
DimaAsInteger,bAsInteger
调用p2：
3、从键盘上任意输入10个数，排序并输出。
4、编程求4*4矩阵主对角线元素之和。
5、写一个函数，求n!
。
从键盘上任意输入一个数，调用该过程求此数的阶乘。
6、写一函数，判断一个数是否为素数。
在主调程序中调用该函数，求出100以内的所有素数。
1、随机产生10个1~100的正整数放入数组，显示产生的数，求最大值、最小值、平均值。
2、在标准模块中定义的过程能否在工程的其他窗体中调用？
在一个窗体内定义的public类型的过程，能否在其他窗体或模块中调用？
3、子过程和函数过程的异同点是什么？
传值与传地址有什么区别？
实验四
基本控件的应用
了解基本控件的常用属性、方法和事件，能够运用各种基本控件进行windows风格的程序设计。
1、设计一个检测密码程序：
密码的文本框输入字符应以“*”显示，当用户输入的用户名和密码正确时，显示“欢迎您使用本系统！
”；
否则，显示“密码错误，请重新输入！
若连续三次输入的密码都不正确，则在屏幕上显示一个带有提示信息“对不起，您不能使用本系统！
”的消息框，然后结束本程序。
用户界面如图4-1所示。
图4-1检测密码程序
2、编写程序完成：
在文本框中显示一段文字，并使用一组复选按钮和一组单选按钮分别设置文本的字型和颜色。
设计界面如图4-2所示。
图4-2文本框示例
3、利用标签控件和计时器控件编程实现滚动字幕。
实验1设计一个检测密码程序。
掌握文本框、按钮的使用。
（1）新建工程，如图4-1所示设置用户界面。
（2）程序代码如下：
StaticaAsInteger
IfText1.Text="
1"
AndText2.Text="
Then
MsgBox"
欢迎您使用本系统！
Else
a=a+1
密码错误，请重新输入！
EndIf
Ifa=3Then
对不起，您不能使用本系统！
UnloadMe
实验2编写程序完成：
掌握文本框、单选按钮、复选按钮及框架的使用。
（1）新建工程，如图4-2所示设置用户界面。
PrivateSubChkunderline_Click（）
IfChkunderline.Value=1Then
txtDisplay.FontUnderline=True
Else
txtDisplay.FontUnderline=False
PrivateSubchkBold_Click（）
IfchkBold.Value=1Then
txtDisplay.FontBold=True
txtDisplay.FontBold=False
PrivateSubchkItalic_Click（）
IfchkItalic.Value=1Then
txtDisplay.FontItalic=True
txtDisplay.FontItalic=False
PrivateSubcmdClose_Click（）
UnloadMe
PrivateSubOption1_Click（）
txtDisplay.ForeColor=vbRed
PrivateSubOption2_Click（）
txtDisplay.ForeColor=vbBlue
PrivateSubOption3_Click（）
txtDisplay.ForeColor=vbGreen
1、在窗体上放一球形，每隔3秒随机变换颜色。
2、在窗体上动态显示系统当前时间。
3、是否所有的控件都能获得输入焦点，都有高度和宽度的属性？
4、当窗体大小被改变时，如何使窗体中的控件大小相应改变？
5、当多窗体程序运行时，是所有的窗体都被同时加载入内存吗？
6、PictureBox与Image控件的区别是什么？
实验五
文件操作
掌握文件系统控件的使用，掌握顺序文件的建立、读取操作。
1、建立一个文本浏览器。
窗体上放置驱动器列表框、目录列表框、文件列表框和两个文本框，如图5-1所示。
要求：
（1）文件列表框能过滤文本文件。
（2）当点击“打开”按钮后，在Text1中显示完整路径和文件名，在Text2中显示该文件内容。
（3）当点击“保存”按钮后，将所做修改保存到原文件中。
图5-1文件操作示例
2、编程演示通用对话框的使用，程序运行界面如图5-2所示
图5-2通用对话框示例
实验1建立一个文本浏览器。
掌握文件系统控件的使用和关联、文本文件内容的读取与显示、修改、保存操作的实现。
提示：
如图5-1建立用户界面，文本文件一般通过LineInput语句读取较安全、方便，但显示时要加入回车、换行符。
部分代码如下：
Dimfname$,st$
IfRight（File1.Path,1）="
\"
fname=File1.Path+File1.FileName
fname=File1.Path+"
+File1.FileName
Text1.Text=fname
OpenfnameForInputAs#1
DoWhileNotEOF
（1）
LineInput#1,st
Text2.Text=Text2.Text&
st&
vbCrLf
Loop
Close#1
OpenfnameForOutputAs#1
Print#1,Text2.Text
PrivateSubDir1_Change（）
File1.Path=Dir1.Path
PrivateSubDrive1_Change（）
Dir1.Path=Drive1.Drive
PrivateSubForm_Load（）
File1.Pattern="
*.txt"
实验2编程演示通用对话框的使用
1．实验要求：
掌握对话框的创建和使用。
2．实验过程：
学生自己设计窗体，参考代码如下：
PrivateSubCommand1_Click（）'
打开"
按钮
CommonDialog1.Action=1
Txtnoteedit="
OpenCommonDialog1.FileNameForInputAs#1'
打开文件进行读操作
LineInput#1,inputdata'
读一行数据
Txtnoteedit.Text=Txtnoteedit.Text+inputdata+Chr（13）+Chr（10）
PrivateSubCommand2_Click（）'
另存为"
CommonDialog1.FileName="
Default.Txt"
'
设置缺省文件名
CommonDialog1.DefaultExt="
txt"
设置缺省扩展名
CommonDialog1.Action=2'
打开另存为对话框
OpenCommonDialog1.FileNameForOutputAs1'
打开文件供写入数据
Print#1,Txtnoteedit.Text
Close#1'
关闭文件
PrivateSubCommand3_Click（）'
颜色"
CommonDialog1.Action=3
Txtnoteedit.ForeColor=CommonDialog1.Color
PrivateSubCommand4_Click（）'
字体"
CommonDialog1.Flags=cdlCFBothOrcdlCFEffects
CommonDialog1.Action=4
Txtnoteedit.FontName=CommonDialog1.FontName
Txtnoteedit.FontSize=CommonDialog1.FontSize
Txtnoteedit.FontBold=CommonDialog1.FontBold
Txtnoteedit.FontItalic=CommonDialog1.FontItalic
Txtnoteedit.FontStrikethru=CommonDialog1.FontStrikethru
Txtnoteedit.FontUnderline=CommonDialog1.FontUnderline
PrivateSubCommand5_Click（）'
打印"
CommonDialog1.Action=5
Fori=1ToCommonDialog1.Copies
Printer.PrintTxtnoteedit.Text
Printer.EndDoc
PrivateSubCommand6_Click（）'
结束"
1、利用菜单、控件数组等知识，设计计算器。
2、如何给你做的计算器加上帮助文件。
ACCESS部分
信息管理系统
了解关系型数据库管理系统的相关知识，掌握底层数据库的开发方法，能够运用VB设计出简单、大方、实用的数据库应用程序。
升级会员 