有下列事件过程: 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 P

admin2010-11-20  17

问题 有下列事件过程:
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

答案B

解析 本段程序的执行过程如下:第1次输入30,并给变量a赋值为30;第2次输入20,并给变量b赋值为20,这是执行语句a=a*b=600,接着判断b=20条件不成立,因此继续循环:第3次输入10,给a赋值为10;第4次输入-1并赋值给变量b,再执行语句a=a*b=-10;然后判断循环条件,b=-1条件为真,所以退出循环。
转载请注明原文地址:https://jikaoti.com/ti/nsg0FFFM
0

最新回复(0)