网友您好， 请在下方输入框内输入要搜索的题目：

题目内容 （请给出正确答案）

没有如下程序

Private Sub Commandl—Click()

x=10：u=0

For i=1 TO 5

Do

x=x-2

y=y+2

Loop Until y>5 Or x<一l

Next

End Sub

运行程序，其中Do循环执行的次数是

A．15

B．10

C．7

D．3

参考答案

更多 “ 没有如下程序Private Sub Commandl—Click()x=10：u=0For i=1 TO 5Dox=x-2y=y+2Loop Until y5 Or x一lNextEnd Sub运行程序，其中Do循环执行的次数是A．15B．10C．7D．3 ” 相关考题
考题 在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序：Private Sub Commandl_Click()Dimi As Integer,j As IntegerDima(10,10)As IntegerFori=1 To 3Forj=1 To 3a(i，j)=(i-1)*3+jPrinta(i，j)；NextjPrintNextiEnd SubA．B．C．D．
查看答案
考题 在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序： Option Base 1 Private Sub Commandl_Click() Dim c AS Integer，d As Integer d=0 c=6 x=Array(2,4,6,8,10,12) For i=1 To 6 If x(i)＞c Then d=d+x(i) c=x(i) ElSe d=d-c End If Next Print d End Sub 程序运行后，如果单击命令按钮，则在窗体上输出的内容为A． 10B．16C．12D．20
查看答案
考题 设有如下程序Private Sub Command1 Click（ ）x=10：Y=0For i=l To 5Dox=x-2y=y+2Loop Until y5 Or x-lNex1End Sub运行程序，其中Do循环执行的次数是（ ）。A.15B.10C.7D.3
查看答案
考题 在窗体上画一个名称为Commandl的命令按钮，然后编写如下代码： Option Base 1 Prirate Sub Command1 Click() d = 0 c = 10 x=Array(10， 12， 21， 32，24) For i=1 To 5 If x(i) ＞ c Then d = d + x(i) c = x(i) Else d = d - c End If Next i Print d End Sub 程序运行后，如果单击命令按钮，则在窗体上输出的内容为A．89B．99C．23D．77
查看答案
考题 在窗体中添加一个名称为Commandl的命令按钮，然后编写如下程序： Public x As Integer Private Sub Commandl_click() x＝10 Call s 1 Call s 2 MsgBOx x End Sub Pfivate Sub s1() x＝x+20 End Sub Private SubA．10B．30C．40D．50
查看答案
考题 在窗体上绘制一个名称为Commandl的命令按钮，然后编写如下程序： Option Base 1 Private Sub Commandl_Click() Dim c As Integer,d As Integer d=0 c=6 x=Array(2，4，6，8，10，12) Fori=1 To 6 1fx(i)＞c Then d=d+x(i) c=x(i) ElseA．10B．16C．12D．20
查看答案
考题 在窗体上画一个命令按钮，其名称为Commandl，然后编写如下程序： Pfivate Sub Commandl_Click() Dima(10) As Integer Dimx As Integer Fori=1 To 10 a(i)=8+i NeXt X=2 Print a(f(x)+x) End Sub Function f(X As Integer) X=X+3 f=X End FuA．12B．15C．17D．18
查看答案
考题 设有如下程序 Private Sub Command1 Click（ ） x=10：Y=0 For i=l To 5 Do x=x-2 y=y+2 Loop Until yj Or x-l Nex1 End Sub 运行程序，其中Do循环执行的次数是（ ）。A.15B.10C.7D.3
查看答案
考题 （27）设有如下程序Private Sub Command 1_Click()x=10：Y=0For i=1 To SDox＝x-2y＝y+2Loop Until y＞5 Or x＜-1NextEnd Sub运行程序，其中Do循环执行的次数是A）15B）10C）7D）3
查看答案
热门标签
最新试卷