单项选择题

有下列事件过程： 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．6000
B．-10
C．200
D．-6000

<上一题目录下一题>

热门试题

单项选择题

有下列函数过程：Function fun1(ByVal x As Integer,ByVal y As Integer)As IntegerDo While y＜＞0reminder=x Mod yx=yy=reminderLoopfun1=xEnd Function 在下列按钮单击事件中调用该函数，则该程序的运行结果是( )。Private Sub Command1_Click()Dim a As IntegerDim b As Integera=100b=25x=fun1(a,b)Print xEnd Sub

A．0
B．25
C．50
D．100

单项选择题

下列程序段的执行结果是( )。Dim A(3,3)For M=1 To 3For N=1 To 3If N=M Or N=3-M+1 ThenA(M,N)=1ElseA(N,N)=0End IfNext NNext MFor M=1 To 3For N=1 To 3Print A(M,N)Next NPrintNext M

A．1 0 0 0 1 0 0 0 1
B．1 1 1 1 1 1 1 1 1
C．0 0 0 0 0 0 0 0 0
D．1 0 1 0 1 0 1 0 1

相关试题