全国计算机等级考试二级vb题库（下）
52115.在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：
Private Sub Text1_LostFocus( )
If Not IsNumeric(Text1) Then
MsgBox "帐号有非数字字符错误"
Text1.Text = ""
Text1.SetFocus
else
MsgBox "帐号正确"
End If
End Sub
当在text1文本框中输入数字123456之后，单击命令按钮，结果为(A)(单)
A.显示对话框，提示信息为"帐号正确"
B.显示对话框，提示信息为"帐号有非数字字符错误"
C.程序出错 D.没有任何提示
52116.在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：
Private Sub Command1_Click( )
Dim I As Integer
If Text1.Text ＜＞ "Gong" Then
I = MsgBox("密码错误", 5 + vbExclamation, "输入密码")
If I ＜＞ 4 Then
End
Else
Text1.Text = ""
Text1.SetFocus
End If
Else
MsgBox "密码帐号正确！"
End If
End Sub
若在text1中输入字符串"Gong"，则程序运行结果为(A)(单)
A.显示对话框，提示"密码帐号正确！"
B.显示对话框，提示"密码错误"
C.程序出错 D.没有任何提示
52117.在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：
Private Sub Command1_Click( )
Dim I As Integer
If Text1.Text ＜＞ "Gong" Then
I = MsgBox("密码错误", 5 + vbExclamation, "输入密码")
If I ＜＞4 Then
End
Else
Text1.Text = ""
Text1.SetFocus
End If
Else
MsgBox "密码帐号正确！"
End If
End Sub
若在text1中输入字符串"gong"，则程序运行结果为(B)(单)
A.显示对话框，提示"密码帐号正确！"
B.显示对话框，提示"密码错误"
C.程序出错 D.没有任何提示
52118.在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：
Private Sub Command1_Click( )
Dim I As Integer
If Text1.Text ＜＞ "Gong" Then
I = MsgBox("密码错误", VbRetryCancle + vbExclamation, "输入密码")
If I ＜＞ 4 Then
End
Else
Text1.Text = ""
Text1.SetFocus
End If
Else
MsgBox "密码帐号正确！"
End If
End Sub
若在text1中输入字符串"123"，显示"密码错误"对话框，关于此对话框描述正确的是(A)(单)
A.显示对话框中有“重试”按钮
B.显示对话框中有“确定”按钮
C.显示对话框中有“是”按钮 D.以上说法都不正确
52119.在窗体中建立三个文本框，名称分别为text1、text2和text3，还有一个名称为label1的标签，一个名称为command1的命令按钮，编写如下代码：
Private Sub Command1_Click( )
Dim x!, y!, z!, t!
x = Text1
y = Text2
z = Text3
If x ＜ y Then
t = x
x = y
y = t
End If
If y ＜ z Then
t = y
y = z
z = t
If x＜ y Then
t = x
x = y
y = t
End If
End If
Label1.Caption = x & "," & y & "," & z
End Sub
当在文本框text1、text2 和 text3 中分别输入5、3和8，则标签显示的结果为(C)(单)
A.3,5,8 B.5,3,8 C.8,5,3 D.3.8.5
52120.以下程序段：
Private Sub Form_Load( )
Dim Nop As Integer, Op As String * 1
Num1 = 3
Num2 = 2
Nop = val(Inputbox("请输入1-4之间的整数"))
Select Case Nop
Case 1
Op = "＋"
Result = Num1 + Num2
Case 2
Op = "－"
Result = Num1 - Num2
Case 3
Op = "×"
Result = Num1 * Num2
Case 4
Op = "÷"
Result = Num1 / Num2
End Select
Label1= Num1 & Op & Num2 & "=" & Result
End Sub
窗体运行后，输入1，则label1的标题显示结果为(A)(单)
A.3+2=5 B.3-2=1 C.3×2=6 D.3÷2=1.5
52121.以下程序段：
Private Sub Form_Load( )
Dim Nop As Integer, Op As String * 1
Num1 = 3
Num2 = 2
Nop = val(Inputbox("请输入1-4之间的整数"))
Select Case Nop
Case 1
Op = "＋"
Result = Num1 + Num2
Case 2
Op = "－"
Result = Num1 - Num2
Case 3
Op = "×"
Result = Num1 * Num2
Case 4
Op = "÷"
Result = Num1 / Num2
End Select
Label1= Num1 & Op & Num2 & "=" & Result
End Sub
窗体运行后，输入2，则label1的标题显示结果为(B)(单)
A.3+2=5 B.3-2=1 C.3×2=6 D.3÷2=1.5
52122.以下程序段：
Private Sub Form_Load( )
Dim Nop As Integer, Op As String * 1
Num1 = 3
Num2 = 2
Nop = val(Inputbox("请输入1-4之间的整数"))
Select Case Nop
Case 1
Op = "＋"
Result = Num1 + Num2
Case 2
Op = "－"
Result = Num1 - Num2
Case 3
Op = "×"
Result = Num1 * Num2
Case 4
Op = "÷"
Result = Num1 / Num2
End Select
Label1= Num1 & Op & Num2 & "=" & Result
End Sub
窗体运行后，输入3，则label1的标题显示结果为(C)(单)
A.3+2=5 B.3-2=1 C.3×2=6 D.3÷2=1.5
52123.以下程序段：
Private Sub Form_Load( )
Dim Nop As Integer, Op As String * 1
Num1 = 3
Num2 = 2
Nop = val(Inputbox("请输入1-4之间的整数"))
Select Case Nop
Case 1
Op = "＋"
Result = Num1 + Num2
Case 2
Op = "－"
Result = Num1 - Num2
Case 3
Op = "×"
Result = Num1 * Num2
Case 4
Op = "÷"
Result = Num1 / Num2
End Select
Label1= Num1 & Op & Num2 & "=" & Result
End Sub
窗体运行后，输入4，则label1的标题显示结果为(D)(单)
A.3+2=5 B.3-2=1 C.3×2=6 D.3÷2=1.5
52124.以下程序段的作用是(A)(单)
Private Sub Picture1_Click( )
Dim asci As Integer, i As Integer
i = 0
For asci = 32 To 126
Picture1.Print Tab(7 * i + 2); Chr(asci); "="; asci;
i = i + 1
If i = 7 Then i = 0: Picture1.Print
Next asci
A.打印ASCII码表，一行7个表达式
B.打印九九乘法表，一行7个表达式
C.打印ASCII码表，一行8个表达式
D.以上说法都不正确
52125.我国现在人口有13亿，按人口增长0.8%计算，多少年后我国人口将超过26亿。
Private Sub Command1_Click( )
Dim x, n
x = Val(Text1)
n = 0
Do While 【x】＜26
x = x * (1 + 0.008)
n = n + 1
Loop
Text2 = Str(n)
End Sub
52126.以下程序的作用是(B)(单)
For i = 1 To 9
For j = 1 To 9
se = i & "×" & j & "=" & i * j
Picture1.Print Tab((j - 1) * 9 + 1); se;
Next j
Picture1.Print
Next i
A.打印ASCII码表 B.打印九九乘法表
C.打印加法表 D.以上说法都不正确
52127.求自然数e的近似值，误差小于0.00001，近似公式为：e=1+1/1!+1/2!+1/3!+……+1/I!+……以下程序用来求自然数e。
Private Sub Form_Click( )
Dim I%, n&, t!, e!
E = 0 ' 存放累加和结果
I = 0 ' 计数器
n = 1 ' 存放阶乘的值
t = 1 ' 级数第I项值
Do While 【t>】 0.00001
e = e + t
I = I + 1
n = n * I
t = 1 / n
Loop
Print "计算了 "; I; " 项的和是 "; e
End Sub
52128.求自然数e的近似值，误差小于0.00001，近似公式为：e=1+1/1!+1/2!+1/3!+……+1/I!+……以下程序用来求自然数e。
Private Sub Form_Click( )
Dim I%, n&, t!, e!
E = 0 ' 存放累加和结果
I = 0 ' 计数器
n = 1 ' 存放阶乘的值
t = 1 ' 级数第I项值
Do While t＞0.00001
e = e + 【t】
I = I + 1
n = n * I
t = 1 / n
Loop
Print "计算了 "; I; " 项的和是 "; e
End Sub
52129.求自然数e的近似值，误差小于0.00001，近似公式为：e=1+1/1!+1/2!+1/3!+……+1/I!+……以下程序用来求自然数e。
Private Sub Form_Click( )
Dim I%, n&, t!, e!
E = 0 ' 存放累加和结果
I = 0 ' 计数器
n = 1 ' 存放阶乘的值
t = 1 ' 级数第I项值
Do While t＞0.00001
e = e + t
I = I + 1
n = n * 【I】
t = 1 / n
Loop
Print "计算了 "; I; "项的和是"; e
End Sub
52130.以下程序是求最大公约数和最小公倍数的程序。
Private Sub Form_Click( )
Dim m1, n1, m, n, r As Integer
n1 = InputBox("输入自然数n", "输入数")
m1 = InputBox("输入自然数m", "输入数")
n = n1
m = m1
If m ＜ n Then
t = m: m = n: n = t
End If
r = m Mod 【n】
Do While (r＜＞0)
m = n
n = r
r = m Mod n
Loop
Print "最大公约数=", n
Print "最小公倍数= ", m1 * n1 / n
End Sub
52131.以下程序是求最大公约数和最小公倍数的程序，在【】处填写合适的关系运算符。
Private Sub Form_Click( )
Dim m1, n1, m, n, r As Integer
n1 = InputBox("输入自然数n", "输入数")
m1 = InputBox("输入自然数m", "输入数")
n = n1
m = m1
If m ＜n Then
t = m: m = n: n = t
End If
r = m Mod n
Do While r 【<>】 0
m = n
n = r
r = m Mod n
Loop
Print "最大公约数=", n
Print "最小公倍数= ", m1 * n1 / n
End Sub
52132.下面是求100以内素数的程序。
Private Sub Command1_Click( )
Dim i As Integer, m As Integer, tag As Boolean
For m = 2 To 100
tag = True
For i = 2 To m - 1
If m Mod 【i】 = 0 Then tag = False
Next i
If tag Then Print m
Next m
End Sub
52133.下面是求100以内素数的程序，下面说法正确的是(A)(单)
Private Sub Command1_Click( )
Dim i As Integer, m As Integer, tag As Boolean
For m = 2 To 100
tag = True
For i = 2 To m - 1
If m Mod i = 0 Then tag = False
Next i
If tag=true Then Print m
Next m
End Sub
A.tag为true时，表示m是素数
B.tag为false时，表示m是素数
C.语句m Mod i = 0，说明m是素数 D.以上说法都不正确
52134.百元买百鸡问题： 假定小鸡每只5角,公鸡每只2元，母鸡每只3元。现在有100元钱要求买100只鸡，以下程序列出了所有可能的购鸡方案。
Private Sub Command2_Click( )
Dim x%, y%, z%
For x = 0 To 33
For y = 0 To 50
If 3 * x + 2 * y + 0.5 * (100 - x - y) = 100 Then
Picture2.Print x, y, 【100-x-y,10-y-x】
End If
Next y
Next x
End Sub
52135.百元买百鸡问题： 假定小鸡每只5角,公鸡每只2元，母鸡每只3元。现在有100元钱要求买100只鸡，以下程序列出了所有可能的购鸡方案。
Private Sub Command1_Click( )
Dim x%, y%, z%
For x = 0 To 33
For y = 0 To 50
For z = 0 To 100
If 3 * x + 2 * y + 0.5 * z = 100 And 【x+y+z=100】 Then
Picture1.Print x, y, z
End If
Next z
Next y
Next x
End Sub
52136.随机产生10个100～200之间的数，求它们的最大值程序如下：
Private Sub Command1_Click( )
Max = 100
For i = 1 To 10
x = Int(Rnd * 101 + 100)
Print x;
If x ＞ Max Then 【】
Next i
Print "最大值="; Max
End Sub
在此程序中，其中【】处应该填写的是(C)(单)
A.Max = 100 B.Max =200 C.Max = x D.Max = 0
52137.随机产生10个100～200之间的数，求它们的最大值程序如下：
Private Sub Command1_Click( )
Max = 100
For i = 1 To 10
x = int【RND*101+100或100+RND*101或RND()*101+100或100+RND()*101】
Print x;
If x ＞ Max Then Max=x
Next i
Print "最大值="; Max
End Sub
52138.随机产生10个100～200之间的数，求它们的最大值程序如下：
Private Sub Command1_Click( )
Max = 100
For I = 1 To 10
x =Int(Rnd * 101 + 100)
Print x;
If 【】 Then Max=x
Next I
Print "最大值="; Max
End Sub
在【】处应该填写的是：（A）(单)
A.x ＞ Max B.x ＜Max C.x = Max D.以上都不正确
52139.以下是求1～100之间5或7的倍数的和，如下程序段：
Sum = 0
For i = 1 To 100
If i Mod 5 = 0 Or i Mod 7 = 0 Then
【】
End If
Next i
Print Sum
其中【】处书写正确的是（B）(单)
A.Sum = i B.Sum = Sum + i
C.Sum = Sum + 5+7 D.以上都不正确
52140.以下是求1～100的5或7的倍数的和程序段：
Sum = 0
For i = 1 To 100
If i Mod 5 = 0 Or i 【mod】 7=0 Then
Sum = Sum + i
End If
Next i
Print Sum
52141.以下叙述中错误的是(B)(单)
A.Visual Basic 是事件驱动型可视化编程工具
B.Visual Basic应用程序不具有明显的开始和结束语句
C.Visual Basic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性
D.Visual Basic中控件的某些属性只能在运行时设置
52142.以下叙述中错误的是(A)(单)
A.在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件
B.以.BAS为扩展名的文件是标准模块文件
C.窗体文件包含该窗体及其控件的属性
D.一个工程中可以含有多个标准模块文件
52143.以下叙述中错误的是(B)(单)
A.双击鼠标可以触发DblClick事件
B.在编程过程中，窗体或控件的事件的名称可以由编程人员自由确定
C.移动鼠标时，会触发MouseMove事件
D.控件的名称可以由编程人员设定
52144.以下不属于Visual Basic系统的文件类型是(B)(单)
A..frm B..bat C..vbg D..vbp
52145.以下叙述中错误的是(C)(单)
A.打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件
B.保存Visual Basic程序时，应分别保存窗体文件及工程文件
C.Visual Basic应用程序只能以解释方式执行
D.事件可以由用户引发
52146.以下声明语句中错误的是(B)(单)
A.Const var1=123 B.Dim var2 = 'ABC'
C.Public a,b as integer D.Static a as single
52147.设窗体上有一个列表框控件List1，且其中含有若干列表项。则以下能表示当前被选中的列表项内容的是(D)(单)
A.List1.List B.List1.ListIndex
C.List1.Index D.List1.Text
52148.程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件是(C)(单)
A.MouseDown B.MouseUp C.Load D.Click
52149.设a=10，b=5，c=1，执行语句Print a ＞b ＞ c后，窗体上显示的是(B)(单)
A.True B.False C.1 D.出错信息
52150.如果要改变窗体的标题，则需要设置窗体的(A)属性(单)
A.Caption B.Name C.BackColor D.BorderStyle
52151.以下能判断指针是否指向文件尾的函数是(D)(单)
A.BOF B.LOC C.LOF D.EOF
52152.如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是(B)(单)
A.如果工程中含有Sub Main过程，则程序一定首先执行该过程
B.不能把标准模块设置为启动模块
C.用Hide方法只是隐藏一个窗体,不能从内存中清除该窗体
D.任何时刻最多只有一个窗体是活动窗体
52153.窗体的过程Form_MouseDown (Button As Integer, Shift As Integer, X As Single, YAs Single) ，有4个参数，关于这些参数，正确的描述是(D)(单)
A.通过Button参数判定当前按下的是键盘上哪一个键
B.Shift参数只能用来确定是否按下Shift键
C.Shift参数只能用来确定是否按下Alt和Ctrl键
D.参数x,y用来设置鼠标当前位置的坐标
52154.设组合框Combo1中有3个项目，则以下能删除最后一项的语句是(B)(单)
A.Combo1.RemoveItem Text B.Combo1.RemoveItem 2
C.Combo1.RemoveItem 3
D.Combo1.RemoveItem Combo1.Listcount
52155.以下关于焦点的叙述中，错误的是(A)(单)
A.如果文本框的Enabled属性为False，能接收从键盘上输入的数据
B.当文本框失去焦点时，触发LostFocus事件
C.当文本框的Enabled属性为False时，其Tab顺序不起作用
D.可以用TabIndex属性改变Tab顺序
52156.如果要在菜单中添加一个分隔线，则应将其Caption属性设置为(D)(单)
A.= B.* C.& D.-
52157.在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程：
Private Sub Command1_Click( )
n = val(Text1.Text )
Select Case n
Case 1 To 20
x = 10
Case 2, 4, 6
x = 20
Case Is ＜ 10
x = 30
Case 10
x = 40
End Select
Text2.Text = x
End Sub
程序运行后，如果在文本框Text1中输入10，然后单击命令按钮，则在Text2中显示的内容是(A)(单)
A.10 B.20 C.30 D.40
52158.设有以下循环结构
Do
循环体
Loop While ＜条件＞
则以下叙述中错误的是(A)(单)
A.若"条件"是一个为0的常数，则一次也不执行循环体
B."条件"可以是关系表达式、逻辑表达式或常数
C.循环体中可以使用Exit Do语句
D.如果"条件"总是为True，则不停地执行循环体
52159.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click( )
Dim num As Integer
num = 1
Do Until num ＞ 6
Print num;
num = num + 2.4
Loop
End Sub
程序运行后，单击命令按钮，则窗体上显示的内容是(B)(单)
A.1 3.4 5.8 B.1 3 5 C.1 4 7 D.无数据输出
52160.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click( )
Dim a As Integer, s As Integer
a = 8
s = 1
Do
s = s + a
a = a－1
Loop While a ＜＝ 0
Print s; a
End Sub
程序运行后，单击命令按钮，则窗体上显示的内容是(C)(单)
A.7 9 B.34 0 C.9 7 D.死循环
52161.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
有如下通用过程：
Public Function f(x As Integer)
Dim y As Integer
x = 20
y = 2
f = x * y
End Function
Private Sub Command1_Click( )
Static x As Integer
x = 10
y=5
y = f(x)
Print x; y
End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是(C)(单)
A.10 5 B.20 5 C.20 40 D.10 40
52162.设有如下通用过程：
Public Sub Fun(a( ), ByVal x As Integer)
For i = 1 To 5
x = x + a(i)
Next I
End Sub
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下的事件过程：
Private Sub Command1_Click( )
Dim arr(5) As Variant
For i = 1 To 5
arr(i) = i
Next I
n = 10
Call Fun(arr( ), n)
Text1.Text = n
End Sub
程序运行后，单击命令按钮，则在文本框中显示的内容是(A)(单)
A.10 B.15 C.25 D.24
52163.在窗体上画一个名称为Command1的命令按钮，然后编写如下代码：
Option Base 1
Private Sub Command1_Click( )
d = 0
c = 10
x = Array(10, 12, 21, 32, 24)
For i = 1 To 5
If x(i) ＞ c Then
d = d + x(i)
c = x(i)
Else
d = d－c
End If
Next i
Print d
End Sub
程序运行后，如果单击命令按钮，则在窗体上输出的内容为(C)(单)
A.89 B.99 C.23 D.77
52164.在窗体上画两个滚动条，名称分别为Hscroll1、Hscroll2；六个标签，名称分别为Label1、Label2、Label3、Label4、Label5、Label6，其中标签Label 4、Label6分别显示"A"、"B"、"A*B"等文字信息，标签Label1、Label2分别显示Hscroll1、Hscroll2滚动条的数值，Label3显示A*B的计算结果。当移动滚动条时，在相应的标签中显示滚动条的值。当单击命令按钮"计算"时，对标签Label1、Label2中显示的两个值求积，并将结果显示在Label3中。以下不能实现上述功能的事件过程是(C)(单)
A.Private Sub Command1_Click( )
Label3.Caption = =Str(Val(Label1.Caption)*Val( Label2.Caption))
End Sub
B.Private Sub Command1_Click( )
Label3.Caption = HScroll1.Value *HScroll2.Value
End Sub
C.Private Sub Command1_Click( )
Label3.Caption = HScroll1 * HScroll2
End Sub
D.Private Sub Command1_Click( )
Label3.Caption = HScroll1. Text *HScroll2.Text
End Sub
52165.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click( )
For n = 1 To 20
If n Mod 3 ＜＞ 0 Then m = m + n \ 3
Next n
Print n
End Sub
程序运行后，如果单击命令按钮，则窗体上显示的内容是(C)(单)
A.15 B.18 C.21 D.24
52166.在窗体上画一个名称为Text1的文本框，并编写如下程序：
Private Sub Form_Load( )
Show
Text1.Text = ""
Text1.SetFocus
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X AsSingle, Y As Single)
Print "程序设计"
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Print "Visual Basic";
End Sub
程序运行后，如果按"A"键，然后单击窗体，则在窗体上显示的内容是(A)(单)
A.Visual Basic B.程序设计
C.A程序设计 D.Visual Basic程序设计
52167.设有如下程序：
Private Sub Command1_Click( )
Dim sum As Double, x As Double
sum = 0
n = 0
For i = 1 To 5
x = n / i
n = n + 1
sum = sum + x
Next
End Sub
该程序通过For循环计算一个表达式的值，这个表达式是(C)(单)
A.1+1/2+ 2/3+3/4+4/5 B.1+1/2+2/3+3/4
C.1/2+2/3+3/4+4/5 D.1+1/2+1/3+1/4+1/5
52168.以下有关数组定义的语句序列中，错误的是(D)(单)
A.Static arr1(3) ：arr1(1) = "100" ：
arr1(2) = "Hello" ：arr1(3) = "123.45"
B.Dim arr2( ),size As Integer
Private Sub Command2_Click( )
size =InputBox("输入：") ReDim arr2(size) ......
End Sub
C.Option Base 1 Private Sub Command3_Click( )
Dim arr3(3) As Integer ......
End Sub
D.Dim n As Integer Private Sub Command4_Click( )
Dim arr4(n) As Integer......
End Sub
52169.执行下面的程序段后，I的值为【5.6】
s = 2
For I = 3.2 To 4.9 Step 0.8
s = s + 1
Next I
Print i
52170.执行下面的程序段后，S的值为【5】
Private Sub Command1_Click( )
s = 2
For c = 3.2 To 4.9 Step 0.8
s = s + 1
Next c
Print s
End Sub
52171.把窗体的KeyPreview属性设置为True，然后编写如下两个事件过程：
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Print Chr(KeyCode)
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
Print Chr(KeyAscii)
End Sub
程序运行后，如果直接按键盘上的"A"键（即不按住Shift键），则在窗体上输出的字符分别是A和【a】
52172.把窗体的KeyPreview属性设置为True，然后编写如下两个事件过程：
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Print Chr(KeyCode)
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
Print Chr(KeyAscii)
End Sub
程序运行后，如果直接按键盘上的"A"键（即不按住Shift键），则在窗体上输出的字符分别是【A】和a。
52173.在窗体上画一个标签（名称为Label1）和一个计时器（名称为Timer1），然后编写如下几个事件过程：
Private Sub Form_Load( )
Timer1.Enabled = False
Timer1.Interval = 【1000】
End Sub
Private Sub Form_Click( )
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer( )
Label1.Caption = time
End Sub
程序运行后，单击窗体，将在标签中显示当前时间，每隔1秒钟变换一次（见图）。
———————
14：54：41
———————
52174.在窗体上画一个标签（名称为Label1）和一个计时器（名称为Timer1），然后编写如下几个事件过程：
Private Sub Form_Load( )
Timer1.Enabled = False
Timer1.Interval = 1000
End Sub
Private Sub Form_Click( )
Timer1.Enabled = 【true】
End Sub
Private Sub Timer1_Timer( )
Label1.Caption = time
End Sub
程序运行后，单击窗体，将在标签中显示当前时间，每隔1秒钟变换一次（见图）。
———————
14：54：41
———————
52175.在窗体上画一个标签（名称为Label1）和一个计时器（名称为Timer1），然后编写如下几个事件过程：
Private Sub Form_Load( )
Timer1.Enabled = False
Timer1.Interval = 1000
End Sub
Private Sub Form_Click( )
Timer1.Enabled = true
End Sub
Private Sub Timer1_Timer( )
Label1.Caption = 【time】
End Sub
程序运行后，单击窗体，将在标签中显示当前时间，每隔1秒钟变换一次（见图）。
———————
14：54：41
———————
52176.ASIC在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如下两个事件过程：
Private Sub Command1_Click( )
S$ = InputBox("请输入一个字符串")
Text1.Text = S$
End Sub
Private Sub Text1_Change( )
Label1.Caption = Ucase(Mid(Text1.Text, 7))
End Sub
程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入字符串"VisualBasic"，则在标签中显示的内容是【basic】
52177.在窗体上画一个列表框、一个命令按钮和一个标签，其名称分别为List1、Command1和Label1，通过属性窗口把列表框中的项目设置为："第一个项目"、"第二个项目"、"第三个项目"、"第四个项目"。程序运行后，在列表框中选择一个项目，然后单击命令按钮，即可将所选择的项目删除，并在标签中显示列表框当前的项目数，运行情况如图所示(选择"第四个项目"的情况)。
Private Sub Command1_Click( )
If List1.ListIndex ＞＝ 【0】 Then
List1.RemoveItem List1.ListIndex
Label1.Caption = List1.ListCount
Else
MsgBox "请选择要删除的项目"
End If
End Sub
运行情况(选择"第四个项目"的情况)：
label1标签显示: 3
list1列表框显示:
————————
第一个项目
第二个项目
第三个项目
————————
52178.在窗体上画一个列表框、一个命令按钮和一个标签，其名称分别为List1、Command1和Label1，通过属性窗口把列表框中的项目设置为："第一个项目"、"第二个项目"、"第三个项目"、"第四个项目"。程序运行后，在列表框中选择一个项目，然后单击命令按钮，即可将所选择的项目删除，并在标签中显示列表框当前的项目数，运行情况如图所示(选择"第三个项目"的情况)。
Private Sub Command1_Click( )
If List1.ListIndex >= 0 Then
List1.RemoveItem List1.【listindex】
Label1.Caption = List1.ListCount
Else
MsgBox "请选择要删除的项目"
End If
End Sub
运行情况(选择"第三个项目"的情况)：
—————————————————————
第一个项目
第二个项目 COMMAND1
第三个项目 3
—————————————————————
52179.在窗体上画一个列表框、一个命令按钮和一个标签，其名称分别为List1、Command1和Label1，通过属性窗口把列表框中的项目设置为："第一个项目"、"第二个项目"、"第三个项目"、"第四个项目"。程序运行后，在列表框中选择一个项目，然后单击命令按钮，即可将所选择的项目删除，并在标签中显示列表框当前的项目数，运行情况如图所示(选择"第三个项目"的情况)。
Private Sub Command1_Click( )
If List1.ListIndex ＞＝ 0 Then
List1.RemoveItem List1.Listindex
Label1.Caption = List1.【listcount】
Else
MsgBox "请选择要删除的项目"
End If
End Sub
运行情况(选择"第三个项目"的情况)：
—————————————————————
第一个项目
第二个项目 COMMAND1
第三个项目 3
—————————————————————
52180.设有程序：
Option Base 1
Private Sub Command1_Click( )
Dim arr1, Max as Integer
arr1 = Array(12, 435, 76, 24, 78, 54, 866, 43)
【max】= arr1(1)
For I = 1 To 8
If arr1(I) ＞Max Then Max=arr1(I)
Next I
Print "最大值是: "; Max
End Sub
以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。
52181.VB预先设置好的，能够被对象识别并且能够响应的动作是(B)(单)
A.动作 B.事件 C.对象 D.属性
52182.下面是窗体的四个属性，在界面设计时，改变(D)属性值看不到窗体变化(单)
A.Top B.Width C.Left D.Enabled
52183.下面四个选项，不是窗体属性的是(D)(单)
A.MinButton B.MaxButton C.Caption D.Load
52184.下面四个选项，不是事件或语句的是(B)(单)
A.Load B.Enabled C.Unload D.DblClick
52185.用来设置窗体背景图片的属性是(B)(单)
A.Moveable B.Picture C.ForeColor D.WindowState
52186.Load事件是在窗体被装入工作区时(D)触发的事件(单)
A.用户 B.程序员 C.手工 D.自动
52187.修改控件属性，一般可以使用属性窗口，也可以通过(D)为属性赋值(单)
A.命令 B.对象 C.方法 D.代码
52188.在VB6中的每一个对象都具有自己的属性、(C)和方法(单)
A.控件 B.函数 C.事件 D.公用过程
52189.在设计VB6应用程序界面时，改变窗体下面的(C)属性看不到效果.(单)
A.Left B.Top C.Visible D.BackColor
52190.下列可作为Visual Basic的变量名的是(A)(单)
A.Delta B.Print C.Abs D.LN
52191.下列可作为Visual Basic的变量名的是(B)(单)
A.Filename B.ABC C.A％D D.Print
52192.Visual Basic中，在文本框中所允许输入的形式数是(C)(单)
A.±25.74 B.3.457E C.368 D.1.87E+50
52193.在Visual Basic中的文本框中所允许输入形式的数是(D)(单)
A.10^(1.256) B.D32 C.2.5E D.12
52194.下面(B)数写成普通的十进制数是8.6787E+8(单)
A.86787000 B.867870000 C.8678700 D.8678700000
52195.下面（B）数写成普通的十进制数是2.567E-2.(单)
A.0.0002567 B.0.02567 C.0.002567 D.0.00002567
52196.设a=2，b=3，c=4，d=5，下列表达式的值是(B)(单)
a ＞b And c＜＝d Or 2 * a＞c
A.True B.False C.-1 D.1
#52197.设a=2，b=3，c=4，d=5，下列表达式的值是(B)(单)
3 ＞2*b Or a=c And b＜＞c Or c＞d
A.-1 B.TRUE C.FALSE D.1
52198.设a=2，b=3，c=4，d=5，下列表达式的值是(D)(单)
NOT a＜＝c OR 4*c=b＾2 AND b＜＞a+c
A.-1 B.1 C.TRUE D.FALSE
52199.实现字符转换为数值的函数是(B)(单)
A.Str B.Val C.Trim D.Mid
52200.假设X=3，Y=6，Z=5，则表达式：(X^2+Y)\Z的值是(C)(单)
A.1 B.5 C.3 D.2.4
52201.假设A=3，B=7，C=2，则表达式：(A＞B) OR (B＞C)的值是(A)(单)
A.TRUE B.FALSE C.表达式错误 D.不确定
52202.在表达式y=InputBox("a","b","c")中，b为输入函数对话框的(A)(单)
A.标题 B.提示 C.默认值 D.帮助文件名
52203.假设A=3，B=7，C=2，则表达式： NOT(BA) 的值是(B)(单)
A.TRUE B.FALSE C.表达式错误 D.不确定
52204.在表达式y=InputBox("a","b","c")中，c为输入函数对话框的(C)(单)
A.标题 B.提示 C.默认值 D.帮助文件名
52205.假定Picture1和Text1分别为图片框和文本框的名称，下列不正确的语句是(C)(单)
A.Print 25 B.Picture1.Print 25
C.Text1.Print 25 D.Text1.text= 25
52206.以下语句的输出结果是(在立即窗口中)(B)(单)
(＜CR＞为回车，Δ表示空格)
a=27＜CR＞ (＜CR＞为回车，下同)
b=65＜CR＞
Print a;b ＜CR＞
A.＜CR＞27＜CR＞65 B.27 65＜CR＞
C.Δ27＜CR＞65＜CR＞ D.以上都不对
52207.以下语句的输出结果是(C)(单)
(＜CR＞为回车，Δ表示空格)
a="Beijing" ＜CR＞
b="ShangHai" ＜CR＞
Print a;b ＜CR＞
A.Beijing＜CR＞ShangHai
B.＜CR＞beijing＜CR＞ShangHai
C.BeijingShangHai＜CR＞
D.ΔBeijingΔ
52208.语句Print 5*5＼5／5的输出结果是(B)(单)
A.5 B.25 C.0 D.1
52209.设a、b、c为整型变量，其值分别为1、2、3，以下程序段的输出结果是(D)(单)
A=b:b=c:c=a
Print a;b;c
A.1 2 3 B.2 3 1 C.3 2 1 D.2 3 2
52210.语句Print Abs(6 ^ 2) + Int(-3.6 ^ 2) 的输出结果是(D)(单)
A.-36 B.1 C.-1 D.23
52211.以下语句的输出结果是(B)(单)
A=Sqr(3)
Print Format(a,"$$####.###")
A.$1.732 B.$$1.732 C.$1732 D.$$0001.732
52212.以下程序段的输出结果是(D)(单)
A=Sqr(3)
b=Sqr(2)
c=a＞b
Print c
A.-1 B.0 C.FALSE D.TRUE
52213.以下语句的输出结果是(C)(单)
Print Format$(32548.5,"000,000.00")
A.32548.5 B.32,548.5
C.032,548.50 D.32,548.50
52214.执行以下程序段后，变量c$的值为(D)(单)
a$="Visual Basic Programing"
b$="Quick"
c$=b$ & Ucase(Mid$(a$,7,6)) & Right$(a$,11)
A.Visual BASIC Programing
B.Quick Basic Programing
C.QUICK Basic Programing
D.Quick BASIC Programing
52215.表达式 4 + 5 \ 6 * 7 / 8 Mod 9 的值是(B)(单)
A.4 B.5 C.6 D.7
52216.InputBox函数返回值的类型为(B)(单)
A.数值 B.字符串 C.变体
D.数值或字符串(视输入的数据而定)
52217.在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click( )
a=InputBox$("Enter the First integer")
b=InputBox$("Enter the Second integer")
Print a+b
End Sub
程序运行后，单击命令按钮，先后在两个输入对话框中分别输入123和456，则输出结果是(D)(单)
A.579 B.123 C.456 D.123456
