运行下列程序：Private Sub Command1_Click( )a = Val(InputBox(a = ))Print fun1(a)End SubPrivate Function fun1(b)If b 0 Thenfun1 = 10ElseIf b = 0 Thenfun1 = 9Elsefun1 = 8End IfEnd Function单击按钮后从键盘为变量a输入数据3，输出的结果是( )。A.3B.8C.9D.10
运行下列程序：
Private Sub Command1_Click( )
a = Val(InputBox("a = "))
Print fun1(a)
End Sub
Private Function fun1(b)
If b > 0 Then
fun1 = 10
ElseIf b = 0 Then
fun1 = 9
Else
fun1 = 8
End If
End Function
单击按钮后从键盘为变量a输入数据3，输出的结果是( )。
A.3
B.8
C.9
D.10
相关考题：
下面程序运行后，窗体中显示【 】。Private Sub Command1_Click) ( )aS ="*" :b$ ="$"For k = 1 To 3x$ =Strings (Len(a$) +k,b$ )Print x $;NextPrintEnd Sub
在窗体上有一个命令按钮，其名称为Command1。要实现程序运行后，单击命令按钮，如果在输入对话框里分别输入12和4，编写如下事件过程：Private Sub Command1_Click()A=InputBox("被除数")B=InputBox("除数")Print A；"÷"；B；"="；A / BEnd Sub则窗体中显示的内容是______。
有下列事件过程： Private Sub Command1_Click() b = 10 Do Until b = -1 a = InputBox(＂请输入a的值＂） a = Val(a) b = InputBox(＂请输入b的值＂） b = Val(b) a = a * b Loop Print End Sub程序运行后，依次输入数值30，20，10，-1后，输出结果是。A. 6000 B. -10 C. 200 D. -6000
有一过程如下:Sub Sub1(m As Integer,total As Long)Dim i As Integertotal=1For i=1 To mtotal=total*iNextEnd Sub调用它的事件过程如下:Private Sub Command1_Click()Dim tot As Long,a As Integera=Val(InputBox("请输入数据"))Call Sub1(a,tot)Print totEnd Sub则输入数据5,运行结果为【 】。
在窗体上添加一个命令按钮，名为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
（14）窗体中有一个命令按钮，然后编写下列事件过程： 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 a End Sub 在程序运行后，单击命令按钮，在对话框中分别输入5,4,8,5,8，-1，输出的结果是。
（27）有下列函数过程（ ）。 Function fun1(By Val x As Integer,By Valy As Integer) As Integer Do While y0 reminder=x Mody x=y y=reminnder Loop Fun1=x End Function 在下列按钮单击事件中调用该函数，则该程序的运行结果是。 Private Sub Command1_Click() Dim a As Integer Dim b As Integer a=100 b=25 x=funl(a,b) Print x End Sub A.0 B.25 C.50 D.100
在窗体上画一个命令按钮，命名为Command1。程序运行后，如果单击命令按钮，则显示一个输入对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程F1，在F1中判断所输入的整数是否是奇数，如果是奇数，过程F1返回1，否则F1返回1，否则返回0。能够正确实现上述功能的代码是 。A．Private Sub Command1_Click() x=InputBox("请输入整数") a=F1（Val（x）） Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then Return 0 Else Return 1 End If End FunctionB．Private Sub Command1_Click() x=InputBox("请输入整数") a=F1（Val（x）） Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then F1= 0 Else F1= 1 End If End FunctionC．Private Sub Command1_Click() x=InputBox("请输入整数") F1（Val（x）） Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then F1= 1 Else F1= 0 End If End FunctionD．Private Sub Command1_Click() x=InputBox("请输入整数") F1（Val（x）） Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then Return 0 Else Return 1 End If End Function
在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1 Click()a= Val(InputBox(“请输入一个整数”))b=Val(InputBox(“请输入一个整数”))Print a+bEnd Sub程序运行后，单击命令按钮，在输入对话框中分别输入12和34，输出结果为 ______。
运行下面的程序，单击命令按钮后，当输入分别为123和456时，输出结果为 ______。 Private Sub Command1_Click() a=InputBox("请输入一个数字:") b=Val(InputBox("请再输入一个数字：")) PrInt a+b End SubA．123B．456C．123123D．579
在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()X=0Do While X＜＞-1X=Val(InputBox("请输入数据X:"))Y=Val(InputBox("请输入数据Y:"))If X*Y＜X+Y Then Print X，YLoopEnd Sub程序运行后，依次输入7，2，-3，8，-5，-10，18，-1，-1，则输出结果是【 】
在窗体上画一个名称为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()a=65 : b = 17a = a Mod b ^ 2a = a \ 4Print aEnd Sub
在窗体上画一个命令按钮，命名为CommandI。程序运行后，如果单击命令按钮，则显示一个输入对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程 F1，在F1中判断所输入的整数是否是奇数，如果是奇数，过程F1返回1，否则返回0。 能够正确实现上述功能的代码是A．Privme Sub Command1_Click() x=InputBox(“请输入整数”) a=F1(Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then Return 0 Else Return 1 End If End FunctionB．Private Sub Command1_Click() x=InputBox(“请输入整数”) a=F1(Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then F1=0 Else F1=1 End If End FunctionC．Private Sub Command1_Click() x=InputBox(“请输入整数”) F1(Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then F1=1 Else F1=0 End If End FunctionD．Private Sub Command1_Click() x=InputBox(“请输入整数”) F1 (Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then Return 0 Else Return 1 End If End Function
有如下事件过程： Private Sub Command1_Click() b=10 Do Until b=-1 a=InputBox("请输入a的值") a=Val(A) b=InputBox("请输入b的值") b=Val(B) a=a*b Loop Print a End Sub 程序运行后，依次输入数值30，20，10，-1后，输出结果为( )。A．6000B．-10C．200D．-6000
有下列事件过程：Private Sub Command1_Click()b=10Do Until b=-1a=InputBox("请输入a的值")a=Val(A)b=InputBox("请输入b的值")b=Val(B)a=a*bLoopPrint aEnd Sub程序运行后，依次输入数值30,20,10,-1后，输出结果是( )。A．6000B．-10C．200D．-6000
在窗体上画一个命令按钮，然后编写如下事件过程：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
在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click( )Do Until b ＜ 0a = InputBox( "输入a的值" )a = Val(@A@b = InputBox( "输入b的值" )b =VM(@B@a=a+bLoopPrint aEnd Sub程序运行后，依次输入5,4,3,2,1,0,-1,-2,则输出结果是【 】。
在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x=0 Do Until x=-1 a=InputDox("请输入a的值") a=Val(A)b=InputBox("请输入b的值") b=Val(B)x=InputBox("请输入x的值") x=Val(x) a=a+b+x Loop Print a End sub 程序运行后，单击命令按钮，依次在输入对话框中输入10、8、9、2、11、-1，则输出结果为 ______。A．15B．14C．13D．12
以下程序运行时，输入3和4后输出的结果是______。 Private Sub Command1_Click() a=InputBox(“请输入a的值”) b=InputBox(“请输入b的值”) Print a+b End SubA．3+4B．7C．34D．12
下列程序： Private Sub Command1_Click() a=InputBox("请输入") b=InputBox("请输入") Print=a+b End Sub 运行时输入3和4，输出的结果是A．7B．34C．3+4D．出错
在窗体上画一个命令按钮，然后编写如下事件过程： 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 a End Sub 程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，则输出结果为 ______。A．2B．3C．14D．15
有如下事件过程： Private Sub Command1_Click() b=10 Do Until b =-1 a = InputBox("请输入a的值") a = Val(a)b = InputBox("请输入b值") b = Val(b)a=a*b Loop Print a End Sub 程序运行后，依次输入数值30，20，10，-1后，输出结果为( )。A．6000B．-10C．200D．-6000
有如下函数过程： Function fun1(By Val x As Integer,By Val y As Integer)As Integer Do While y＜＞0 reminder=x Mod y x=y y=reminder Loop fun1=x End Function 在下列按钮单击事件中调用该函数，则该程序的运行结果是( )。 Private Sub Command1_CliCk() Dim a As Integer Dim b As Integer a=100 b=25 x=fun1(a，b)Print x End SubA．0B．25C．50D．100
在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() y = 8 Print fun1(1 + fun1(fun1(fun1(y)))*10) End Sub Private FLinctiOn fUnl(A)funl(A)= 1 + a End Function 程序运行后，单击命令按钮，则窗体上显示的内容是A．112B．2C．909090D．1001
单选题Private Sub Command1_Click（） a=Val（InputBox（"请输入a的值="）） b=Val（InputBox（"请输入a的值="）） x=a+b Ifa＞b Then x=a-b End If Print x End Sub 若运行时从键盘输入a和b分别为3和4，则程序输出的结果为（）A1B7C10D11