问题：
[单选题]设有如下程序 Private Sub Command1 Click（ ） x=10：Y=0 For i=l To 5 Do x=x-2 y=y+2 Loop Until y>j Or x<-l Nex1 End Sub 运行程序，其中Do循环执行的次数是（ ）。
A、15
B、10
C、7
D、3
参考答案：
C
相关内容
- ● 下面程序运行后的输出结果是 Private Sub Command1_Click() For j=1 To 10 If j Mod 3＜＞0 Then a=a+j3 Next Print a End Sub
- ● 在窗体中添加一个名称为Cmd的命令按钮，然后编写如下程序： Public x A integer Private Sub Cmd_Click() x=10 Call add1 Call add2 MgBox x End Sub Private Sub add1 ( ) x=x+20 End Sub Private Sub add2 ( ) Dim x A integer x=x+40 End Snb 窗体打开运行后，单击命令按钮，则消息框的输出结果为( )。
- ● 执行下面的程序段，x的值为 Private Sub Command1_Click( ) For i=1 To 5 a=a+i Next i x=Val(i) MgBox x End Sub
- ● 下面程序的输出是______。Private Sub Command1_Click() Print 73End Sub
- ● 下列程序运行时输出的结果是 Option Bae 1 Private Sub Form_Click() Dim x(10) A Integer，y(5) A Integer For i=1 to 10 x(i)=10-i+1 Next For i=1 to 5 y(i)=x(2*i-1)+x(2*i) Next For i=1 to 5 Print y(i) Next End Sub
- ● 下列程序运行时输出的结果是 Option Bae 1 Private Sub Form_Click() Dim x (10)A Integer，y(5)A Integer For i=1 to 10 x(i)=10-i+1 Next For i=1 to 5 y(i)=x(2*i-1)+x(2*i) Next For i=1 to 5 Print y(i) Next End Sub
- ● 下面程序的运行结果是 Private Sub Command1_Click() x＝1:y＝1 For i=1 To 3 x＝x+y:y＝y+x Next i:print x,y End Sub
- ● 有如下程序： Private Sub Command1_Click() a="A WORKER IS HERE" x = Len(a$) For i=1 To x - 1 b$ =Mid$(a$, i,3) If b$ ="WOR" Then S=S+ 1 Next Print S End Sub 单击命令按钮，程序运行结果为
- ● 有如下程序： Private Sub Command1_Click() a$="A WCIRKER IS HERE" x=Len(a$) For i=1 To x-1 b$=Mid$(a$,i,3) If b$="WOR"Then S=S+1 Next Print S End Sub 单击命令按钮，程序运行结果为
- ● 执行下列程序后，鼠标单击窗体，输出结果为 Private Sub Form_Click() Print"Click"： End Sub Private Sub Form_MoueDown(Button A Integer，Shift_A Integer，X A Single，Y A Single) Print"Donw" End Sub Private Sub Form_MoueUp(Button A Integer，Shift_A Integer，X A Single，Y A Single) Print"Up" End Sub
- ● 执行下列程序后，鼠标单击窗体，输出结果为。 Private Sub Form_Click() Print“Click”； End Sub Private Sub Form_MoueDown(Button A Integer，Shift_ A Integer，X A Single，Y A Single) Print “Donw” End Sub Private Sub Form_MoueUp(Button A Integer，Shift_ A Integer，X A Single，Y A Single) Print“Up” End Sub
- ● 设有如下程序 Private Sub Command1 Click（ ） x=10：Y=0 For i=l To 5 Do x=x-2 y=y+2 Loop Until y>j Or x
