设有如下程序
Private Sub Command1_Click()
x = 10: y = 0
For i = 1 To 5
Do
x = x - 2
y = y + 2
Loop Until y > 5 Or x < -1
Next
End Sub
运行程序,其中Do循环执行的次数是( )。
发布于 2022-05-11 10:17:45
登录后免费查看答案
关注者
0
被浏览
18
1 个回答
推荐阅读
-
在窗体上画一个名称为Command1的命令按钮,并编写如下程序:Private Sub Command1_Click()Dim x As IntegerStatic y As Integerx=10y=5Call f1(x,y)Print x,yEnd SubPrivate Sub f1(ByRef x1 As Integer, y1 As Integer)x1=x1+2y1=y1+2End Sub程序运行后,单击命令按钮,在窗体上显示的内容是
2022-05-11 关注 0 浏览17 1答案
-
有如下事件程序,运行该程序后输出结果是( )。PrivateSub Command33_click()Dim x AsInteger,Y AsIntegerx=1:y=0Do Untily<=25y=y+x*xx=x+1LoopMsgBox”x=&x&”,y="&YEnd Sub
2022-05-13 关注 0 浏览15 1答案
-
设有如下程序:Private Sub Form Click( )Dim i As Integer,x As String,y As Stringx="ABCDEFG"For i=4 To 1Step-1y=Mid(X,i,i)+yNext iPrint yEnd Sub程序运行后,单击窗体,输出结果为( )。
2022-05-11 关注 0 浏览13 1答案
-
单击按钮时,以下程序运行后的输出结果是Private Sub Command1_Click()Dim x As Integer, y As Integer, z As Integerx=1: y=2: z=3Call God(x, x, z)Print x; x; zCall God(x, y, y)Print x; y; yEnd SubPrivate Sub God(x As Integer, y As Integer, z As Integer)x=3 * z + 1y=2 * zz=x + yEnd Sub
2022-05-11 关注 0 浏览88 1答案
-
单击按钮时,以下程序运行后的输出结果是Private Sub proc1(x As Integer, y As Integer, z As Integer)x=3 * zy=2 * zz=x + yEnd SubPrivate Sub Command1_Click()Dim x As Integer, y As Integer, z As Integerx=1: y=2: z=3Call proc1(x, x, z)Print x; x; zCall proc1(x, y, y)Print x; y; yEnd Sub
2022-05-11 关注 0 浏览54 1答案
-
下列程序的执行结果为Private Sub Command1_Click()Dim x As Integer, y As Integerx=12: y=20Call Value(x, y)Print x; yEnd SubPrivate Sub Value(ByVal m As Integer, ByVal n As Integer)m=m * 2: n=n - 5Print m; nEnd Sub
2022-05-11 关注 0 浏览14 1答案
-
标准模块中有如下程序代码:Public x As Integer,y As IntegerSub var_pub()x=10:y=20End Sub在窗体上有1个命令按钮,并有如下事件过程:Private Sub Command1_Click()Dim x As IntegerCall var_pubx=x+100y=y+100Print x;yEnd Sub运行程序后单击命令按钮,窗体上显示的是
2022-05-11 关注 0 浏览14 1答案
-
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click()Static x As IntegerClsFor i=1 To 2y=y+xx=x+2NextPrint x,yEnd Sub程序运行后,连续三次单击Command1按钮后,窗体上显示的是
2022-05-11 关注 0 浏览16 1答案
-
设有如下程序Private Sub Form_Click()Dim a As Integer, b As Integera = 20: b = 50p1 a, bp2 a, bp3 a, bPrint "a="; a, "b="; bEnd SubSub p1(x As Integer, ByVal y As Integer)x = x + 10y = y + 20End SubSub p2(ByVal x As Integer, y As Integer)x = x + 10y = y + 20End SubSub p3(ByVal x As Integer, ByVal y As Integer)x = x + 10y = y + 20End Sub该程序运行后,单击窗体,则在窗体上显示的内容是:a = ______ 和 b = ______ 。
2022-05-11 关注 0 浏览14 1答案
-
以下程序结束后,变量X的值为( )。x=1y=2Dox=X+YY=y+1Loop While y<2
2022-05-13 关注 0 浏览20 1答案