(21)在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码：
Option Base 1
Private Sub Command1_Click()
Dima
s=0
a=Array(1,2,3,4); j=1
For i=4 To 1 Step-1
s=s+a(i)*j
j=j*10
Next i
Print s
EndSub
运行上面的程序，单击命令按钮，其输出结果是
A)4321
B)1234
C)34
D)12
正确答案: B
(22)在窗体上画一个名称为Text1的文本框，要求文本框只能接收大写字母的输入。以下能实现该操作的事件过程是A)Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii<65 OrKeyAscii>90 Then
MsgBox"请输入大写字母"
KeyAscii=0
EndIf
End Sub
B)Private Sub Text1_KeyDown(KeyCode As Integer, Shift AsInteger)
If KeyCode<65 Or KeyCode>90 Then
MsgBox"请输入大写字母"
KeyCode=0
End If
End Sub
C)Private SubText1_MouseDown(Button As Integer,_
Shift As Integer, X As Single, YAs Single)
If Asc(Text1.Text)<65 Or Asc(Text1.Text)>90Then
MsgBox"请输入大写字母"
End If
End Sub
D)Private SubText1_Change()
If Asc(Text1.Text)>64 And Asc(Text1.Text)<91Then
MsgBox"请输入大写字母"
End If
End Sub
正确答案: A
(23)假定在窗体(名称为Form1)的代码窗口中定义如下记录类型：
Private Type animal
animalName AsString *20
aColor As String *10
EndType
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim rec As animal
Open "c:＼vbTest.dat"For Random As #1 Len=Len(reC)
rec.animalName="Cat"
rec.aColor="White"
Put #1,,rec
Close #1
End Sub
则以下叙述中正确的是
A)记录类型animal不能在Form1中定义，必须在标准模块中定义
B)如果文件c:＼vbTest.dat不存在，则Open命令执行失败
C)由于Put命令中没有指明记录号，因此每次都把记录写在文件的末尾
D)语句"Put #1,,rec"将animal类型的两个数据元素写到文件中
正确答案: D
(24)在窗体上画一个名称为Text1的文本框，一个名称为Command1的命令按钮，然后编写如下事件过程和通用过程：
Private SubCommand1_Click()
n=Val(Text1.Text)
If n＼2=n/2 Then
f=f1(n)
Else
f=f2(n)
End If
Print f;n
End Sub
PublicFunction f1(ByRef x)
x=x*x
f1=x+x
End Function
PublicFunction f2(ByVal x)
x=x*x
f2=x+x+x
EndFunction
程序运行后，在文本框中输入6，然后单击命令按钮，窗体上显示的是
A)72 36
B)108 36
C)72 6
D)108 6
正确答案: A
(25)在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
c=1234
c1=Trim(Str(C))
For i=1 To 4
PrintNext
EndSub
程序运行后，单击命令按钮，要求在窗体上显示如下内容：
1
12
123
1234
则在下划线处应填入的内容为
A)Right(c1,i)
B)Left(c1,i)
C)Mid(c1,i,1)
D)Mid(c1,i,i)
正确答案: B
责任编辑：小草
