网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
单击一次命令按钮之后，在对话框中输入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
考题
（ 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
出错信息
热门标签
最新试卷