(21) 设有如下程序：
Option Base 0
Private Sub Form_Click()
Dim a
Dim i As Integer
a=Array(1,2,3,4,5,6,7,8,9)
For i=0 To 3
Print a(5-i);
Next
End Sub
程序运行后，单击窗体，则在窗体上显示的是
A) 4 3 2 1 B) 5 4 3 2 C) 6 5 4 3 D) 7 6 5 4
(22) 下列叙述中正确的是
A) 在窗体的Form_Load事件过程中定义的变量是全局变量
B) 局部变量的作用域可以超出所定义的过程
C) 在某个Sub过程中定义的局部变量可以与其它事件过程中定义的局部变量同名，但其作用域只限于该过程
D) 在调用过程时，所有局部变量被系统初始化为0或空字符串
(23) 在窗体上画一个命令按钮，名称为Command1。程序运行后，如果单击命令按钮，则显示一个输入对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程F1。在F1中判断所输入的整数是否是奇数，如果是奇数，过程F1返回1，否则返回0。能够正确实现上述功能的代码是
A) Private Sub Command1_Click()
x=InputBox(“请输入整数”)
a=F1(Val(x))
Print a
End Sub
Function F1(ByRef b As Integer)
If b Mod 2=0 Then
Return 0
Else
Return 1
End If
End Function
B) Private Sub Command1_Click()
x=InputBox(“请输入整数”)
a=F1(Val(x))
Print a
End Sub
Function F1(ByRef b As Integer)
If b Mod 2=0 Then
F1=0
Else
F1=1
End If
End Function
C) Private Sub Command1_Click()
x=InputBox(“请输入整数”)
F1(Val(x))
Print a
End Sub
Function F1(ByRef b As Integer)
If b Mod 2=0 Then
F1=1
Else
F1=0
End If
End Function
D) Private Sub Command1_Click()
x=InputBox(“请输入整数”)
F1(Val(x))
Print a
End Sub
Function F1(ByRef b As Integer)
If b Mod 2=0 Then
Return 0
Else
Return 1
End If
End Function
(24) 在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下程序：
Private Sub Command1_Click()
Dim x,y,z As Integer
x=5
y=7
z=0
Text1.text=“”
Call P1(x,y,z)
Text1.Text=Str(x)
End Sub
Sub P1(ByVal a As Integer,ByVal b As Integer,c As Integer)
c=a+b
End Sub
程序运行后，如果单击命令按钮，则在文本框中显示的内容是
A) 0 B) 12 C) Str(z) D) 没有显示
(25) 以下叙述中错误的是
A) 如果过程被定义为Static类型，则该过程中的局部变量都是Static类型
B) Sub过程中不能嵌套定义Sub过程
C) Sub过程中可以嵌套调用Sub过程
D) 事件过程可以像通用过程一样由用户定义过程名
(26) 以下叙述中错误的是
A) 在KeyUp和KeyDown事件过程中，从键盘上输入A或a被视作相同的字母(即具有相同的KeyCode)
B) 在KeyUp和KeyDown事件过程中，将键盘上的“1”和右侧小键盘上的“1”视作不同的数字(具有不同的KeyCode)
C) KeyPress事件中不能识别键盘上某个键的按下与释放
D) KeyPress事件中可以识别键盘上某个键的按下与释放
(27) 以下叙述中错误的是
A) 在同一窗体的菜单项中，不允许出现标题相同的菜单项
B) 在菜单的标题栏中，“&”所引导的字母指明了访问该菜单项的访问键
C) 程序运行过程中，可以重新设置菜单的Visible属性
D) 弹出式菜单也在菜单编辑器中定义
(28) 设在菜单编辑器中定义了一个菜单项，名为menu1。为了在运行时隐藏该菜单项，应使用的语句是
A) menu1.Enabled=True B) Munu1.Enabled=False
C) Menu1.Visible=True D) Menu1.Visible=False
(29) 以下叙述中错误的是
A) 在程序运行时，通用对话框控件是不可见的
B) 在同一个程序中，用不同的方法(如ShowOpen或ShowSave等）打开的通用对话框具有不同的作用
C) 调用通用对话框控件的ShowOpen方法，可以直接打开在该通用对话框中指定的文件
D) 调用通用对话框控件的ShowColor方法，可以打开颜色对话框
责任编辑：cyth
