有如下事件过程: Private Sub Command1_Click() b=10 Do Until b =-1 a = InputBox("请输入a的值")

admin2010-09-11  35

问题 有如下事件过程:    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次输,N 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://kaotiyun.com/show/trmp777K
0

最新回复(0)