杭州师范学院 信息工程学院--《计算机技术基础》（VB程序设计）
值语句，进一步理解VB应用程序的编程过程。
实验内容：
1、编程，运行时在文本框Text1中输入3.1415926535626后再单击命令按钮，结果如图2-1所示。 提示：在命令按钮的单击事件过程中声明Int、Single、double类型变量各一个、并赋相同值（Val(Text1.Text)），
然后用这些变量的值改变各相应标签控件（改变其BackColor、BorderStyle属性，可将其外观设计成与文本框相似）的Caption属性。
图2- 1
2、编程，界面设计如图2- 2所示，运行时即时显示单击窗体、单击命令按钮的次数（退出按钮在单击\显示单击命令按钮的次数\前不可响应）。 提示：将统计单击次数的整型变量都声明为模块级变量，在窗体的Load事件将\退出按钮\的Enabled属性设置为False、在窗体的Click事件中将其的Enabled属性设置为True。
图2- 2
实验主要步骤：
1） 根据图2- 1所示，设计窗体界面，窗体中各控件对象的主要属性设置如下表。 控件 窗体 标签1 标签2 标签3 标签4 文本框1 文本框2 文本框3 对象名 Form1 Label1 Label2 Label3 Label4 Text1 Text2 Text3 属性名 caption caption caption caption caption text text text 属性值 保持默认 ―输入：‖ ―Int：‖ ―Single：‖ ―Double：‖ ―‖ ―‖ ―‖ ―‖ ―显示将输入数据赋值给不同类型数据后的结果‖ 文本框4 Text4 text 命令按钮1 Command1 caption 2） 过程设计 [分析]
（1）本题目涉及到对象Command1的Click事件。
（2）不同的取值是通过对变量定义不同的数据类型来实现的。 [程序代码]
- 9 -
杭州师范学院 信息工程学院--《计算机技术基础》（VB程序设计）
Private Sub Command1_Click()
Dim i As Integer, s As Single, d As Double
i = Val(Text1.Text) s = Val(Text1.Text) d = Val(Text1.Text) Text2.Text = i Text3.Text = s Text4.Text = d End Sub
3） 运行调试
运行时在文本框1中输入π的值，即3.1415926535626然后单击命令按钮Command1，不同类型的值就在文本框2（Text2）和文本框3（Text3）和文本框4（Text4）中显示。
检查
当程序运行出错，可从常见的一些错误入手，进行检查。
题目2操作步骤：
1） 根据图2- 2所示，设计窗体界面，窗体中各控件对象的属性设置如下表。 控件 窗体 标签1 标签2 文本框1 文本框2 命令按钮1 命令按钮2 2） 过程设计 [分析]
统计单击次数的整型变量都声明为模块级变量（模块级变量要在过程外的模块中声明），如果是定义为过程变量，因为每单击相应控件，就重新初始化了该变量。（同学们可以自己比较一下不同定义后，工程运行的结果）。 [程序代码]
Dim wn As Integer, cn As Integer Private Sub Form_Load()
Command2.Enabled = False End Sub
Private Sub Command1_Click() cn = cn + 1
Text1. Text = cn End Sub
Private Sub form_Click() wn = wn + 1
Command2.Enabled = True Text2. Text = wn
End Sub
Private Sub Command2_Click() End End Sub
- 10 -
对象名 Form1 Label1 Label2 Text1 Text2 Command1 Command2 属性名 caption caption caption text text caption caption 属性值 保持默认 ―单击窗体次数：‖ ―单击命令按钮次数：‖ ―‖ ―‖ ―显示单击命令按钮的次数‖ ―退出‖ 杭州师范学院 信息工程学院--《计算机技术基础》（VB程序设计）
3） 运行调试
运行时单击命令按钮Command1，就在文本框1（Text1）中显示单击命令按钮的次数，单击窗体就在
文本框2（Text2）中显示显示单击窗体的次数。单击命令按钮Command2，结束工程运行，返回到VB环境。 检查
当程序运行出错，可从常见的一些错误入手，进行检查。此题要特别注意统计单击次数的整型变量都应声明为模块级变量。
实验三 顺序结构程序设计
实验目的：
通过本次实验，学生进一步掌握VB6.0的数据类型、常量、变量、运算符和表达式知识，掌握常用内部函数、学习使用函数Inputbox输入数据、用Msgbox函数产生消息，基本掌握编写一般的顺序结构程序的方法。
实验内容：
1、编制事件过程form_Clcik，单击窗体后用InputBox函数输入1个三位十进制整数，分别用三个标签控件显示其百位数、十位数、个位数。
提示：可以输入到一个Integer类型变量中、采用算术运算（整除、取余等）分解其百位数、十位数、个位数；也可以输入到一个String类型变量中、采用字符串运算函数（Left、Mid、Right）分解其百位数、十位数、个位数。
2、编程，学习使用VB的随机函数。界面设计如图3- 1所示。运行时单击命令按钮，在右边三个标签控件上显示所生成的随机数，各随机数的数值范围如其左边标签控件上的说明所示。
图3- 1
题目1操作步骤：
1） 根据题目要求，设计窗体界面，在窗体上添加下表所列各控件对象，窗体中各控件对象的属性设置
如下表。 控件 标签1 标签2 标签3 标签4 标签5 标签6
- 11 -
对象名 Label1 Label2 Label3 Label4 Label5 Label6 属性名 caption caption caption caption caption caption 属性值 ―百位是：‖ ―十位是：‖ ―个位是：‖ ― ‖ ― ‖ ― ‖ 杭州师范学院 信息工程学院--《计算机技术基础》（VB程序设计）
2） 过程设计
[分析]
（1）输入到一个Integer类型变量中、采用算术运算（整除、取余等）分解其百位数、十位数、个位数；也可以输入到一个String类型变量中、采用字符串运算函数（Left、Mid、Right）分解其百位数、十位数、个位数，在这介绍通过算术运算的方法求解。
（2）InputBox（）函数，也称为输入对话框，返回用户在对话框中的输入信息。最后获得的结果与定义的变量类型有关，如定义一个整型变量n，输入“123.6‖,则最后n获得的结果是124；若输入“abc”，则出现“类型不匹配”出错信息。 [程序代码]
Private Sub form_Click()
Dim i As Integer
i = InputBox(\请输入一个三位整数\数据输入\ Label4.Caption = i Mod 10 Label5.Caption = i \\ 10 Mod 10 Label6.Caption = i \\ 100
End Sub
3） 运行调试
运行时单击窗体，会弹出一个输入对话框，在这个对话框中输入一个三位整数，然后单击确定按钮，三位整数的百、十、个位就会在标签4（Label4）和标签5（Label5）和标签6（Label6）中显示出来。
检查
当程序运行出错，可从常见的一些错误入手，进行检查。本题目中要特别注意InputBox函数中参数的正确使用。
题目2操作步骤：
1） 根据图3- 1所示，设计窗体界面，窗体中各控件对象的属性设置如下表。
控 件 标签1 标签2 标签3 标签4 标签5 标签6 命令按钮1 对象名 Label1 Label2 Label3 Label4 Label5 Label6 Command1 属性名 Caption Caption Caption Caption BorderStyle Caption BorderStyle Caption BorderStyle Caption 属性值 ―随机实数,[0,1]‖ ―随机实数,[1,10]‖ ―随机整数,[10,100]‖ ―‖ ―1-Fixed single‖ ―‖ ―1-Fixed single‖ ―‖ ―1-Fixed single‖ ―生成随机数‖
2） 过程设计 [分析]
要得到[a，b]之间的随机整数，可用公式“Int（Rnd*（b-a+1））+a” [程序代码]
Private Sub Command1_Click() Label4.Caption = Rnd
Label5.Caption = 1 + Rnd * 9
Label6.Caption = 10 + Int(Rnd * 91) End Sub
3） 运行调试
- 12 -
相关推荐：
loading