单选题窗体上有一个名称为Command1的命令按钮，一个名称为Text1的文本框。编写如下程序：
Private Sub Command1_Click()
Dim x As Integer
x=Val(InputBox("输入数据")):Text1=Str(x+fun(x)+fun(x))
End Sub
Private Function fun(ByRef n As Integer)
If n Mod 3=0 Then
n=n+n
Else
n=n*n
End If
fun=n
End Function
对于上述程序，以下叙述中错误的是
单选题从键盘上输入一个实数nu，利用字符串函数对该数进行处理，如果输出的内容不是字符END，则程序输出的内容是______。
nu=InputBox ("nu=")
n $ =Str $ (nu)
p=InStr (n $ , ".")
If p＞0 Then
Print Mid $ (n $ , p)
Else
Print "END"
End If
单选题在窗体上画一个命令按钮，然后编写如下过程，程序运行后，单击命令按钮，在输入对话框中输入234，输出结果为 ______。 Function fun(ByVal num As Long) As Long Dim k As Long k=1 mum=Abs(num) Do While num k=k*(num Mod 10) num=num/10 Loop fun=k End Function Private Sub Command1_Click() Dim n As Long Dim r As Long n=InputBox("请输入一个数") n=CLng(n) r=fun(n) Print r End Sub
单选题把窗体的KeyPreview属性设置为True，然后编写如下事件过程：
Private Sub Form_KeyPress(KeyAscii As Integer)
Dim Ch As String
Ch=Chr(KeyAscii)
KeyAscii=Asc(UCase(Ch))
Print Chr(KeyAscii+2)
End Sub
程序运行后，按键盘上的“A”键，则在窗体上显示的内容是______。
单选题下列关于For…Next语句的说法正确的是( )。
单选题设树T的度为4，其中度为1、2、3、4的结点个数分别为4、21、1，则T中的叶子结点数为{{U}} {{/U}}。
A. 8
B. 7
C. 6
D. 5
单选题下面语句正确的是（ ）。
单选题假定通用对话框的名称为CD1，命令按钮的名称为Command1，则单击命令按钮后，能使打开对话框的标题为“通用对话框”的事件过程是( )。
单选题窗体上有一个名为Command1的命令按钮，并有下面的程序：
Private Sub Command1_Click()
Djm arr(5) As Integer
For k=1 To 5
arr(k)=k
Next k
prog arr()
For k=1 To 5
Print arr(k);
Next k
End Sub
Sub prog(a()As Integer)
n=UBound(A)
For i=n To 2 step-1
For j=1 To n-1
if a(j)＜a(j+1)Then
t=a(j):a(j)=a(j+1):a(j+1)=t
End If
Next j
Next i
End Sub
程序运行时，单击命令按钮后显示的是______。
单选题设有下面的循环： i=1 Do i=i+3 Print i Loop Until i＞____ 程序运行后要执行3次循环体，则条件中i的最小值为( )。 A) 6 B) 7 C) 8 D) 9
单选题单击按钮时，以下列程序运行后的输出结果是 Private Sub proc1(x As Integer，y As Integer，z As Integer) x=3*z y=2*z z=X+y End Sub Private Sub Command1_Click( ) Dim x As Integer，y As Integer，z As Integer x=1：y=2：z=3 Call proc1(x，x，2) Print x；x；z Call proc1(x，y，y) Print x；y；y End Sub
单选题窗体上有名称为Command1的命令按钮，其事件过程如下： Option Base1 Private Sub Command1_Click() Dim a Dim b(10)As Integer a=Array(2，4，7，3，9，6) For i=LBound(a)To UBound(a) b(i)=a(i)+i Sum=Sum+b(i) Next i Print Sum End Sub 运行程序，单击命令按钮时，窗体上显示的是
单选题当将______属性设置为True时，可以滚动和选择控件中的文本，但不能编辑。
单选题在黑盒测试方法中，设计测试用例的主要根据是( )。
单选题某人在窗体上画了一个名称为Timer1的计时器和一个名称为Lab的属性设置为Enabled=True，Interval=0，并编程如下。希望在每2秒在标签上显示一次系统当前时间。
Private Sub Timer1_Timer()
Label1.Caption=Time
End Sub
在程序执行时发现未能实现上述目的，那么，他应做的修改是______。
单选题运行下列程序： Private Sub Command1_Click()
x = 0 Do While x＜10
x=x * x + 1 y=y+x
Loop MsgBox y End Sub
单击Command1命令按钮后，弹出的消息对话框中会显示
A. 5
B. 8
C. 26
D. 34
单选题如果要在程序代码中为图片框动态加载或清除图形，可以通过{{U}} {{/U}}函数来实现。
A. InputBox
B. Input
C. LoadPicture
D. PaintPicture
单选题阅读下列程序。
Private Sub Command1_Click()
Dim i As Integer，k As Integer
k=2
For i=1 To 3
Print Fun(k)；
Next
End Sub
Function Fun(j As Integer)
Static b
a=0
a=a + 1
b=b + 1
Fun=a*b+j
End Function
程序运行后，单击命令按钮输出结果是
单选题如果要在窗体上使用2组单选按钮，每组都可以有一个被选中，则应该做的是
单选题在窗体上画一个命令按钮，然后编写如下时间过程______。
Print Sub Command1_Click()
a=InputBox("Enter the First interger")
b=InputBox("Enter the Second interger")
Print b+a
End Sub
程序运行后，单击命令按钮，先后在两个输入对话框中分别输入456和123，则输出结果是