[单选题]

有下列事件过程:

Private Sub Command1_Click()

b=10

D.o Until b=-1

a=InputBox("请输入a的值")

a=Val(A)

b=InputBox("请输入b的值")

b=Val(B)a=a*b

Loop

Print a

E.nd Sub

程序运行后,依次输入数值30,20,10,-1后,输出结果是( )。

A.6000

B.-10

C.200

D.-6000

参考答案与解析:

相关试题

有下列事件过程:Private Sub Command1_Click()b =

[单选题]有下列事件过程: 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

  • 查看答案
  • 有如下事件过程:Private Sub Command1_Click()b=10

    [单选题]有如下事件过程: 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=

    [单选题]有如下事件过程: 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 aEnd Sub程序运行后,依次输人数值30,20,10,-1,输出结果为A.6000B.-10C.200D.-6000

  • 查看答案
  • 有如下事件过程:Private Sub Command1_Click() b=1

    [单选题]有如下事件过程: 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

  • 查看答案
  • Command1_Click()事件代码如下:Private Sub Comma

    [单选题]C.ommand1_Click()事件代码如下: Private Sub Command1_Click() Dim x As Integer, Y As Integer x = 6 : Y : 8 Call ABC(X, Y) Print X; Y End Sub Private Sub ABC(ByVal X As Integer,Y As Integer) X = X + 4 Y = Y = 2 End Sub 事件发生后,X和Y的值分别为 ______。A.6, 8B.10, 10C.10

  • 查看答案
  • 下列事件过程运行后输出结果是Private Sub Command1_Click

    [单选题]下列事件过程运行后输出结果是 Private Sub Command1_Click() Print Format$(123,456,"###,##%") End SubA.123.46%B.123.45%C.123.456%D.12345.6%

  • 查看答案
  • 下列事件过程运行后输出结果是Private Sub Command1_Click

    [单选题]下列事件过程运行后输出结果是 Private Sub Command1_Click() Print Formats(123,456,"###,##%") End SubA.123.46%B.123.45%C.123.456%D.12345.6%

  • 查看答案
  • 假设有如下事件过程:Private Sub Command1_Click()ms

    [试题]假设有如下事件过程:Private Sub Command1_Click()msg1$="Are You Continue to?"msg2$="Open The Books"r=MsgBox(msg1$,34,msg2$)E.nd Sub运行该程序后,所出现的对话框的标题是[ ]。

  • 查看答案
  • 运行下列程序:Private Sub Command1_Click( )a =

    [单选题]运行下列程序:Private Sub Command1_Click( )a = Val(InputBox("a = "))Print fun1(a)E.nd SubPrivate Function fun1(b)If b > 0 Thenfun1 = 10E.lseIf b = 0 Thenfun1 = 9E.lsefun1 = 8E.nd IfE.nd Function单击按钮后从键盘为变量a输入数据3,输出的结果是( )。A.3B.8C.9D.10

  • 查看答案
  • 下列程序:Private Sub Command1_Click()a=Input

    [单选题]下列程序: Private Sub Command1_Click() a=InputBox("请输入") b=InputBox("请输入") Print=a+b End Sub 运行时输入3和4,输出的结果是A.7B.34C.3+4D.出错

  • 查看答案
  • 有下列事件过程:Private Sub Command1_Click()b=10