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

题目内容 (请给出正确答案)

单击一次命令按钮之后,在对话框中输入10,20,30,40,窗体中的输出结果为______。 Private Sub Command1_ Click() Dim a(4) As Integer For i = 1 To 4 a(i) = InputBox (“请输入:”) Next i Call subper (A.For i = 1 To 4 Print a(i) Next i End Sub Sub subper (b () As Integer) For i = 1 To 4 b(i) = 2 * i Next i End Sub

A.10 20 30 40

B.1 2 3 4

C.2 4 6 8

D.5 10 15 20


参考答案

更多 “ 单击一次命令按钮之后,在对话框中输入10,20,30,40,窗体中的输出结果为______。 Private Sub Command1_ Click() Dim a(4) As Integer For i = 1 To 4 a(i) = InputBox (“请输入:”) Next i Call subper (A.For i = 1 To 4 Print a(i) Next i End Sub Sub subper (b () As Integer) For i = 1 To 4 b(i) = 2 * i Next i End SubA.10 20 30 40B.1 2 3 4C.2 4 6 8D.5 10 15 20 ” 相关考题
考题 在窗体上画1个命令按钮,名称为Command1,然后编写如下程序:Dim Flag As BooleanPrivate Sub Command1_Click()Dim intNum As IntegerintNum=InputBox("请输入:")If Flag ThenPrint f(intNum)End IfEnd SubFunction f(X As Integer)As IntegerIf X10 ThenY=XElseY=X+10End Iff=YEnd FunctionPrivate Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single)Flag=TrueEnd Sub运行程序,首先单击窗体,然后单击命令按钮,在输入对话框中输入5,则程序的输出结果为( )。A.0B.5C.15D.无任何输出

考题 在窗体上画一个命令按钮Command1,然后编写如下程序:Private Sub Command1_Cliek()Dim arr()As IntegerRe Dim arr(3)For i=0 To 3arr(i)=iNext ix=InputBox("请输入一个数字:")IfVal(x)>4 ThenRc Dim arr(4)arr(4)=xEnd IfMe.Print(arr(4)-arr(3))End Sub程序运行后,单击命令按钮,在输入对话框中输入12,输出结果为【 】。

考题 在窗体上有一个命令按钮,其名称为Command1。要实现程序运行后,单击命令按钮,如果在输入对话框里分别输入12和4,编写如下事件过程:Private Sub Command1_Click()A=InputBox("被除数")B=InputBox("除数")Print A;"÷";B;"=";A / BEnd Sub则窗体中显示的内容是______。

考题 在窗体上画1个命令按钮,名称为Command1,然后编写如下程序: Dim Flag As Boolean Private Sub Command1_Click() Dim intNum As Integer intNum=InputBox(“请输入:”) If Flag Then Print f(intNum) End If End Sub Function f(X as Integer)As Integer If X<10 Then Y=X Else Y=X+10 End If f=Y End Function Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X as Single,Y As Single) Flag=True End Sub 运行程序,首先单击窗体,然后单击命令按钮,在输入对话框中输入5,则程序的输出结果为______。A.0B.5C.15D.无任何输出

考题 在窗体中添加一个命令按钮,名称为Command1,然后编写如下程序:Private Sub Command1_Click()Dim s,iFor i=1 To 10s=s+iNext iMsgBox sEnd Sub窗体打开运行后,单击命令按钮,则消息框的输出结果为 。

考题 窗体上有一个命令按钮Command1,编写如下事件过程:Private Sub Command1_Click()x = InputBox("x=")y = InputBox("y=")Print x + yEnd Sub运行后,单击命令按钮,先后在两个输入对话框中输入123和321,窗体显示的内容是( )。A、 444B、 123321C、 123+321D、 出错信息

考题 在窗体上添加一个命令按钮,名为command1,事件过程为:Private Sub command1_Click( )x=0Do Until c=-1a= val(InputBox(“输入a的值”))b= val(InputBox(“输入b的值”))c= val(InputBox(“输入c的值”))LoopPrint aEnd Sub程序运行后,单击命令按钮,依次在输入对话框中输入5,4,3,2,1,-1后,输出的结果是 ( )A.2B.3C.4D.5

考题 在窗体上画一个命令按钮,然后编写如下事件过程:private sub command1_click()dima,basintegera=Val(inputbox(EntertheFirstinteger))b=Val(inputbox(EntertheSecondinteger))Printb+aend sub程序运行后,单击命令按钮,先后在两个输入对话框中分别输入456和111,则输出结果是( )A.456B.111C.567D.111456

考题 在窗体上画一个命令按钮,然后编写如下事件过程:Private Sub Command1 Click()a= Val(InputBox(“请输入一个整数”))b=Val(InputBox(“请输入一个整数”))Print a+bEnd Sub程序运行后,单击命令按钮,在输入对话框中分别输入12和34,输出结果为 ______。

考题 在窗体上画一个命令按钮,然后编写如下代码: Private Sub Command1_Click() a=InputBox("请输入第一个数") b=InputBox("请输入第二个数") Print b+a End Sub 程序运行后,单击命令按钮,在两个输入对话框中先后输入12345和54321,程序的输出结果是A.66666B.54321 12345C.1234554321D.出错

考题 在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click() a=InputBox("请输入一个整数") b=InputBox("请输入一个整数") Print a+b End Sub 程序运行后,单击命令按钮,在输入对话框中分别输入37和18,输出结果为A.3718B.55C.0D.a+b

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

考题 在窗体上画一个命令按钮,然后编写如下程序:Dim k As Longk=1Do While numLoopfun=kEnd FunctionPrivate Sub Command1_Click()Dim n As LongDim r As LongMsgBox rEnd Sub程序运行后,单击命令按钮,在输入对话框中输入234,消息框显示的结果为( )。

考题 在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Commandl—Click() x=InputBox(“请输入一个整数”) Print x+345 End Sub 程序运行后,单击命令按钮,在输入对话框中输入123,则在窗体上输出的内容为( )A.123345B.468C.123D.345

考题 在窗体中添加一个命令按钮,然后编写如下代码:Private Sub Command1_Click()a=InputBox("请输入一个整数")b=InputBox("请输入一个整数")Print Val(a)+Val(b)End Sub程序运行后,单击命令按钮,在输入对话框中分别输入21和45,输出结果为【 】。

考题 阅读下列程序: Dim SW As Boolean Function func(X As Integer)As Integer If X<20 Then Y=X Else Y=20+X End If func=Y End Function Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single, Y As Single) SW=False End Sub Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single, Y As Single) SW=True End Sub Private Sub Command1_Click() Dim intNum As Integer intNum=InputBox(" ") If SW Then Print func(intNum) End If End Sub 程序运行后,单击一次窗体,再单击命令按钮,将显示一个输入对话框,如果在对话框中输入20,则程序的输出结果为A.0B.20C.40D.无任何输出

考题 单击一次命令按钮之后,窗体中的输出结果为______。 Private Sub Command1_ Click() Dim a As Single Dim b As Single a = 10 b = 20 Call Num(a,B)Print a, b End Sub Sub Num(a,B)t = a a = b / t b = t End SubA.20 10B.10 20C.2 10D.10 10

考题 在窗体上画一个命令按钮,然后编写如下事件过程:Private Sub Command1_ Click() x=0 Do Until x=-1 a=InputBox(“请输入A的值”) a=Val(a)b=InputBox(“请输入B的值”) b=Val(b)x=InputBox(“请输入x的值”) x=Val(x) a=a+ b+ x Loop Print aEnd Sub程序运行后,单击命令按钮,依次在输入对话框中输入5、4、3、2、1、-1,则输出结果为 ______。A.2B.3C.14D.15

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

考题 在窗体上画一个命令按钮,然后编写如下事件过程:Private Sub Command1_Click( )a=Val(1nputBox(“请输入一个整数”))b=Val(1nputBox(“请输入一个整数”))Print a+bEnd Sub程序运行后,单击命令按钮,在输入对话框中分别输入12和34,输出结果为【 】

考题 单击一次命令按钮之后,在对话框中输入12,2,34,.23,窗体中的输出结果为______。 Private Sub Command1_ Click() a = 10: b = 20: c = 30 Call check(a, b * 2, (c)) Print "Name:"; a; b; c End Sub Private Sub check(a, ByVal b,C)Dim t As Integer a = a + 1: b= b + 1: c = c + 1 t = a a =b b = t End SubA.20 30 40B.40 30 20C.41 30 10D.41 20 30

考题 单击一次命令按钮之后,窗体中的输出结果为______。 Private Sub Command1_ Click() For i = 1 To 4 x = fun(i) Print x; Next i End Sub Function (n) x = n * n FF = x End SubA.1 4 9 16B.1 3 5 7C.3 6 9 12D.2 4 6 8

考题 单击一次命令按钮之后,在对话框中输入12,21,30,3,窗体中的输出结果为______。 Private Sub Command1_ Click() For i = 1 To 4 s = InputBox (“请输入”) Call per(i, s) Next i Print s End Sub Sub per(a, ByValB)b = 1 For i = 1 To 3 a = a * i Next i End SubA.12 21 30 3B.24 42 60 6C.3 30 21 12D.只能输入一个数

考题 单击一次命令按钮之后,在对话框中输入12,2,34,23,窗体中的输出结果为______。 Private Sub Command1_ Click () Dim a(4) As Integer For i = 1 To 4 a (i) = Val (InputBox (“请输入元素”)) Next i plus a(1), a(2), a(3) End Sub Sub plus(first As Integer, second As Integer, third As Integer, Optional forth) n = first + second + third If Not IsMissing (forth) Then n = n + forth End If Print n End SubA.14B.71C.48D.37

考题 在窗体上有一个命令按钮,然后编如下事件过程:程序运行后,单击命令按钮,在输入对话框内输入-1,输出结果是 。

考题 ( 11 )在窗体中添加一个命令按钮,名称为 Command1 ,然后编写如下程序:Private Sub Command1_Click()Dim s , iFor i=1 To 10s=s+iNext iMsgBox sEnd Sub窗体打开运行后,单击命令按钮,则消息框的输出结果为 【 11 】 。

考题 单选题窗体上有一个命令按钮Command1编写如下事件过程 Private Sub Command1_Click() x=InputBox("x=") y=InputBox("y=") Print x+y End Sub 运行后单击命令按钮先后在两个输入对话框中输入123和321窗体显示的内容是()。A 444B 123321C 123+321D 出错信息