电大VisualBasic程序设计考试资料已整理排版.doc

资料内容仅供您学习参考，如有不当或者侵权，请联系改正或者删除。
《Visual Basic程序设计》

一、 单项选择题

14.     \、 /、 Mod、 *四个算术运算符中, 优先级别最低的是( C ) 。C．Mod
A
58.     ADO控件属于ActiveX控件, 使用之前必须加载Microsoft ADO Data Conctrol 6.0( OLE DB) , 将ADO控件添加到工具箱中。添加ADO控件的菜单为( B ) 。B．”工程”→”部件”
B
17.     表示式4+5 \ 6 * 7 / 8 Mod 9 的值是 ( B ) 。
B．5
C
4.         以下控件中, ( A ) 控件不会影响到界面设计效果。A．计时器
C
9.         ( C ) 控件不具有Caption属性。C．
TextBox
C
33.     菜单编辑器中, 同层次的( B ) 属性值设置为相同, 才能够设置索引值。B．Name
C
44.     程序运行时, 驱动器列表框下列( A ) 属性能返回磁盘驱动器的名称。A．Drive
D
37.     当单击工具栏上的按钮, 会触发的事件是( A ) 。A．ButtonClick
D
64.     多媒体控件( MMControl) 具有一组执行MCI命令的下压式按钮。其中Record按钮表示为( B ) 。B．录制
G
10.     改变控件在窗体中的上下位置, 应设置控件的( A ) 属性。A．Top
G
46.     改变驱动器列表框的Drive属性值将激活其( A ) 事件。A．Change
H
18.     函数Int(Rnd*10)是在( C ) 范围内的整数。 C．[0, 10)
J
13.     假设已定义Integer变量x、 y, 则以下赋值语句正确的是( C ) 。C．y = x + y
J
40.     检测文件是否结束的函数是( C ) 。C．EOF()
J
57.     键盘事件的执行顺序是( B ) 。B．KeyDown, KeyPress, KeyUp
J
62.     决定系统是否自动检测多媒体控件( MMControl) 各按钮的状态的属性是( B ) 。B．AutoEnable
J
63.     将多媒体控件( MMControl) 的Frames属性设为3, 则以下叙述正确的是( A ) 。A．指定Back或Step命令后退或前进的帧数都为3
K
26.     可经过( C ) 属性判断ListBox列表框控件的项目总数目。C．Listcount
L
25.     ListBox中若没有任何条目选中, 其ListIndex属性值为( A ) 。A．-1
L
27.     列表框的( B ) 属性用于返回或设置列表框中各列表项的文本。B．List
L
54.     Line( 100, 100) -Step( 400, 400) 将在窗体中的( C ) 画一条直线。C．( 100, 100) 到( 500, 500)
L
59.     利用ADO访问数据库, 首先要创立一个( A ) 对象, 用于建立和数据库的连接。A．Connection对象
M
34.     每创立一个顶级菜单, 它的下面最多能够有( C ) 级子菜单。C．5
N
24.     能经过( D ) 来删除列表框中的选择项。
D．RemoveItem方法
R
1.         如果要设置窗体的标题栏, 应选择( B ) 属性。
B．Caption
R
30.     若要把”XXX”添加到列表框List1中的第三项, 则可执行语句( B) 。B．List1.AddItem "XXX", 2
R
36.     如果要在程序中显示一个弹出菜单, 需调用( D ) 方法。D．PopupMenu
R
55.     RGB函数经过红、 绿、 蓝三基色混合产生某种颜色, 若使用三个滚动条分别输入三种基色, 为保证输入数值有效, 则应设置滚动条的( A ) 属性。A．Max和Min
R
56.     如果在图片框上使用绘图方法绘制一个圆, 则图片框的( B) 属性决定了该圆的颜色。
B．ForeColor
S
2.         要使命令按钮不响应用户生成的事件, 应设置命令按钮的( D ) 属性。D．Enabled
S
3.         要使标签能透出窗体的背景, 应设置标签的( A ) 属性。A．BackStyle
S
28.     设List1为列表框控件, List1.Clear中的Clear是( A ) 。A．方法
S
41.     要读出C盘根目录下顺序文件stud.txt内容, 下列打开方式( C) 。C．Open " C:\stud.txt" For Input As #1
S
42.     随机文件使用( C ) 语句写数据。C．Put

S
43.     随机文件使用( D ) 语句读数据。D．Get

S
47.     使用目录列表框的( B ) 属性能够返回或设置当前工作目录的完整路径( 包括驱动器盘符) 。B．Path
S
51.     要向图片框picP中加载”d:\hainan\zhiwu.bmp”图像文件, 应使用语句( C ) 。c．picP.Picture=LoadPicture("d:\hainan\zhiwu.bmp")
S
60.     SQL语言的Select语句中, 用于分组的语句为( B ) 。B．group by
W
7.         某计时器控件的interval属性为0时, 表示( A ) 。A．计时器关闭计时
W
11.     文本框中选定的内容, 由下列( C ) 属性反映。C．Seltext
W
65.     为了使多媒体控件( MMControl) 中的录制按钮不显示, 应添加代码( C ) 。C．MMControl1.RecordVisible= False
W
67.     Windows Media Player控件的UiMode属性, 表示播放器界面模式, 以下选项是播放器模式的属性值是( D) 。D．以上都是
X
15.     下列哪组语句能够将变量A、 B值互换( B ) 。B．A=A+B : B=A–B: A=A–B
X
19.     下面( A ) 运算符是算术运算符。 A．Mod
X
38.     下列能够用来存储图像能够供其它控件使用的控件是( C ) 。C． ImageList
X
50.     下面对象中不能作为容器的是( B) 。B．Image控件
X
53.     下列图形中不能使用Shape控件绘制的是( B ) 。B．三角形
X
21.     下面程序段运行后, 显示的结果是( B ) 。B．1

Dim intX As Integer

If intX Then

Print intX

Else

Print intX + 1

End If

Y
22.     以下程序的输出结果是( C ) 。C．10

Dim a, i%, sum%

a = Array(4, 3, 2, 1)

For i = 0 To 3

sum = sum + a(i)

Next i

Print sum

Y
16.     以下语句的输出结果是( C ) 。Print Format (32548.5,”000,000.00”)C．032,548.50
Y
20.     已知三个变量A、 B、 C, 判断A、 B、 C能否构成三角形的逻辑表示式为( B ) 。B．A + C >= B And A + B >= C And B + C >= A
Y
29.     以下( D ) 语句将删除列表框List1中的最后一项。D．List1.RemoveItem List1.ListCount-1
Y
31.     用户能够经过设置菜单项的( C ) 属性值为False来使该菜单项失效。C．Enabled
Y
32.     用户能够经过设置菜单项的( B ) 属性值设置为False来使该菜单项不可见。B．Visible
Y
45.     要用通用对话框控件显示标准的”字体”对话框, 应调用其( C ) 方法。C．ShowFont
Y
61.     以下四个控件, 不属于数据绑定控件的是( C ) 。C．Option控件
Z
5.         在Visual Basic中, 一般( B ) 属性用来设置字体的颜色。
B．ForeColor
Z
6.         在VB中断模式下, 可用调试窗口监视表示式和变量的值, 其中在( A ) 窗口中能够直接键入命令以显示命令所请求的信息。A．立即
Z
8.         在窗体Form1的Click事件过程中有以下语句: Label1.Caption="Visual Basic"若本语句执行之前, 标签控件的Caption属性为默认值, 则标签控件的Name属性和Caption属性在执行本语句之前的值分别为( B ) 。 B．Label1和Label1
Z
12.     在Visual Basic中, 变量的默认类型是( D ) 。
D．Variant
Z
23.     在过程中定义的变量, 若希望在离开该过程后, 还能保存过程中局部变量的值, 则应使用( D ) 关键字在过程中定义局部变量。
D．Static
Z
35.     在设计菜单时, 为了创立分隔栏, 要在( B ) 中输入字符( -) 。B．标题栏
Z
39.     在Visual Basic中按文件的访问方式不同, 能够将文件分为( B) 。B．顺序文件、 随机文件和二进制文件
Z
48.     在随机文件中( D ) 。D．能够经过记录号随机读取记录
Z
49.     执行语句Open "C: Stud.txt" For Input As #2后, 系统( C) 。C．打开C盘当前文件夹下名为Stud.txt的文件, 用来读取文件内容
Z
52.     执行Form1.Scale( 0, 10) -( 10, -10) 语句, Form1窗体坐标系x轴和y轴的正方向是( A) A．向右和向
Z
66.     在多媒体控件( MMControl) 中, DeviceType属性用于设置多媒体设备的类型, 如果将要播放的文件是CD歌曲, 应将DeviceType属性设置为( D ) 。D．CDAudio

Z
68.     在Windows Media Player控件中, 决定播放文件是否全屏的属性是( A ) 。A．FullScreen

二、 填空题
A
33.按文件的存取方式, 可将文件分为顺序文件、 随机文件 和 二进制文件 。
A
34. ADO模型中一般可经过Connection对象的 Execute 方法执行增加、 删除、 修改操作。使用ADO模型时, 建立Recordset和Connection对象连接的属性是 ActiveConnection 。
A
35. ADO数据模型中一般可经过Connection对象的 Execute 方法对数据库中的基本表进行增加、 删除、 修改等不返回结果集的操作。
C
22. 创立第一个按钮控件对象时, 系统自动为其”Name”属性分配一个名字, 该名字为 Command1 。
D
28. 对驱动器列表框来说, 每次重新设置驱动器列表框的 Drive 属性时, 将引发Change事件; 对目录列表框来说, 当 Path 属性值改变时, 将引发Change事件; 对于文件列表框, 重新设置的 Path 属性, 将引发Change事件。
J
4. 将1£ x <12写成Visual Basic逻辑表示式 x>=1 And x<12 。
J
14 基本程序控制结构能够分为顺序结构、 选择 结构和 循环 结构3种。
J
31.将图片框PictureBox的AutoSize属性设置成 Ture 时, 图片框能自动调整大小, 以适应其中的图片。
L
6.   Left ("abcd",2)函数的返回值是 ab ; Right("abcd",2)函数的返回值是 cd 。
L
32.     Label和TextBox控件用来显示和输入文本, 如果仅需要让应用程序在窗体中显示文本信息, 可使用 Label 控件; 若允许用户输入文本, 则应使用 TextBox 控件。
M
27.     每次重新设置驱动器列表框的Drive属性时, 都将引发 Change 事件。可在该事件过程中编写代码修改目录列表框的路径, 使目录列表框内容随之发生改变。
S
9. 数组的类型能够是基本数据类型, 也能够是用户自定义的记录类型。如果省略类型说明, 数组会被设置为默认的变体类型( Variant) 。数组中各个元素在定义时如果是数值类型就被默认初始化为0 , 如果是字符串类型就被初始化为空字符串 。
S
1.         数学表示式cox2x+ 写成等价的Visual Basic表示式为cos(x)^2+Sqr(x^2-y^2)/2

S 2.         数学表示式 写成等价的Visual Basic表示式为10^(1/2)*cos(50*3.14/180

) 或者Sqr(10)*cos(50*3.14/180)

S
3.         数学式子对应的Visual Basic运算表示式是 : Sqr(s*(s-a)*(s-b)*(s-c))
V
13.     Visual Basic中变量依据其作用域不同能够分为过程级变量( 局部变量) 、 模块级变量和全局变量3类。过程级变量就是指在事件过程或通用过程内定义的变量, 它的作用域就是 其所在的过程 。模块级变量包括窗体级模块变量和标准模块级变量。窗体模块变量的作用域是 窗体内的所有过程 , 标准模块变量的作用域是 模块内的所有过程 。全局变量的作用域是 整个工程中所有的模块和所有的过程 。

16.     Visual Basic一般用4种类型的文件保存, 分别是扩展名为 .frm 的窗体文件, 扩展名为 bas 的标准模块文件, 扩展名为 .cls 的类模块文件和扩展名为 .vbp 的工程文件。
V
17.     Visual Basic程序开发有三种模式, 即 设计 模式、 运行 模式和 中断 模式。
V
18.     Visual Basic中设置断点的按键是 F9 , 逐语句调试的语句是 F8 。
V
19.     Visual Basic中的程序错误类型主要有编译错误、 实时错误 和 逻辑错误 三种。
V
20.     Visual Basic应用程序即工程文件一般由三类模块组成, 即窗体模块、 标准模块和类模块。窗体模块包含 窗体 和 代码 两部分。 标准模块 完全由代码组成, 这些代码不与具体的对象相关联, 一般用来定义全局变量和公用过程和函数。 类模块 用于自定义类。

W 23.     为了在运行时把当前路径下的图形文件picturefile.jpg装入图片框Picture1, 所使用的语句为 Picture1. Picture = LoadPrcture(”picturefile.jpg”) 。
Y
5.         已知a=3,b=4,c=5,表示式a>b and Not c>a Or c>b And c是 Asc(x) 。
Z
10.     在Visual Basic中, 数组默认的下标下界是0 , 如果希望从1开始, 能够使用 Option Base n语句语句来设置。
Z
11.     在缺省情况下, 用Dim A(5,5)语句声明二维数组后, 数组A的元素共有 36 个。
Z
12.     在Visual Basic中, 参数经过 按值传递 和 按地址传递 两种方式传送。
Z
15.     在Visual Basic语言中有三种形式的循环结构。其中, 若循环的次数能够事先确定, 可使用For循环; 若要求先判断循环进行的条件, 可使用 While 循环或 Do 循环。
Z
21.     在Visual Basic中将多重窗体程序中第一个被装载内存的窗体称为 启动窗体 。
Z
24.     在Visual Basic中, 每个菜单项都是一个图形控件对象, 因此它们也有一些与其它控件类似的属性, 标题 就相当于其它控件的Caption属性, 而 名称 就相当于Name属性。
Z
25.     在Visual Basic菜单中设置显示一条分割线的操作是 在【菜单编辑器】的标题栏中, 输入一个”- 。
Z
26.     在Visual Basic中, 文件系统控件包括 驱动器列表框( DriveListBox) 、 目录列表框( DirListBox) 和文件列表框( FileListBox) 。三者协同操作能够访问任意位置的目录和文件, 能够进行文件系统的人机交互管理。
Z
29.     执行指令”Line (200,200) – Step (500,500)”后, CurrentX＝ 700 。
Z
30.     执行指令”Line (200,200) – (500,500)”后, CurrentX＝ 500 。
三、 程序阅读题
Y 阅读以下程序, 写出其功能。
Private Sub cmdWhy_Click()
' cmdWhy为命令按钮, lblHelloVB为标签, txtHelloVB为文本框
lblHelloVB .Caption = "为什么学VB"
txtHelloVB = "( 1) VB简单易学, 开发效率高, 通用性强, 用途广泛。" _
+ vbCrLf + vbCrLf + "( 2) VB是国内外最流行的程序设计语言之一, " _
+ "也是学习开发Windows应用程序首选的程序设计语言。"
End Sub
该程序功能: 单击cmdWhy按钮, 在lblHelloVB标签显示”为什么学VB”, 在txtHelloVB文本框显示以下内容:
1．VB简单易学, 开发效率高, 通用性强, 用途广泛。

2． VB是国内外最流行的程序设计语言之一, 也是学习开发Windows应用程序首选的程序设计语言。

Y 阅读以下程序, 写出其功能。
Private Sub cmdWhat_Click()
' cmdWat为命令按钮, lblHelloVB为标签, txtHelloVB为文本框
lblHelloVB .Caption = "VB能干什么"
txtHelloVB = " VB能快速实现用户界面的设计、 " _
+ "文字和图形图像的处理以及数据库的使用, 能开发多媒体、 数据库、 " _
+ "网络和图形等多方面的应用程序; 能够开发个人使用或小组" _
+ "使用的小工具、 大型企业应用系统以及遍及全球的分布式应用程序。"
End Sub
该程序功能: 单击cmdWhat按钮, 在lblHelloVB标签显示”VB能干什么”, 在txtHelloVB文本框显示以下内容:
VB能快速实现用户界面的设计、 文字和图形图像的处理以及数据库的使用, 能开发多媒体、 数据库网络和图形等多方面的应用程序; 能够开发个人使用或小组使用的小工具、 大型企业应用系统以及遍及全球的分布式应用程序。

Y 阅读以下程序, 写出其功能。
Private Sub cmdHow_Click()
' cmdHow为命令按钮, lblHelloVB为标签, txtHelloVB为文本框
lblHelloVB .Caption = "如何学好VB"
txtHelloVB = "( 1) 从实际应用程序的开发过程中学习VB程序设计。" _
+ vbCrLf + vbCrLf + "( 2) 学会分析问题和解决问题的思路、 " _
+ "算法设计和实现方法。" + vbCrLf + vbCrLf _
+ "( 3) 学会利用MSDN资源。" + vbCrLf + vbCrLf _
+ "( 4) 养成良好的编程习惯。"
End Sub
该程序功能: 单击cmdHow按钮, 在lblHelloVB标签显示”如何学好VB”, 在txtHelloVB文本框显示以下内容:
( 1) 从实际应用程序的开发过程中学习VB程序设计。

( 2) 学会分析问题和解决问题的思路算法设计和实现方法。

( 3) 学会利用MSDN资源。

（4） 养成良好的编程习惯。
Y 阅读以下程序, 写出其功能。
Sub newQuestion()
Dim intOp1 As Integer, intOp2 As Integer, intTemp As Integer
Dim strOprator As String
Dim intOpratorNum As Integer
Randomize
intOp1 = Int(10 * Rnd + 1)
intOp2 = Int(10 * Rnd + 1)
intOpratorNum = Int(4 * Rnd + 1)
Select Case intOpratorNum
Case 1
strOprator = "+": intAnswer = intOp1 + intOp2
Case 2
strOprator = "－":
If intOp1 < intOp2 Then
intTemp = intOp1: intOp1 = intOp2: intOp2 = intTemp
End If
intAnswer = intOp1 - intOp2
Case 3
strOprator = "×": intAnswer = intOp1 * intOp2
Case 4
strOprator = "÷"
If intOp1 < intOp2 Then
intTemp = intOp1: intOp1 = intOp2: intOp2 = intTemp
End If
If intOp1 Mod intOp2 <> 0 Then
intOp1 = intOp1 - intOp1 Mod intOp2
End If
End Select
' lblQuestion为标签
lblQuestion.Caption = intOp1 & " " & strOprator & " " & intOp2 & " = "
End Sub
该程序是一个随机出题的过程。随机产生两个10以内的操作数, 随机产生一个操作符( +、 －、 ×、 ÷) 。如果是减法和除法时, 第一操作数小于第二操作数时交换两个操作数, 且如果是除法则同时减去两数相除所得的余数。最后在标签lblQuestion上显示题目。

Y 阅读以下程序, 写出其功能。
Public Function Avg_mark(MarkArray() As Single) As Single
Dim sngSum As Single, i As Integer , n As Integer
sngSum = 0
n = UBound(MarkArray)
For i = 0 To n
sngSum = sngSum + MarkArray(i)
Next i
Avg_mark = sngSum / n
End Function
该程序是一个求平均值的函数。以一个单精度的数组作为参数, 先求出数组元素的个数, 接着求出数组所有元素的和, 最后得出该数组的平均值。

Y 阅读以下程序, 写出其功能。
Public Function Max_Mark(MarkArray() As Single) As Single
Dim sngMax As Single , i As Integer , n As Integer
sngMax = 0
n = UBound(MarkArray)
For i = 0 To n
If MarkArray(i) > sngMax Then sngMax = MarkArray(i)
Next i
Max_Mark = sngMax
End Function
该程序是一个求最大值的函数。以一个单精度的数组作为参数, 先求出数组元素的个数, 接着逐个比较, 求出数组元素的最大值。

Y 阅读以下程序, 写出其功能。
Public Function Pass_Mark(MarkArray() As Single) As Single
Dim intCount As Integer, i As Integer , n As Integer
intCount = 0
n = UBound(MarkArray)
For i = 0 To n
if MarkArray(i) >= 60 Then intCount = intCount + 1
Next i

Pass_Mark = intCount / n
End Function
该函数的功能是求一组数中大于等于60的数的比例。以一个单精度的数组作为参数, 先求出数组元素的个数, 接着逐个比较, 求出数组元素中大于等于60的数的个数, 最后求出其比例。

Y 阅读以下程序, 写出其功能。
Private Sub Sort_Mark(MarkArray() As Single)
Dim sngMtemp As Single
Dim i As Integer , n As Integer , k As Integer,j As Integer
n = UBound(MarkArray)
For i = 0 To n – 1
k = i
For j = i + 1 To n
If MarkArray(j) > MarkArray(k) Then k = j
Next j
sngMtemp = MarkArray(k)
MarkArray(k) = MarkArray(i)
MarkArray(i) = sngMtemp
Next i
End Sub
该过程的功能是把一组数按从大到小排序。以一个单精度的数组作为参数, 先求出数组元素的个数, 接着逐个比较, 求出数组元素中的最大值和第一个元素交换位置; 求出次大值和第二个元素交换位置; 依次类推, 完成从大到小排序。

Y 阅读以下程序, 写出其功能。
Private Sub changecolor()
Dim r As Integer , g As Integer, b As Integer
Dim x As Long
' hsbRed、 hsbGreen和hsbBlue为水平滚动条
hsbRed.Min=0: hsbGreen.Min=0 : hsbBlue.Min=0
hsbRed.Max=255: hsbGreen.Max=255 : hsbBlue.Max=255
r = hsbRed.Value
g = hsbGreenValue
b = hsbBlue.Value
x = RGB(r, g, b)
frmMain.BackColor = x
End Sub
该过程的功能是用红色、 绿色、 蓝色三个滚动条调节窗体底色。先把红色、 绿色、 蓝色三个滚动条的Min属性设置为0、 Max属性设置为255, 接着用取出三个滚动条的Value属性值, 用RGB函数产生一个由红、 绿、 蓝三个Value属性值混合而成的新颜色, 并作为窗体底色。

Y 阅读以下程序, 写出其功能。
Public ADOcn As Connection
Public Sub Main()
Dim strAccess As String
strAccess="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\ xs.mdb"
If ADOcn Is Nothing Then
Set ADOcn = New Connection
ADOcn.Open strAccess
End If
frmMain.Show ' frmMain为窗体
End Sub
该段程序的功能是建立数据库的连接。实现与D盘根目录下的文件名为xs.mdb 的Access数据库的连接, 同时显示frmMain窗体。

Y 阅读以下程序, 写出其功能。
Public ADOcn As Connection
Public ADOrs As New Recordset
Private Sub cmdAdd_Click()
Dim strSQL As String
'文本框txtNo、 txtName和组合框cboSex、 cboClass
'分别用来输入学号、 姓名、 性别和班级
strSQL = "select * from 学生表 where 学号='" + txtNo.Text + "'"
ADOrs.Open strSQL, ADOcn
If Not ADOrs.EOF Then
MsgBox "该记录已经存在, 不能继续增加! ", vbCritical + vbOKOnly
ADOrs.Close
Exit Sub
End If
strSQL = "insert into 学生表(学号,姓名,性别,班级)"
strSQL = strSQL + " values('" + txtNo.Text + "','" + txtName.Text + "',"
strSQL = strSQL +"'" + cboSex.Text + "','" txtClass.Text + "')"
ADOcn.Execute strSQL
End Sub
该段程序的功能是把一个学生记录插入到学生表中。首先查找数据表中是否存在文本框txtNo中输入的学号, 如果存在则不增加; 如果不存在, 则把该学生的信息记录插入学生表中。
四、 程序设计题
B 编写一个程序。程序初始界面如图1左图所示, 设”学习目的”、 ”学习方法”和”退出”命令按钮的名称定义为cmdAim、 cmdWay和cmdExit, 标签控件的名称定义为lblContent。单击”学习目的”按钮, 显示如图1的中图所示; 单击”学习方法”命令按钮, 显示如图1的右图所示; 单击”退出”按钮时, 退出程序。

图1
Private Sub cmdAim_Click()
lblContent.Caption = "开发Windows应用程序"
End Sub

Private Sub cmdWay_Click()
lblContent.Caption = "从实际应用程序的开发过程中学习VB"
End Sub

Private Sub cmdExit_Click()
End
End Sub

B 编写一个数制转换程序, 运行界面如图3所示。设三个文本框的名称框定义分别为TxtDec、 TxtHex和TxtOct。实现在第一个文本框中输入十进制数后, 第二个文本框自动显示该数对应的十六进制数, 第三个文本框自动显示该数对应的八进制数。提示: 利用文本框的Change事件和转换函数Hex、 Oct。

Private Sub TxtDec_Change()
TxtHex.Text = Hex(Val(TxtDec.Text))
TxtOct.Text = Oct(Val(TxtDec.Text))
End Sub
B 编写一个猜数字程序。程序产生一个随机数, 由用户来猜这个数, 并提示用户猜的数是否太大或太小, 程序运行界面如4所示, 设输入文本框的名称框定义为TxtAnswer, 神秘的数、 评价标签控件的名称框定义为lblComment和lblNum, ”确定”命令按钮的名称定义为cmdOk。

Dim intNum As Integer '用于存放”神秘的数”
Dim intCount As Integer '用于猜数计数

Private Sub cmdOk_Click()
intCount = intCount + 1 '计数
If Val(txtAnswer.Text) = intNum Then '猜对
lblComment.Caption = "猜对了! 你一共猜了" & intCount & "次"