设有如下程序Private Sub Command1 Click()x=10:Y=0For i=l To 5Dox=x-2y=y+2Loop Until y>
设有如下程序
Private Sub Command1 Click()
x=10:Y=0
For i=l To 5
Do
x=x-2
y=y+2
Loop Until y>5 Or x<-l
Nex1
End Sub
运行程序,其中Do循环执行的次数是()。
A.15
B.10
C.7
D.3
设有如下程序
Private Sub Command1 Click()
x=10:Y=0
For i=l To 5
Do
x=x-2
y=y+2
Loop Until y>5 Or x<-l
Nex1
End Sub
运行程序,其中Do循环执行的次数是()。
A.15
B.10
C.7
D.3
B、8
C、1
D、5
A、输出 "Done the test".
B、程序输出"The end"
C、程序编译错误.
D、程序输出"Done the test"和 "The end"
A、编译出错
B、运行时抛出异常
C、[608, 610, 612, 629] [608, 610]
D、[608, 610, 612, 629] [608, 610, 629]
E、[606, 608, 610, 612, 629] [608, 610]
F、[606, 608, 610, 612, 629] [608, 610, 629]
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$amp; Sum=Sum+i
End If
Next
Print Sum
End Sub
程序运行后,单击窗体,输出结果为
A.12
B.30
C.24
D.18
A、3
B、4
C、5
D、6
B、输出: 4 6 8 8 8 8
C、输出: 2 3 4 6 8 8
D、输出: 2 3 4 6 6 8
为了保护您的账号安全,请在“简答题”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!