单选题在窗体上画一个按钮，然后编写如下的事件代码。在按钮上单击，输出为( )。 Private Sub func(a As Integer) Static m As Integer m=m+a Print m； End Sub， Private Sub Command1_Click() Dim k As Integer k=4 Call func(k) Call func(k) End Sub
单选题窗体上有两个单选按钮和两个复选框，它们的名称和它们的Caption属性相同。要使这些控件显示成如图20-7所示的状态，可在Form_Load事件中执行()。
单选题在文本框中，当用户键入一个字符，能同时引发的事件是 A) KeyPress和Click B) KeyPress和LostFocus C) KeyPress和Change D) Change和LostFocous
单选题以下叙述中错误的是
单选题有下列二叉树，对此二叉树前序遍历的结果为{{U}} {{/U}}。
A. ACFXDBEYZ
B. ABEFXYZCD
C. ABCDEFXYZ
D. ABDYECFXZ
单选题假定有下面的程序段： For i=1 To 3 For j=1 To
i For k=j To 3 Print
"i="；i，"j="；j，"k="；k Next k Next j
Next i 这是一个三重循环程序，在这个程序中，外层、中层和内层循环的循环次数是______。
A. 3、6和14
B. 3、8和16
C. 3、4和12
D. 3、9和18
单选题下面程序运行时，若输入“Visual Basic Programming”，则在窗体上输出的是______。
Private Sub Commandl_Click() Dim count (25) As
Integer,ch As String ch-UCase(InputBox(“请输入字母字符串”))
For k=1 To Len(ch) n=Asc (Mid
(ch,k,1))-Asc("A") If n＞=0 Then count
(n)=count (n)+1 End If Next k
m=count (0) For k=1 To 25 If m＜count (k)
Then m=count (k) End If Next
k Print m End Sub
A.0
B.1
C.2
D.3
单选题对象名.Cls方法对{{U}} {{/U}}控件有效。
A. 窗体、图像框
B. 窗体、图片框
C. 屏幕、窗体
D. 图像框、图片框
单选题为了在Form_Load事件过程中用Print方法在窗体上输出指定的内容，首先应执行的操作是
单选题窗体上有Text1、Text2两个文本框及一个命令按钮Command1，编写下列程序： Dim y As Integer Private Sub Command1_Click() Dim x As Integer x=2 Text1.Text=Fun2(Fun1(x),y) Text2.Text=Fun1(x) End Sub Private Function Fun1(x As Integer) As Integer x=x+y:y=x+y Fun1=x+y End Function Private Function Fun2(x As Integer，y As Integer) As Integer Fun2=2*x+y End Function 当单击1次和单击2次命令按钮后，文本框Text1和Text2内的值分别是 Ａ) 2 4 2 4 Ｂ) 2 4 4 8 Ｃ) 10 10 58 58 Ｄ) 4 4 8 8
单选题假定有如下的Sub过程：Sub Sub1 (x As Single, y As Single)
t=x x = t/y y = t Mod yEnd Sub
在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_ Click()
Dim a As Single Dim b As Single a =
5 b = 4 Sub1 a, b Print a; b
End Sub 程序运行后，单击命令按钮，输出结果为______。
A. 5 4
B. 1 1
C. 1.2 5.4
D. 1.25 1
单选题下列关于类、对象、属性和方法的叙述中，错误的是( )。
单选题有如下程序：
Private Sub Form_Click()
Dim i As Integer, n As Integer
For i=1 To 20
i=i+4:n=n+i
If i＞10 Then Exit For
Next
Print n
End Sub
程序运行后，单击窗体，则输出结果是
单选题假定程序中有如下语句：
answer = MsgBox("第一个字符串"，vbAbortRetryIgnore Or vbCritical _Or vbDefaultButton3，"第二个字符串")
执行该语句后，将显示一个信息框，此时如果按回车键，则answer的值为________。
单选题在窗体上画一个名称为Command1的命令按钮，并编写如下程序：
Private Type Record
ID As Integer
Name As String
*
20
End Type
Private Sub Command1_Cilck()
Dim MaxSiza, NextChar, MyChar
Open "d:/temp/female. txt" For Input As #1
MaxSize=LOF(1)
For NextChar=MaxSize To 1 Step-1
MyChar=Input(1, #1)
Next NextChar
Print EOF(1)
Close#1
End Sub
运行程序，单击命令按钮，其输出结果为______。
单选题Print方法可以在对象上输出数据，这些对象包括( )。 A) 图片框 B) 状态栏 C) 标题栏 D) 代码窗口
单选题以下声明数组和给数组赋值的语句中，正确的是( )。
单选题有如下的程序段，该程序段执行完后，共执行的循环次数是 total=0 Counter=1 Do Print
Counter total=total * Counter + 1 Print total Counter=Counter
+1 If total ＞ 10 Then Exit Do End If Loop While
Counter＜=10
A. 4
B. 10
C. 15
D. 20
单选题有如下程序：
Private Sub Form_Click()
Dim Check, Counter
Check=True
Counter=0
Do
Do While Counter＜20
Counter=Counter+1
If Counter=10 Then
Check=False
Exit Do
End If
Loop
Loop Until Check=False
Print Counter, Check
End Sub
程序运行后，单击窗体，输出结果为______。
单选题阅读程序：
Private Sub Form Click
____
Dim num As Integer, digit As Integer
num=InputBox("输入数据")
Do While num＜＞0
digit=num Mod 10
num=num/10
Print digit；
Loop
End Sub
程序运行后，如果从键盘上输入12345，则输出结果为______。