更多"阅读以下程序:
Private Sub Form_click( )"的相关试题:
[填空题]阅读以下程序:
Private Sub Form click( )
Dim k,n, m As integer
n=10
m=1
k=1
Do While k<=n
m=m+2
k=k+1
Loop
Print m
End Sub
单击窗体程序的执行结果是 【10】 。
[填空题]阅读以下程序:
Private Sub Form_click( )
Dim k, n, m As integer
n = 20
m = 1
k = 1
Do While k <= n
m=m+2
k = k + 1
Loop
Print m
End Sub
单击窗体程序的执行结果是 【4】 。
[填空题]阅读以下程序:
Private Sub Form_click( )
Dim k,n,m As integer
n=10
m=1
k=1
Do While k<=n
m=m+2
k=k+1
Loop
Print m
End Sub
单击窗体程序的执行结果是 【10】 。
[单项选择]阅读下列程序:
Private Sub Form Click( )
Dim i As Integer, sum As Integer
For i = 2 To 10
If i Mod 2 <> 0 Then
Print i;
Else
sum = sum + i
End If
Next i
Print sum
End Sub
程序运行后,单击窗体,在窗体上的输出结果是
A. 3 5 7 9 30
B. 1 3 5 7 9
C. 2 4 6 8 20
D. 11 15 17 19 20
[单项选择]阅读下列程序:
Private Sub Command1_Click( )
Dim i As Integer,k As Integer
k=2
For i=1 To 3
Print H(k);
Next i
End Sub
Function H(j As Integer)
a=0
Static b
a=a+1
b=b+1
H=a*b+j
End Function
程序运行后,单击命令按钮输出结果是
A. 234
B. 345
C. 567
D. 356
[单项选择]阅读程序:
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,则输出结果为______。
A. 1 3 7 5 9
B. 5 4 3 2 1
C. 2 4 6 8 10
D. 1 2 3 4 5
[单项选择]阅读下列程序:
Private Sub Command1_Click( )
Dim i As Integer,k As Integer
k=2
For i=1 To 3
Print H(k);
Next i
End Sub
Function H(j As Integer)
a=0
Static b
a=a+1
b=b+1
H=a*b+j
End Function
程序运行后,单击命令按钮输出结果是( )。
A. 234
B. 345
C. 567
D. 356
[单项选择]阅读如下程序:
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,则输出的结果为
A. 1 3 7 5 9
B. 5 4 3 2 1
C. 2 4 6 8 10
D. 1 2 3 4 5