一、程序题
1.写出下面程序的运行结果(10分)
1. Private Sub Command1_Click()
x = 0
n = InputBox("")
For i = 1 To n
For j = 1 To i
x = x + 1
Next j
Next i
Print x
End Sub
程序运行后，单击命令按钮，如果输入3，则在窗体上显示的内容是:
2. Private Function f(m As Integer)
If m Mod 2 = 0 Then
f = m
Else
f = 1
End If
End Function
Private Sub Command1_Click()
Dim i As Integer
s = 0
For i = 1 To 5
s = s + f(i)
Next i
Print s
End Sub
单击命令按钮后，程序的运行结果为：
1、6
2、9
二、填空题
1. 有如下程序：
Private Function func(ByVal a As Integer, ByVal b As Integer)
func = a + b
End Function
Private Sub Command1_Click( )
Dim x As Integer, y As Integer
Dim z As Integer, r As Integer
x = 2 : y = 5 : z = 8
r = func(func(x,y),z)
Print r
End Sub
当在Command1按钮上单击，该程序的输出结果是( )
(A)12 (B)13 (C)14 (D)15
2. 设有如下通用过程：
Public Sub Fun(a( ), ByVal x As Integer)
For i = 1 To 5
x = x + a(i)
Next
End Sub
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click( )
Dim art(5) AsVariant
For i = 1 To 5
art(i) = i
Next i
n = 10
Call Fun(art( ), n)
= n
End Sub
程序运行后，单击命令按钮，在文本框中显示的内容为( )
(A)10 (B)15 (C)25 (D)24
3. 要为工程添加一个过程，可执行“( )”菜单中的“添加过程”
(A)文件 (B)视图 (C)工程 (D)工具
4. 以一关于键盘事件中，叙述错误的是( )
(A) 在KeyUp和KeyDown事件过程中，从键盘上输入A或a被视作相同的字母(即具有相同的KeyCode)
(B) 在KeyUp和KeyDown事件过程中，将键盘上的“1”和右侧小键盘上的“1”视作不同的数字(即具有不同的KeyCode)
(C) KeyPress事件中不能识别键盘上某个键的按下与释放
(D) KeyPress事件中可以识别键盘上某个键的按下与释放
5. 以下关于菜单的叙述中错误的是( )
(A) 在同一个窗体的菜单项中，不允许出现标题相同的菜单项
(B) 在菜单的标题栏中，“&”所引导的字母指明了访问该菜单项的键盘访问键
(C) 程序运行过程中，可以重新设置菜单的“Visual”属性
(D) 弹出式菜单也在菜单编辑器中定义
6. 有一个菜单项名为Menu123，若想在程序运行的过程中选中该菜单项，即在该菜单项前面显示“√”，可执行下面的( )语句
(A)led = True (B)led = False
(C)ked = True (D)ked = False
7. 可通过“打开”对话框的( )属性设置对话框中所显示文件的类型
(A)FileName (B)Filter (C)FilterIndex (D)InitDir
8. 以一关于通用对话框控件的叙述中错误的是( )
(A) 在程序运行时，通用对话框控件是不可见的
(B) 在同一个程序中，用不同的方法(如ShowOpen或ShowSave等)打开的通用对话框具有不同的作用
(C) 调用通用对话框控件的`ShowOpen方法，可以直接打开在该通用对话框中指定的文件
(D) 调用通用对话框控件的ShowColor方法，可以打开颜色对话框
9. 在显示颜色对话框之前必须设置( )属性，否则将发生不存在字体的错误
(A)FontName (B)FontSize (C)Max (D)Flags
10. 以一叙述中错误的是( )
(A) 一个工程中只能有一个Sub Main过程
(B) 窗体的Show方法的作用是将指定的窗体装入内存并显示该窗体
(C) 窗体的Hide方法和Unload方法的作用完全相同
(D) 若工程文件中有多个窗体，可以根据需要指定一个窗体为启动窗体
学识谷
