VB上机指导书.docx
《VB上机指导书.docx》由会员分享，可在线阅读，更多相关《VB上机指导书.docx（31页珍藏版）》请在冰豆网上搜索。
VB上机指导书
VB6.0程序设计上机实验指导
实验一熟悉VB集成开发环境及简单应用程序的建立
一、实验目的
1．掌握VB6.0的启动与退出
2．了解VB6.0的集成开发环境，熟练掌握各主要窗口的使用
3．VB6．0应用程序的开发过程
4．了解VB6.0联机帮助的使用
二、实验内容
建立一个VB应用程序：
计算圆面积。
三、实验步骤
1．启动VB
启动VB可采用下面两种方法：
（1）“开始”菜单→“程序”→“MicrosoftVisualStudio6.0中文版”子菜单→“MicrosoftVisualStudio6.0中文版”程序
（2）双击桌面上VB的快捷方式图标
启动VB6.0后，会显示如图1-1所示一个“新建工程”对话框。
图1-1启动VB6.0
2．新建一个工程
要建立一个新的工程，选择“新建”选项卡，从中选择“标准EXE”项（默认）然后单击“打开”按钮，进入如图1-2所示的VB6.0应用程序集成开发环境，屏幕上出现一个默认的“Forml”窗体。
图1-3VB6.0应用程序集成开发环境
3．界面设计
双击工具箱上的命令按钮（CommandButton），在窗体中出现一个带有“Command1”字样的命令图形对象，用鼠标把它拖到窗体的合适位置；用同样的方法再建立一个命令按钮“Command2”，并把它放到窗体的合适位置。
4.属性设置
为了明确应用程序的功能，一般需要修改控件的属性。
首先，从屏幕右边的属性窗口中打开Form1的属性列表，找到Caption属性栏，把其值由“Form1”改为“计算圆面积”，按回车确认，窗体标题随之改变，如图1-3所示。
然后，从属性窗口中打开命令按钮Command1的属性列表，将其名称属性设为Cmdstart，找到Caption属性栏，把其值改为“开始”，用同样的方法，把命令按钮Command2的名称属性设为Cmdend，Caption值改为“结束”，用户界面设计完成如图1-3所示。
图1-3设计界面
5．编写代码
计算圆面积的计算公式是S=πR2,其中，π表示圆周率（这里取值为3.14），R为半径，S为圆面积，根据计算公式，编写如下代码：
（1）双击“开始”按钮，打开代码窗口，如图1-4所示，然后输入如下代码：
PrivateSubCmdstart_Click（）
Dims,r
r=InputBox（"请输入圆半径：
"）
s=3.14*r*r
Print
Print"半径为";r;"面积为";s
EndSub
（2）在代码窗口的对象列表框中选择对象“Cmdend”；在过程列表框中选择事件Click（如图1-4），然后输入如下代码：
PrivateSubCmdend_Click（）
End
EndSub
图1-4代码窗口
6．运行程序
运行VB程序有3种方法：
（1）单击工具栏中“启动”按钮
（2）按F5键
（3）单击菜单栏的“运行”，并从子菜单中选择“启动”命令
关闭代码窗口，用鼠标单击工具栏中启动按钮。
此时，程序开始运行，并出现图1-5画面，单击“开始”按钮，出现如图1-6所示的对话框，输入数据如2后，单击“确定”按钮，程序继续执行，输出结果如图1-7所示。
单击“结束”按钮，结束程序的执行。
图1-7输出结果窗口
7．保存文件
选择“文件”→“保存工程”菜单命令，或单击工具栏中的“保存工程”按钮。
不管是哪一种，对于新程序，系统都会要求给定存放的路径和文件名，并分别保存窗体文件和工程文件。
因此在弹出的文件另存为对话框中提示保存窗体文件，如将窗体文件保存在E盘的VBSY文件夹下并起名为Vbsy1_1．frm，此时，系统会继续提示保存工程文件，将工程文件也保存在E盘的VBSY文件夹下并起名为Vbsyl_1．vbp。
8．退出VB
退出VB开发环境可以采用以下方法：
（1）“文件”菜单→“退出”命令
（2）按Alt+Q组合键
（3）单击主窗口右上角“关闭”窗口按钮
四、联机帮助
1．使用“MSDNLibrary在线帮助”
在运行VB6.0时，使用“MSDNLibrary在线帮助”是寻求帮助的常用方法，操作步骤：
（1）启动VB6.0，选择菜单栏上“帮助”菜单的“内容”命令，系统打开“MSDNLibraryVisualStudio6.0”对话框
（2）在“活动子集”的下拉框中选择“VisualBasic文档”，然后单击“目录”选项
（3）单击“MSDNLibraryVisualStudio6.0”目录前面的“+”号，展开“MSDNLibraryVisualStudio6.0”目录
（4）单击“VisualBasic文档”目录前面的“+”号，展开“使用VisualBasic”目录
（5）单击“程序员指南”目录前面的“+”号，展开“程序员指南”
因为MSDN内容太多，占硬盘空间，很多机房不装MSDN，所以，上机时可能看不到。
2．使用“上下文相关帮助”
使用“上下文相关帮助”，可以不必使用“帮助”菜单就能获得“工具箱”中的控件、“属性”窗口中的属性、应用程序中的关键字等内容的帮助。
操作方法是把光标移到（或选取）希望获得帮助的位置，然后按F1功能键，VB会自动弹出相关主题的帮助。
获得“工具箱”中控件帮助的操作步骤为：
（1）把光标移到“工具箱”中需要获得帮助的控件处，并单击
（2）按F1功能键
获得“属性”窗口中属性帮助的操作步骤为：
（1）把光标移到“属性”窗口中需要获得帮助的属性处，并单击
（2）按F1功能键
获得应用程序中关键字帮助的操作步骤为：
（1）把光标移到应用程序中需要获得帮助的关键字处，并单击
（2）按F1功能键
实验二VisualBasic语言基础
一、实验目的
1．掌握VisualBasic的数据类型和变量定义方法
2．正确使用VisualBasic的运算符和表达式
3．掌握VisualBasic中数据输入、输出的方法
4．掌握VisualBasic常用函数的使用方法
5．学会用赋值语句构造简单的顺序结构程序
二、实验内容
1.利用下列式子测试各种运算符的功能
（1）20\4.5
（2）55mod2（3）6^3（4）3^（-1/2）
（5）“How”&”areyou”（6）not3>2（7）3<5and6>3（8）trueandfalse
（9）7>4or3<1（10）9<10ortrue
2．利用下列函数测试常用标准函数的功能
（1）int（-354.5324）
（2）fix（354.5324）（3）val（“34.56”）（4）abs（-123）
（5）sgn（200）（6）sqr（81）（7）left（“howareyou”,3）（8）mid（“howareyou”,8,5）
3.利用下列表达式测试表达式中运算符的运算顺序和求表达式的值
（1）（5+4）\2
（2）21\4*2.0^2/1.3（3）27\3mod3.2*int（2.5）（4）“abc”+”234”
（5）“How”&”123”&”you”（6）123.25+”0.75”=124（7）“china”>=”Canada”
（8）”xyz”<=”xyz”&”123”（9）5*4>4and5=5（10）falseornot7-3<=4
要求：
先手动求出各式的值，然后在立即窗口中计算和输出各式的值。
实验步骤：
在立即窗口中计算和输出各式值的操作步骤为：
（1）启动VB6.0，进入集成开发环境，屏幕显示“新建工程”对话框
（2）单击“打开”按钮，进入设计模式，选择菜单栏上“视图”菜单中“立即窗口”命令执行。
（3）在立即窗口中使用print方法计算和输出题中各式的值（print可以用？
代替）
4.上机实现自动变量与静态变量的区别
三、实验步骤
（1）建立新工程
（2）界面设计。
在窗体上设计两个命令按钮Command1和Command2
（3）属性设置
把窗体Form1的Caption属性的值设置为“自动变量与静态变量的区别”
把命令按钮Command1的Caption属性的值设为“自动变量”
把命令按钮Command2的Caption属性的值设为“静态变量”
（4）编写代码
a、双击“自动变量”按钮，打开代码窗口，输入如下代码：
PrivateSubCommand1_Click（）
DimxAsInteger
x=x+1
Printx;"";
EndSub
b、在代码窗口的对象列表框中选择对象“Command2”；在过程列表框中选择事件Click，然后输入如下代码：
PrivateSubCommand2_Click（）
StaticyAsInteger
Ify=0ThenPrint
y=y+1
Printy;"";
EndSub
（5）运行程序
关闭代码窗口，用鼠标单击工具栏中启动按钮。
此时，程序开始运行，并出现图2-1画面，单击“自动变量”按钮，输出结果如图2-2上排所示，单击“静态变量”按钮，输出结果如图2-2下排所示。
图2-1程序运行界面图2-2程序运行结果
（6）保存文件
（7）退出VB
实验三顺序结构程序设计
一、实验目的
1、掌握VisualBasic语言中数据输入方法。
2、掌握VisualBasic语言中数据输出方法。
3、正确使用VisualBasic赋值语句。
4、学会设计简单的顺序结构程序。
二、实验内容
赋值语句练习，在窗体Form1内创建两个文本框，通过事件过程执行赋值操作。
三、实验步骤
1、首先设计界面
在窗体上添加两个文本框Text1和Text2，添加命令按钮Command1和Command2，设置各个控件的属性如表所示，并把它们调整到合适的位置、大小。
设计完成后的界面如图3-1所示。
图3-1设计界面
2、编写事件过程。
添加命令按钮Command1的事件过程如下：
PrivateSubCommand1_Click（）
Command1.Caption="上按钮"
Text1.Text="你好！
"
EndSub
添加命令按钮Command2的事件过程如下：
PrivateSubCommand2_Click（）
Command2.Caption="下按钮"
Text2.Text="好好学习，天天向上！
"
EndSub
3、
保存和运行程序。
单击工具栏的“启动”按钮，或者从“运行”菜单选取“启动”命令。
屏幕出现运行界面。
单击Command1，看到如图3-2所示的运行结果，再单击Command2，看到如图3-3的运行结果。
图3-2程序运行结果图3-3程序运行结果
实验四选择结构程序设计
一、实验目的
1、掌握逻辑表达式的正确书写形式。
2、学会单分支和双分支结构程序的使用。
3、学会多分支条件语句的使用。
4、掌握情况语句的使用，弄清楚情况语句和多分支条件语句的区别。
二、实验内容
输入一个数，判断这个数的奇偶性。
三、实验步骤
1、新建工程
2、界面设计，在窗体上添加一命令按钮Command1，修改其Caption属性值为“奇偶数判断”。
3、编写代码
PrivateSubcommand1_click（）
DimaAsInteger
A=InputBox（”输入一个数“）
Ifamod2=1Then
MsgBoxa&”是奇数”
Else
MsgBoxa&”是偶数”
Endlf
EndSub
4、运行程序
单击Commandl按钮，在弹出的对话框中输入32，单击“确定”按钮，消息框提示32是偶数，如图4-1所示。
图4-1程序运行结果
实验五循环结构程序设计
一、实验目的
1、掌握For语句的使用。
2、掌握DoWhile／Until……Loop与Do……loopWhile／Until两种循环语句的使用。
3、加深理解循环的概念，掌握循环的规则及其执行过程。
4、掌握多重循环的规则和程序设计方法。
6、学会如何控制循环条件，防止死循环或不循环。
二、实验内容
求e=1+1／1!
+1／2!
+1／3!
+1／4!
+……求e的近似值，使精度达到10-5。
三、实验步骤
1、设计界面
在窗体上添加一个标签、一个文本框和一个命令按钮。
2、设置属性
表5-1属性设置
对象
属性
属性值
Label1
Caption
e的近似值：
Text1
Text
Command1
Caption
求e的近似值
窗体中各个控件的属性设置按照表5-1进行设置，属性设置后的界面如图5-1所示。
图5-1设计界面
3、编写代码
PrivateSubCommand2_Click（）
DimSumAsDouble
DimtAsDouble
DimiAsInteger
Sum=1
t=1
Fori=1To100
t=t/i
Sum=Sum+t
Ift<0.00001Then
ExitFor
EndIf
Nexti
Text1.Text=Sum
EndSub
4、程序运行
运行程序，单击“求e的近似值”按钮，在文本框中显示结果。
运行界面如图5-2所示。
图5-2运行结果
二、实验内容
利用随机数函数模拟投币，方法是：
每次随机产生一个0或1的整数，相当于一次投币，1代表正面，0代表反面。
要求：
在窗体上有三个文本框，名称分别是Text1、Text2、Text3，分别用于显示用户输入投币总次数、出现正面的次数和出现反面的次数。
随机产生0或1的整数的表达式为：
Int（Rnd*2）。
三、实验步骤
1、设计界面
在窗体上添加三个标签、三个文本框和一个命令按钮。
2、设置属性
表5-1属性设置
对象
属性
属性值
Label1
Caption
投币总次数
Label2
Caption
正面次数
Label3
Caption
反面次数
Text1
Text
Text2
Text
Text3
Text
Command1
Caption
开始
窗体中各个控件的属性设置按照表5-1进行设置，属性设置后的界面如图5-1所示。
图5-1设计界面
3、编写代码
PrivateSubCommand1_Click（）
Randomize
n=Val（Text1.Text）
n1=0
n2=0
Fori=1Ton
r=Int（Rnd*2）
Ifr=1Then
n1=n1+1
Else
n2=n2+1
EndIf
Next
Text2.Text=n1
Text3.Text=n2
EndSub
4、运行程序
运行程序，在文本框Text1中输入总次数，然后单击“开始”按钮，按照输入的次数模拟投币，分别统计出现正面、反面的次数，并显示结果。
运行界面如图5-2所示。
图5-2程序运行结果
实验六数组
一、实验目的
1、掌握一维数组、二维数组的概念、声明及数组元素的引用
2、掌握一维数组、二维数组的输入与输出
3、学会利用数组解决一些较为复杂的问题
二、实验内容
请编写一个程序，使用随机数产生10个1~100之间的随机整数存放在一维数组a中，并把该数组元素显示在一个文本框中。
然后在数组a中的指定位置插入一个指定值，并将插入值之后的数组a的所有元素显示在另一个文本框中。
三、实验步骤
1．设计界面
在窗体上添加两个标签、四个文本框和两个命令按钮。
2．设置属性
表6-1属性设置
控件
名称（Name）
属性
属性值
标签
Label1
Caption
位置
标签
Label2
Caption
数据
文本框
Text1
Text
文本框
Text2
Text
文本框
Text3
Text
命令按钮
Command1
Caption
产生
命令按钮
Command2
Caption
插入
窗体中各个控件的属性设置按照表6-1进行设置，属性设置后的界面如图6-1所示。
图6-1设计界面
3、编写代码
Dima（）AsInteger,nAsInteger
PrivateSubCommand1_Click（）
Text1.Text=""
n=Val（InputBox（"输入要产生几个数"））
ReDima（n）
Randomize
Fori=1Ton
a（i）=Int（Rnd*100）+1
Text1.Text=Text1.Text&a（i）&","
Nexti
EndSub
PrivateSubCommand2_Click（）
Text3.Text=""
DimnumAsInteger,pAsInteger
num=Val（Text4.Text）:
p=Val（Text2.Text）
ReDimPreservea（n+1）
Fori=n+1Top+1Step-1
a（i）=a（i-1）
Nexti
a（p）=num
Fori=1Ton+1
Text3.Text=Text3.Text&a（i）&","
Nexti
EndSub
4、程序运行
运行程序后，先单击“产生”命令按钮，在第一个文本框中输出一维数组a，然后分别在位置和数据对应的文本框中输入要插入的位置和插入数据，单击“插入”命令按钮，插入后的数组a中的所有元素将在最后一个文本框中显示，程序运行结果如图6-2所示。
图6-2程序运行结果
实验七过程和函数
一、实验目的
1、掌握子过程的定义和调用方法
2、掌握子过程和函数过程的异同
3、掌握变量、函数和过程的作用域
4、了解递归概念和使用方法
二、实验内容
编写计算阶乘的函数过程与子过程，利用下列近似公式计算ex=1+x／1!
+x2／2!
+x3／3!
+x4／4!
+…xn／n!
，直到最后一项小于10-7为止。
三、实验步骤
1、设计界面
在窗体上添加两个标签、两个文本框和两个命令按钮。
2．设置属性
表7-1属性设置
控件
名称（Name）
属性
属性值
标签
Label1
Caption
子过程求e
标签
Label2
Caption
函数求e
标签
Label3
Caption
x的值
文本框
Text1
Text
文本框
Text2
Text
文本框
Text3
Text
命令按钮
Command1
Caption
子过程
命令按钮
Command2
Caption
函数
窗体中各个控件的属性设置按照表7-1进行设置，属性设置后的界面如图7-1所示。
图7-1设计界面
3、编写代码
PrivateFunctionfact（x!
）
Dimp!
p=1
Forn=1Tox
p=p*n
Next
fact=p
EndFunction
PrivateSubCommand1_Click（）
Dimn!
x!
k!
m
x=InputBox（"x="）
s=1:
n=1:
t=1:
k=1
Do
k=k*x:
fact1n,m:
t=k/m
s=s+t:
n=n+1
LoopWhilet>=10^-7
Text1.Text=s
EndSub
PrivateSubCommand2_Click（）
Dimn!
x!
k!
x=InputBox（"x="）
s=1:
n=1:
t=1:
k=1
Do
k=k*x:
t=k/fact（n）
s=s+t:
n=n+1
LoopWhilet>=10^-7
Text2.Text=s
EndSub
4、程序运行
运行程序后，在x的值对应的文本框中输入x，单击“子过程”命令按钮，结果显示在第一个文本框中，单击“函数”命令按钮，结果在第二个文本框中显示，程序运行结果如图7-2所示。
图7-2程序运行结果
实验八窗体
一、实验目的
1、掌握VB6.0窗体的常用属性、常用事件和重要方法
2、掌握在VisualBasic6．0窗体上生成控件的方法
3、掌握设置启动窗体的方法
4、学会添加多个窗体
二、实验内容
创建一个工程，由3个窗体组成。
Form1用于输入用户名和口令，当输入正确时单击“确定”按钮显示Form2，当输入出错时则显示Form3，单击“退出”按钮结束程序；Form2中用文本框显示系统信息，单击“返回”按钮回到Form1；Form3为退出窗体，单击窗体则结束程序。
三、实验步骤
1、创建3个窗体。
创建一个工程后，会出现默认窗体Form1，选择“工程”菜单的“添加窗体”命令，添加两个窗体，窗体的名称按添加顺序分别为Form2和Form3。
2、设置启动窗体
本程序的启动窗体是Form1，设置启动窗体的步骤：
（1）选择“工程”菜单的“工程1属性”命令
（2）在弹出的对话框中选择“通用”选项卡
（3）单击“启动对象”列表框的下拉箭头，从中选择“Form1”，如图8-1所示
（4）单击“确定”按钮
图8-1工程属性
3、界面设计
（1）窗体Form1有3个标签，两个文本框，两个命令按钮
（2）窗体Form2有1个标签，一个文本框和一个命令按钮
（3）窗体Form3有1个标签
4、设置属性
表8-1属性设置
窗体名
控件
名称（Name）
属性
属性值
Form1
标签
Label1
Caption
欢迎使用本系统
Font
宋体，小三，粗体
标签
Label2
Caption
请输入用户名
标签
Label3
Caption
请输入口令
PasswordChar
*
文本框
Text1
Text
文本框
Text2
Text
命令按钮
Command1
Caption
确定
命令按钮
Command2
Caption
退出
Form2
标签
Label1
Caption
系统信息：
文
升级会员 