(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
(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
(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类型的两个数据元素写到文件中
(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
(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)
(26) 在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程：东方教育网提供 Http://www.eastedu.com.cn
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整除的数
(27) 在以下描述中正确的是
A) 标准模块中的任何过程都可以在整个工程范围内被调用
B) 在一个窗体模块中可以调用在其他窗体中被定义为Public的通用过程
C) 如果工程中包含Sub Main过程，则程序将首先执行该过程
D) 如果工程中不包含Sub Main过程，则程序一定首先执行第一个建立的窗体
(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
(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
(30) 在窗体上画四个文本框（如图所示），并用这四个文本框建立一个控件数组，名称为Text1（下标从0开始，自左至右顺序增大），然后编写如下事件过程：
Private Sub Command1_Click()
For Each TextBox In Text1
Text1(i) = Text1(i).Index
i = i + 1
Next
End Sub
程序运行后，单击命令按钮，四个文本框中显示的内容分别为
A) 0 1 2 3 B) 1 2 3 4
C) 0 1 3 2 D) 出错信息
转贴于：计算机二级考试_考试大
【责编:onmars 纠错】
[1] [2] [3] [4] [5] 
相关文章
2004-5-30
