在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
Static x As Integer
Cls
For i=1 To 2
y=y+x
x=x+2
Next
Print x,y
End Sub
程序运行后,连续三次单击Command1按钮后,窗体上显示的是
发布于 2022-05-11 10:19:44
登录后免费查看答案
关注者
0
被浏览
16
1 个回答
推荐阅读
-
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click()x = -5If Sgn(x) Theny = Sgn(x ^ 2)Elsey = Sgn(x)End IfPrint yEnd Sub程序运行后,单击命令按钮,窗体上显示的是
2022-05-11 关注 0 浏览9 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答案
-
在窗体上画一个名称为Commandl的命令按钮,然后编写如下程序:Private Sub Command1_Click()Static X As IntegerStatic Y As IntegerClsY=1Y=Y+5X=5+XPrint X,YEnd Sub程序运行时,三次单击命令按钮Commandl后,窗体上显示的结果为
2022-05-11 关注 0 浏览13 1答案
-
在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程:Private Sub Command1_Click()Dim i As Integer, x As IntegerFor i = 1 To 6If i = 1 Then x = iIf i <= 4 Thenx = x + 1Elsex = x + 2End IfNext iPrint xEnd Sub程序运行后,单击命令按钮,其输出结果为( )。
2022-05-11 关注 0 浏览16 1答案
-
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click()x = 0n = InputBox("")For i = 1 To nFor j = 1 To ix = x + 1Next jNext iPrint xEnd Sub程序运行后,单击命令按钮,如果输入3,则在窗体上显示的内容是
2022-05-11 关注 0 浏览20 1答案
-
在窗体上画一个命令按钮,其名称为Command1,然后编写如下程序:Function M(x As Integer,y As Integer)As IntegerM=IIf(x>y,x,y)End FunctionPrivate Sub command1_Click()Dim a As Integer,b As Integera=100b=200Print M(a,b)End Sub 程序运行后,单击命令按钮,输出结果为______ 。
2022-05-11 关注 0 浏览19 1答案
-
在窗体上画1个命令按钮,其名称为Command1,然后编写如下程序:Private Sub Command1_Click()Dim a(10)As IntegerDim x As IntegerFor i=1 To 10a(i)=8+iNextx=2Print a(f(x)+x)End SubFunction f(x As Integer)x=x+3f=xEnd Function程序运行后,单击命令按钮,输出结果为。
2022-05-11 关注 0 浏览13 1答案
-
在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程:Private Sub Command1_Click()a = 12345Print Format$(a, "000.00")End Sub程序运行后,单击命令按钮,窗体上显示的是
2022-05-11 关注 0 浏览12 1答案
-
在窗体上画一个名称为Command1的命令按钮,再画两个名称分别为Label1、Label2的标签,然后编写如下程序代码:Private X As IntegerPrivate Sub Command1_Click()X = 5: Y = 3Call proc(X, Y)Label1.Caption = XLabel2.Caption = YEnd SubPrivate Sub proc(ByVal a As Integer, ByVal b As Integer)X = a * aY = b + bEnd Sub程序运行后,单击命令按钮,则两个标签中显示的内容分别是
2022-05-11 关注 0 浏览13 1答案
-
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click()a$="VisualBasic"Print String(3,a$)End Sub程序运行后,单击命令按钮,在窗体上显示的内容是
2022-05-11 关注 0 浏览21 1答案