在窗体上添加一个命令按钮,编写事件过程:Private Sub Command1_Click()Dim a As Integer,b As Integera=InputBox("Enter the First integer")b=InputBox("Enter the Second integer")Print b+aEnd Sub程序运行后,单击命令按钮,先后在两个输入对话框中分别345和678,则输出结果是( )。A.1023B.678345C.678D.345

在窗体上添加一个命令按钮,编写事件过程:

Private Sub Command1_Click()

Dim a As Integer,b As Integer

a=InputBox("Enter the First integer")

b=InputBox("Enter the Second integer")

Print b+a

End Sub

程序运行后,单击命令按钮,先后在两个输入对话框中分别345和678,则输出结果是( )。

A.1023

B.678345

C.678

D.345


相关考题:

( 11 )在窗体中添加一个名称为 Command1 的命令按钮,然后编写如下事件代码:Private Sub Command1_Click( )Dim x As Integer, y As Integerx=12 : y=32Call p(x, y)MsgBox x*yEnd SubPublic Sub p (n As Integer, By Val m As Integer)n=n Mod 10m=m Mod 10End Sub窗体打开运行后,单击命令按钮,则消息框的输出结果为 ___________ 。

在窗体上画一个命令按钮,然后编写如下事件过程:Private Sub Command1_Click()Dim m As Integer, n As Integer, p As Integerm=3: n=5: p=0Call Y(m, n, p)Print Str(p)End SubSub Y(ByVal i As Integer, ByVal j As Integer, k As Integer)k=i + jEnd Sub程序运行后,如果单击命令按钮,则在窗体上显示的内容是( )。A.4B.6C.8D.10

如果存在如下过程:Private Function FMax(a() As Integer)Dim First As Integer, Last As Integer, i As IntegerFirst=LBound(A)Last=UBound(A)Max=a(First)For i=First To LastIf a(i) Max Then Max=a(i)Next iFMax=MaxEnd Function在窗体上添加一个命令按钮,然后编写如下事件过程:Private Sub Command1_Click()ReDim m(1 To 4) As Integerm(1) =20: m(2) =30: m(3) =50: m(4) =100c=FMax(m)Print cEnd Sub单击命令按钮,其输出结果为 【12】 。

在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub subl(ByVal x As Integer, ByVal y As Integer, ByVal z As Integer) z=x*x+y*y End Sub Private Sub Command1_Click() Dim a As Integer a=8 Call subl(1, 2,a) Print a End Sub 程序运行后,单击命令按钮,则窗体下显示的内容是______。A.8B.2C.5D.11

在窗体中添加一个命令按钮,名称为Command1,然后编写如下程序: Private Sub Command1_Click() Dim a As Integer, b As String, c As Integer a=1234: b=Str(a)c=Len(b)Print c End Sub 程序运行后,单击命令按钮,则在窗体上显示的内容是______。A.0B.5C.6D.7

在窗体中添加一个命令按钮(名为Command1)和一个文本框(名为text1),编写如下事件过程:Private Sub Command1_Click()Dim x As Integer,y As Integer,z As IntegerCall f(x,y,z)End SubSub f(a As Integer,b As Integer,c As Integer)c=b*aEnd Sub打开窗体运行后,单击命令按钮,文本框中显示的内容是( )。

在窗体上添加一个命令按钮(名为Command1),然后编写如下程序:Private Sub Command1_Click()Dim a As Integer,b As Integerx=10y=20End Sub打开窗体运行后,单击命令按钮,消息框的输出结果为( )。

在窗体上画一个命令按钮,然后编写如下程序: Private Sub Command1_Click() Dim a As Integer, b As integer b = 1 For a = 1 To 100 If b >= 10 Then Exit For If b Mod 3 = 1 Then b = b + 3 End If Next a Print a End Sub 在命令按钮上单击后,窗体上显示的结果是 ______。A.101B.6C.5D.4

在窗体上画一个命令按钮,然后编写如下事件过程:Private Sub Command1_Click( ) Dim m As Integer,n As Integer,p As Integer m=3:n=5:p=O Call Y(m,n,p) Print Str(p)End SubSub Y(ByVal i As Integer,ByVal j As Integer,k As Integer) k=i + jEnd Sub程序运行后,如果单击命令按钮,则在窗体上显示的内容是A.4B.6C.8D.10

在窗体中添加一个名称为Command1的命令按钮,然后编写如下程序: Public x As Integer Private Sub Command1_Click() x=10 Call s1 Call s2 MSgBox x End Sub Private Sub s1() x=x+20 End Sub Private Sub s2() Dim x As Integer x=X+20 End Sub 窗体打开运行后,单击命令按钮,则消息框的输出结果为______。A.10B.30C.40D.50

在窗体中添加一个命令按钮(名为Commandl)和一个文本框(名为Text1),然后编写如下事件过程:Private Sub Command1_Click()Dim x As Integer,y As Integer,z As Integerx=5:y=7:z=0Me!Text1=””Call p1(x,y,z)Me!Text1=zEnd SubSub p1(a As Integer,b As Integer,c As Integer)c=a+bEnd Sub打开窗体运行后,单击命令按钮,文本框中,显示的内容是【 】。

在窗体上画一个名称为Command1命令按钮,然后编写如下事件过程: Private Function fun1(n As Integer)As Integer Dim k As Integer If n = 1 Then k = 1 Else k = 1 + fun1(n - 1)* 2 End If fun1 = k End Function Private Sub Command1_Click () Dim m As Integer, x As Integer x = 4 m = fun1 (x) Print m End Sub 程序运行后,单击命令按钮,则窗体上显示的内容是A.4B.6C.9D.15

在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim in As Integer,n As Integer,p As Integer m=3:n=5:p=0 Call Y(m,n,p) Print Str(p) End Sub Sub Y(ByVal i As Integer,ByVal j As Integer,k As Integer) k=i+j End Sub 程序运行后,如果单击命令按钮,则在窗体上显示的内容是A.4B.6C.8D.10

在窗体上画一个命令按钮(名称为Command1),然后编写如下事件过程: Private Sub Command1_Click() Dim b As Integer b=b+1 End Sub 运行程序,三次单击命令按钮后,变量b的值是: ______。A.0B.1C.2D.3

在窗体上画一今名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim a As Integer,s As Integer a=8 s=1 Do s=s+a a=a-1 Loop While a<=0 Print s;a End Sub 程序运行后,单击命令按钮,则窗体上显示的内容是 ______。A.79B.340C.97D.死循环

在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim a As Integer,s As Integer a = 8 s = 1 Do s = s + a a = a - 1 Loop While a<=0 Print s,a End Sub 程序运行后,单击命令按钮,则窗体上显示的内容是A.7 9B.34 0C.9D.死循环

在窗体上绘制一个名称为Command1的命令按钮,然后编写如下通用过程和命令按钮的事件过程: Private Function fun(ByVal m As Integer) If m Mod 2=0 Then fun=2 Else fun=1 End If End Function Private Sub Command1_Click() Dim i As Integer,s As Integer s=0 For i=1 To 5 s=s+fun(i) Next Print s End Sub 程序运行后,单击命令按钮,在窗体上显示的是A.6B.7C.8D.9

在窗体中添加一个名为Command1的命令按钮,然后编写如下程序:Private Sub s(By Val p As Integer)p=p*2End SubPrirate Sub Command1_Click( )Dim i As Integeri=3Call s(i)If i>4 Then i=i^2MsgBox IEnd Sub窗体打开运行后,单击命令按钮,则消息框的输出结果为______。

在窗体上画一个名称为Command1的命令按钮,然后编写如下通用过程和命令按钮的事件过程: Private Function f(m As Integer) If m Mod 2 = 0 Then f = m Else f = 1 End If End Function Private Sub Command1_Click() Dim i As Integer s = 0 For i = 1 To 5 s = s + f(i) Next Print s End Sub 程序运行后,单击命令按钮,在窗体上显示的是A. 11B.10C.9D.8

在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim x(5)As String Dim n AS Integer For n : 4 TO 0 Step -1 x(n)= n + 1 Print x(n); Next n End Sub 程序运行后,单击命令按钮,则窗体上显示的内容是A.54321B.4C.54321D.0

在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub sub1(ByVal x As Integer, ByVal y As Integer, ByVal z As Integer) z=x * x+ y * y End Sub Private Sub Command1_Click() Dim a As Integer a = 8 Call sub1(1, 2,A)Print a End Sub 程序运行后,单击命令按钮,则窗体上显示的内容是A.8B.2C.5D.11

在窗体上画一个名称为Command1的命令按钮,然后编写如下通用过程和命令按钮的事件过程: Private Function fun(ByVal m As Integer) If m Mod 2=0 Then fun=2 Else fun=1 End If End Function Private Sub Command1_Click( ) Dim i As Integer,s As Integer S=0 For i=1 To 5 s=s+fun(i) Next Print 3 End Sub 程序运行后,单击命令按钮,在窗体上显示的是A.6B.7C.8D.9

在窗体上画一个名称为Commandl的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim x As Integer,y As Integer x = 41: y = 54 Call sub1(x,y) x = x + 1 Print x; y End Sub Private Sub sub1(n As Integer, ByVal m As Integer) n=n Mod 10 m=m\10 End Sub 程序运行后,单击命令按钮,则窗体上显示的内容是A.41 54B.2 54C.1 3D.42 3

在窗体上面一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim a As Integer, s As Integer a=8 s=1 Do s=s+a a=a-1 Loop While a<=0 Print s; a End Sub 程序运行后,单击命令按钮.则窗体上显示的内容是______。A.7 9B.34 0C.9 7D.死循环

在窗体中添加一个名称为Commandl的命令按钮,然后编写如下事件代码:Private Sub Command1_Click()Dim x As Integer,y As Integerx=12:y=32Call p(x,y)MsgBox x*yEnd SubPublic Sub p(n As Integer,By Val m As Integer)n=n Mod 10m=m Mod 10End Sub窗体打开运行后,单击命令按钮,则消息框的输出结果为【 】。

( 15 )在窗体上添加一个命令按钮(名为 Command1 ),然后编写如下事件过程:Private Sub Command1_Click ()Dim b,kFor k=1 to 6b=23+kNext kMsgBox b+kEnd Sub打开窗体后,单击命令按钮,消息框的输出结果是 【 15 】 。

在窗体上添加一个命令按钮和三个标签,编写事件过程: Private x As Integer Private Sub Command1_Click( ) Static yAs Integer Dim z As Integer N=10: z=N+z: y=y+z: x=x+z Label1.Caption = xLabel2.Caption = y Label3.Caption = z End Sub 程序运行后,连续三次单击命令按钮,则三个标签中显示的内容分别是()。A、101010B、303030C、303010D、103030