(22)设有命令按钮Command1的单击事件过程，代码如下：
Private Sub Command1_Click()
Dim a(3，3)As Integer
For i=1 To 3
For j=1 To 3
a(i，j)=i*j+i
Next j
Next i
Sum=0
For i=1 To 3
Sum=Sum+a(i，4-i)
Next i
Print Sum
End Sub
运行程序，单击命令按钮，输出结果是。
A．20
B．7
C．16
D．17
(23)在窗体上画1个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
a=0
For i=1 To 2
For j=1 To 4
If j Mod 2<>0 Then
a=a-1
End If
a=a+1
Next j
Next i
Print a
End Sub
程序运行后，单击命令按钮，输出结果是。
A．0
b．2
C．3
D．4
(24)窗体上有名称分别为Text1、Text2的2个文本框，有一个由3个单选按钮构成的控件数组Option1，如图1所示。程序运行后，如果单击某个单选按钮，则执行Text1中的数值与该单选按钮所对应的运算(乘以1、10或100)，并将结果显示在Text2中，如图2所示。为了实现上述功能，在程序中的问号(?)处应填入的内容是。
图1图2 Private Sub Option1_Click(Index As Integer)
If Text1.Text<>""Then
Select Case ?
Case 0
Text2.Text=Val(Text1.Text)
Case 1
Text2.Text=Val(Text1.Text)*10
Case 2
Text2.Text=Val(Text1.Text)*100
End Select
End If
End Sub
A．Index
b．Option1.Index
C．Option1(Index)
D．Option1(Index).Value
(25)在窗体上画1个命令按钮，其名称为Command1，然后编写如下程序：
Private Sub Command1_Click()
Dim a(10)As Integer
Dim x As Integer
For i=1 To 10
a(i)=8+i
Next
x=2
Print a(f(x)+x)
End Sub
Function f(x As Integer)
x=x+3
f=x
End Function
程序运行后，单击命令按钮，输出结果为。
A．12
b．15
C．17
D．18
2006年4月笔试试卷第5页(共12页)2006年4月笔试试卷第6页(共12页)(26)以下关于过程的叙述中，错误的是。
A．事件过程是由某个事件触发而执行的过程
B．函数过程的返回值可以有多个
C．可以在事件过程中调用通用过程
D．不能在事件过程中定义函数过程
(27)在窗体上画3个标签、3个文本框(名称分别为Text1、Text2和Text3)和1个命令按钮(名称为Command1)，外观如图所示。
编写如下程序：
Private Sub Form_Load()
Text1.Text=""
Text2.Text=""
Text3.Text=""
End Sub
Private Sub Command1_Click()
x=Val(Text1.Text)
y=Val(Text2.Text)
Text3.Text=f(x，y)
End Sub
Function f(ByVal x As Integer,ByVal y As Integer)
Do While y<>0
tmp=x Mod y
x=y
y=tmp
Loop
f=x
End Function
运行程序，在Text1文本框中输入36，在Text2文本框中输入24，然后单击命令按钮，则在Text3文本框中显示的内容是。
A．4
b．6
C．8
D．12
(28)窗体上有名称分别为Text1、Text2的2个文本框，要求文本框Text1中输入的数据小于500，文本框Text2中输入的数据小于1000，否则重新输入。为了实现上述功能，在以下程序中问号(?)处应填入的内容是。
Private Sub Text1_LostFocus()
Call CheckInput(Text1，500)
End Sub
Private Sub Text2_LostFocus()
Call CheckInput(Text2，1000)
End Sub
Sub CheckInput(t As ?，x As Integer)
If Val(t.Text)>x Then
MsgBox"请重新输入!"
End If
End Sub
A．Text
b．SelText
C．Control
D．Form |
