(21) 在窗体上画一个命令按钮(其Name属性为Command1) ，然后编写如下代码：
Option Base 1
Private Sub Command1_Click()
Dim a
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
End Sub
运行上面的程序，单击命令按钮，其输出结果是
A) 4321
B) 1234
C) 34
D) 12
正确答案: B
(22) 在窗体上画一个名称为Text1的文本框，要求文本框只能接收大写字母的输入。以下能实现该操作的事件过程是A) Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii<65 Or KeyAscii>90 Then
MsgBox"请输入大写字母"
KeyAscii=0
End If
End Sub
B) Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode<65 Or KeyCode>90 Then
MsgBox"请输入大写字母"
KeyCode=0
End If
End Sub
C) Private Sub Text1_MouseDown(Button As Integer,_
Shift As Integer, X As Single, Y As Single)
If Asc(Text1.Text) <65 Or Asc(Text1.Text) >90 Then
MsgBox"请输入大写字母"
End If
End Sub
D) Private Sub Text1_Change()
If Asc(Text1.Text) >64 And Asc(Text1.Text) <91 Then
MsgBox"请输入大写字母"
End If
End Sub
正确答案: A
(23) 假定在窗体(名称为Form1) 的代码窗口中定义如下记录类型：
Private Type animal
animalName As String *20
aColor As String *10
End Type
在窗体上画一个名称为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 Sub Command1_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
Public Function f1(ByRef x)
x=x*x
f1=x+x
End Function
Public Function f2(ByVal x)
x=x*x
f2=x+x+x
End Function
程序运行后，在文本框中输入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
Print
Next
End Sub
程序运行后，单击命令按钮，要求在窗体上显示如下内容：
1
12
123
1234
则在下划线处应填入的内容为
A) Right(c1,i)
B) Left(c1,i)
C) Mid(c1,i,1)
D) Mid(c1,i,i)
正确答案: B
(26) 在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程：
Private Sub Command1_Click()
n=Val(Text1.Text)
For i=2 To n
For j=2 To Sqr(i)
If i Mod j=0 Then Exit For
Next j
If j>Sqr(i) Then Print i
Next i
End Sub
该事件过程的功能是
A) 输出n 以内的奇数
B) 输出n 以内的偶数
C) 输出n 以内的素数
D) 输出n以内能被j整除的数
正确答案: C
(27) 以下描述中正确的是
A) 标准模块中的任何过程都可以在整个工程范围内被调用
B) 在一个窗体模块中可以调用在其他窗体中被定义为Public的通用过程
C) 如果工程中包含Sub Main过程，则程序将首先执行该过程
D) 如果工程中不包含Sub Main过程，则程序一定首先执行第一个建立的窗体
正确答案: B
(28) 在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程：
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
Print s
End Sub
程序运行后，单击命令按钮，在窗体上显示的是
A) 11
B) 10
C) 9
D) 8
正确答案: C
(29) 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim array1(10,10) As Integer
Dim i As Integer, j As Integer
For i=1 To 3
For j=2 To 4
array1(i,j) =i+j
Next j
Next i
Text1.Text=array1(2,3) +array1(3,4)
End Sub
程序运行后，单击命令按钮，在文本框中显示的值是
A) 15
B) 14
C) 13
D) 12
正确答案: D
(30) 在窗体上画4个文本框(如图所示) 并用这4个文本框建立一个控件数组，名称为Text1(下标从0开始，自左至右顺序增大) ，然后编写如下事件过程：
Private Sub Command1_Click()
For Each TextBox In Text1
Text1(i) =Text1(i) Index
i=i+1
Next
End Sub
程序运行后，单击命令按钮，4个文本框中显示的内容分别为
A) 0 1 2 3
B) 1 2 3 4
C) 0 1 3 2
D) 出错信息
正确答案: A
希望与更多计算机等级考试的网友交流，请进入计算机等级考试论坛
更多信息请访问：考试吧计算机等级考试栏目
