更多"阅读程序: Private Sub Form Click( ) "的相关试题:
[单项选择]阅读程序:
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 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 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 Form_Click( ) Dim i As Integer, Sum As Integer Sum = 0 For i = 2 To 10 If i Mod 2< >0 And i Mod 3=0 Then Sum = Sum + i End If Next Print Sum End Sub 程序运行后,单击窗体,输出结果为
A. 12
B. 30
C. 24
D. 18
[填空题]设有如下程序:
Private Sub Form_Click( )
Dim a As Integer,s As Integer
n=8:s=0
DO
s=s+n:n=n-1
Loop While n>0
Print s
End Sub
以上程序的功能是计算1~8的和。程序运行后,单击窗体,输出结果为______。
[单项选择]阅读程序:
Private Sub Form Click( )
a=0
For j=1 To 15
a=a+j Mod 3
Next j
Print a
End Sub
程序运行后,单击窗体,输出结果是( )。
A. 105
B. 1
C. 120
D. 15
[填空题]阅读下面的程序:
Private Sub Form_Click( )
Dim Check As Boolean,Counter As Integer
Check=Tree
Counter=5
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
End Sub
程序运行后,单击窗体,输出结果为 【9】 。
[填空题]设有如下程序:
Private Sub Form_Click( )
Dim a As Integer,s As Integer
n=8
S=0
DO
S=S+n
n=n-1
Loop While n>0
Print S
End Sub
以上程序的功能是 【10】 。程序进行后,单击窗体,输出结果为 【11】 。
[单项选择]阅读程序:
Private Sub Form_Click( )
a=0
For j=1 To 15
a=a+j Mod 3
Next j
Print a
End Sub
程序运行后,单击窗体,输出结果是( )。
A. 105
B. 1
C. 120
D. 15
[填空题]阅读下面的程序:
Private Sub Form_Click( )
Dim Check As Boolean, Counter As Integer
Check = True
Counter = 5
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
End Sub
程序运行后,单击窗体,输出结果为 _________。
[单项选择]有如下程序:
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
程序运行后,单击窗体,输出结果为( )。
A. 15 0
B. 20 -1
C. 10 True
D. 10 False
[填空题]设有如下程序:
Private Sub Form_Click( )
Dim a As Integer,s As Integer
n=8
S=0
DO
S=S+n
n=n-1
Loop While n>0
Print S
End Sub
以上程序的功能是 【10】 。程序进行后,单击窗体,输出结果为 【11】 。
[单项选择]阅读下面的程序:
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
程序运行后,单击窗体,输出的结果为
A. 15 0
B. 20 -1
C. 10 True
D. 10 False
[单项选择]有如下程序:
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
程序运行后,单击窗体,输出结果为______。
A. 15 0
B. 20 -1
C. 10 True
D. 10 False
[单项选择]有如下程序:
Private Sub Form_Click( )
Dim i As Integer, Sum As Integer
sum=0
For i=2 To 10
If i Mod 2<>0 And i Mod 3=0 Then
sum=sum+i
End If
Next i
Print sum
End Sub
程序运行后,单击窗体,输出结果为______。
A. 12
B. 30
C. 24
D. 18
[单项选择]有如下程序:
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
程序运行后,单击窗体,输出结果为______。
A. 15 0
B. 20 -1
C. 10 True
D. 10 False