更多"在窗体上画一个命令按钮,然后编写如下事件过程: Privat"的相关试题:
[单项选择]在窗体上画一个命令按钮,然后编写如下程序 Private Sub Command1_Click( ) Dim a As Integer,b As hiteger a=1 b=2 Print N(a,b) End Sub Function N(x As Integer,y As Integer)As Integer N=IIf(x>y,x,y) End Function 程序运行后,单击命令按钮,输出结果为
A. 1
B. 2
C. 5
D. 8
[填空题]在窗体上画一个命令按钮,然后编写如下事件过程:
Private Sub Commandl Click( )
Do Until b<0
a=InputBox("输入a的值")
a=Val(a)
b=InputBox("输入b的值")
b=Val(b)
a=a +b
Loop
Print a
End Sub
程序运行后,依次输入5,4,3,2,1,0,-1,-2,则输出结果是 【14】 。
[单项选择]在窗体上画一个命令按钮,然后编写如下程序:
Option Base 1
Private Sub Command1_Click( )
Dim Arr1(12)As Integer, Arr2(3)As Integer
Dim Sum As Integer
Sum = 2
For i = 1 To 12
Arr1(i)= i
Next i
For i = 1 To 3
Arr2(i)= Arr1(i * i)
Next i
For i = 1 To 3
Sum = Sum + Arr2(i)
Next i
Print Sum
End Sub
程序运行后,单击命令按钮,在窗体上的输出结果是________。
A. 16
B. 24
C. 32
D. 36
[单项选择]在窗体上画一个命令按钮,然后编写如下程序: Private Sub Comrnand3_Click( ) Cop 2 Cop 3 Cop 4 End Sub Sub Cop (a As Integer) Static x As Integer x=x + a Print x; End Sub 程序运行后,单击命令按钮,输出结果为
A. 2 3 4
B. 2 5 9
C. 3 5 4
D. 2 4 3
[单项选择]在窗体上画一个命令按钮,然后编写如下程序:
Private Sub Commandl_Click( )
Dim a AS Integer,b As Integer
a=15
b=2
t N(a,b)
End Sub
Function N(x As Integer,y As Integer) As Integer
N=IIf(x)y,x,y)
End Function
程序运行后,单击命令按钮,输出结果为
A. 1
B. 2
C. 15
D. 8
[填空题]在窗体上画一个命令按钮,然后编写如下代码:
Private Sub Commandl_Click( )
Dim M(10) As Integer
For k=1 To 10
M(k)=12-k
Next k
x=6
Msgbox M(2+M(x))
End Sub
程序运行后,单击命令按钮,消息框显示的是 。
[填空题]在窗体上画一个命令按钮,然后编写如下事件过程:
Private Sub Command1 Click( )
Do Until b<O
a=InputBox("输入a的值")
a=Val(A)
b=InputBox("输入b的值")
b=Val(B)
a=a+b
Loop
Print a
End Sub
程序运行后,依次输入5,4,3,2,1,0,-1,-2,则输出结果是 【12】 。
[填空题]在窗体上画一个命令按钮,然后编写如下事件过程:
Private Sub Commandl_Click( )
Do Until b【14】。
[单项选择]在窗体上画一个命令按钮,然后编写如下事件过程:
Private Sub Command1_Click( )
Dim I,Num
Randomize
Do
ForI=1 To 1000
Num=Int(Rnd*100)
Print Num;
SelectCase Num
Case 12
Exit For
Case 58
Exit Do
Case 65,68,92
End
End Select
Next I
Loop
End Sub
上述事件过程执行后,下列描述中正确的是
A. Do循环执行的次数为1000次
B. 在For循环中产生的随机数小于或等于100
C. 当所产生的随机数为12时结束所有循环
D. 当所产生的随机数为65、68或92时窗体关闭、程序结束
[单项选择]在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Commandl_Click( ) s=1 Do s=(s + 1) * (s + 2) Number=Number + 1 Loop Until s> = 30 Print Number,s End Sub 程序运行后,输出的结果是
A. 2 3
B. 2 56
C. 5 12
D. 10 20