在下面的程序中,要求循环体执行四次,请填空。
Private Sub Commandl_Click()
x=1
Do While【 】
x=x+2
Loop
End Sub
第1题:
( 9 ) 下面的程序执行时 , 可以从键盘输入一个正整数 , 然后把该数的每位数字按逆序输出 。 例如 : 输入 7685 ,则输出 5867 ,输入 1000 ,则输出 0001 。请填空。
Private Sub Command1_Click()
Dim x As Integer
x=InputBox( “ 请输入一个正整数 ” )
While x>_ _[11] ___
Print x Mod 10;
x=x\10
Wend
Print__ [12] __
End Sub
第2题:
阅读以下程序:
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
单击窗体程序的执行结果是【 】。
第3题:
执行以下程序段 ( ) x=-1; do { x=x*x; } while(!x);
A.循环体将执行一次
B.循环体将执行两次
C.循环体将执行无限次
D.系统将提示有语法错误
第4题:
设有如下代码:
x=0
Do
x=x+1
Loop While x>=______
运行程序,要求循环体执行4次后结束循环,请在空白处填入适当语句使程序完整。
第5题:
此题为判断题(对,错)。
第6题:
在VB程序中,以下程序段执行后,x的值为( )
x=0
Do While x<=2
x=x+1
Loop
A.2
B.3
C.4
D.5
第7题:
在下面的程序中,要求循环体执行四次,请填空。
Private Sub Command1_Click()
x=1
Do While 【 】
x=x+2
Loop
End Sub
第8题:
设x和y均为整形变量,则执行程序中的循环后,y的值为 x=1 y=1 Do While y < = 50 If x>=10 Then Exit Do End If If (x Mod 2) = 1 Then x=x+5 End If If x Mod 2 <> 1 Then x=x-3 End If y=y+1 Loop
A.2
B.4
C.6
D.8
第9题:
设有如下代码:
x=0
Do
x=x+1
Loop While x>=( )
运行程序,要求循环体执行4次后结束循环,在空白处填入适当语句。
第10题:
设有以下的循环:
X=1
DO
X=X+2
LOOP UNTIL 【 】
运行程序,要求执行三次循环体后就结束循环,请填空补充完整。