21、窗体上有一个名称为Co mmand1的命令按钮，其事件过程如下：
Private Sub Co mmand1＿Click（）
Di mi As Integer ，j As Integer ，k As Integer
Di ms As Double
s ＝0：i ＝1：j＝0：k ＝－1
Do While i ＜6
s ＝s ＋k＊（j／i）
i ＝i ＋1
j＝j＋1
k ＝－k
Loop
Print s
End Sub
以上程序所计算的表达式是（ ）。
A．1／2－2／3＋3／4－4／5
B．－1／2＋2／3－3／4＋4／5
C．1－1／2＋2／3－3／4＋4／5
D．－1＋1／2－2／3＋3／4－4／5
22、在窗体上画两个文本框（其Name 属性分别为Text1和Text2）和一个命令按钮（其Name 属性为Co mmand1），然后编写如下事件过程：
Private Sub Co mmand1＿Click（）
x＝0
Do While x＜50
x＝（x＋2）＊（x＋3）
n ＝n ＋1
Loop
Text1．Text ＝Str（n）
Text2．Text ＝Str（x）
End Sub
程序运行后，单击命令按钮，在两个文本框中显示的值分别为（ ）。
A．1和0
B．2和72
C．3和50
D．4和168
23、某人编写了如下程序，用来求10个整数（整数从键盘输入）中的最大值：
Private Sub Co mmand1＿Click（ ）
Di ma（10）As Integer ，max As Integer
For k ＝1TO 10
a（K）＝InputBox（＂输入一个整数＂）
Next k
Max＝0
For k ＝1To 10
If a（k）＞max Then
Max＝a（k）
End If
Next k
Print max
End Sub
运行程序时发现，当输入10个正数时，可以得到正确结果，但输入10个负数时结果是错误的，程序需要修改，下面的修改中可以得到正确运行结果的是（ ）。
A．把If a（k）＞max Then 改为If a（k）＜max Then
B．把max＝a（k）改为a（k）＝max
C．把第2个循环语句For k ＝1TO 10改为For k ＝2TO 10
D．把max＝0改为max＝a（10）
24、在窗体上画两个标签和一个命令按钮，其名称分别为Label1、Label2和Co mmand1，然后编写下列程序：
Private Sub func（LAs Label）
L .Caption ＝＂1234＂
End Sub
Private Sub Form＿Load（）
Label1．Caption ＝＂ABCDE＂
Label2．Caption ＝10
End Sub
Private Sub Co mmand1＿Click（）
a＝Val（Label2．Caption）
Call func（Label1）
Label2．Caption ＝a
End Sub
程序运行后，单击命令按钮，则在两个标签中显示的内容分别为（ ）。
A．ABCD 和10
B．1234和100
C．ABCD 和100
D．1234和10
<--Next-->在窗体上画一个命令按钮（名称为Co mmand1），并编写下列代码：
Function Funl （ByVal a As Integer ，b As Integer）As Integer
Di mt As Integer t ＝a－b
b ＝t ＋a
Funl ＝t ＋b
End Function
Private Sub Co mmand1＿Click（）
Di mx As Integer
x＝10
Print Funl（Funl（x，（Funl（x，x－1））），x－1）
End Sub
程序运行后，单击命令按钮，输出结果是（ ）。
A．10
B．0
C．11
D．21
25、要在命令按钮控件上显示图像应（ ）。
A．设置Picture 属性
B．实现不了
C．先将Style 设置为1，然后再设置Picture 属性
D．以上都不对
26、窗体上有一个名称为CD1的通用对话框，一个名称为Co mmand1的命令按钮。命令按钮的单击事件过程如下：
Private Sub Co mmand1＿Click（）
CD1．File Name ＝＂＂
CD1．Filter ＝＂All Files｜＊．＊｜（＊．Doc）｜＊．Doc｜（＊．Txt）｜＊．Txt＂
CD1．FilterIndex＝2
CD1．Action ＝1
End Sub
关于以上代码，叙述错误的是（ ）。
A．执行以上事件过程，通用对话框被设置为"打开"文件对话框
B．通用对话框的初始路径为当前路径
C．通用对话框的默认文件类型为＊．Txt
D．以上代码不对文件执行读写操作
27、可以产生30～50(含30和50)之间的随机整数的表达式是( )。
A．Int(Rnd*21+30)
B．Int(Rnd*20+30)
C．Int(Rnd*50-Rnd*30)
D．Int(RND*30+50)
28、在窗体上建立通用对话框需要添加的控件是（ ）。
A．Data 控件
B．Fro m 控件
C．Co mmonDialog 控件
D．VBCo mboBox 控件
29、设在菜单编辑器中定义了一个菜单项，名为Menu1。为了在运行时隐藏该菜单项，应使用的语句是（ ）。
A．Menu1．Enabled ＝True
B．Menu1．Enabled ＝False
C．Menu1．Visi ble ＝True
D．Menu1．Visi ble ＝False
30、声明一个变量为局部变量应该用（ ）。
A．Global
B．Private
C．Static
D．Public
