单项选择题

有如下事件过程：
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．6000
B．-10
C．200
D．-6000
<上一题 目录 下一题>
热门 试题

单项选择题
在窗体上画1个命令按钮(名称为Commandl)和1个文本框(名称为Text1)，然后编写如下事件过程： Private Sub Commandl_Click() x=Val(Text1.Text) SelectCaseX Case 1，3 y=X*X CaseIS＞=10，IS＜=-10 y=X Case-10 To 10 y=-X End Select End Sub 程序运行后，在文本框中输入3，然后单击命令按钮，则以下叙述中正确的是( )。
A．执行y=x*x
B．执行y=-x
C．先执行y=x*x，再执行y=-x
D．程序出错
单项选择题
设有如下的记录类型： Type Student Number As String Name As String Age As Integer End Sub 则能正确引用该记录类型变量的代码是( )。
A．Student.name=""
B．Dim s As Students.name=“张红”
C．Dims As Tye Students.name=“张红”
D．DimsAsTypes.name=“张红”
相关试题