有如下事件过程： 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=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．6000
B．-10
C．200
D．-6000
相关考题：
请输入B的值在窗体上画一个命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()x=0DoUntilx=－1a=InputBox("请输入A的值")a=Val(a)b=InputBox("请输入B的值")b=Val(b)x=InputBox("请输入x的值")x=Val(x)() A.2B.3C.15D.14
有下列事件过程： 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
假定在工程文件中有一个标准模块，其中定义了如下记录类型：Type BooksName As String*10TelNuin As String*20End Type要求在执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条记录。将以下程序补充完整。Private Sub Command1_Clickk()DimB As Booksopen"c:\person.txt"For output As 1B.Name=InputBox("请输入姓名")B.TelNum=InputBox("请输入电话号码")write 1，______close 1End Sub
有一过程如下: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,运行结果为【 】。
有如下事件过程： Private Sub Commandl_Click() b=10 Do Until b=-1 a=InputBox(“请输入a的值”) a=Val(A) b=InputBox(“请输入b的值”) b=Val(B) a=a*b Loop Pdnt a End Sub 程序运行后，依次输入数值30，20，10，-1，输出结果为( )。A．6000B．-10C．200D．-6000
有如下事件过程： 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() 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
假定在工程文件中有一个标准模块，其中定义了如下记录类型： Type Books Name As String*10 TelNum As String*20 End Type 要求当执行事件过程Command1_Click时，在顺序文件Person. txt中写入一条记录。下列能够完成该操作的事件过程是______。A．Private Sub Command1_Click() Dim B As Books Open"c:\Person. txt" For Output As #1 B. Name=InputBox("输入姓名") B. TelNum=InputBox("输入电话号码") Write #1, B. Name, B. TelNum Close #1 End SubB．Private Sub Command1_Click() Dim B As Books Open"c:\Person txt" For Output As #1 B. Name=InputBox("输入姓名") B. TelNum=InputBox("输入电话导码") Print #1, B. Name, B. TelNum Close #1 End SubC．Private Sub Command1_Click() Dim B As Books Open"c:\Person. txt" For Output As #1 Name=InputBox("输入姓名") TelNum=InputBox("输入电话号码") Print #1, B Close #1 End SubD．Private Sub Command1_Click() Dim B As Books Open "c:\Person txt" For Output As #1 Name=InputBox("输入姓名") TelNum=InputBox("输入电话号码") Print #1, B Name, B. TelNum Close #1 End Sub