有如下代码x=0DoUntilx=-1a=InputBox("请输入A的值")a=Val(a)b=InputBox("请输入B的值")b=Val(b)x=InputBox("请输入x的值")x=Val(x)a=a+b+xLoop程序运行后,依次在输入对话框中输入5、4、3、2、1、-1,则变量a的值为______.
A: 2
B: 3
C: 14
D: 15
A: 2
B: 3
C: 14
D: 15
举一反三
- 对用户输入的数值限制为正数，如果输入了负数，则要求重新输入。下面________可以实现。 A: Dim x As IntegerDo x = Val(InputBox("请输入数据"))Loop While x <; 0 B: Do x = Val(InputBox("请输入数据"))Loop While x >; 0 C: Do While x >; 0 x = Val(InputBox("请输入数据"))Loop D: x = Val(InputBox("请输入数据"))If x <; 0 ThenEnd If E: For x <; 0 x = Val(InputBox("请输入数据"))Next
- 对用户输入的数值限制为正数，如果输入了负数，则要求重新输入。下面________可以实现。 A: Dim x As IntegerDo x = Val(InputBox("请输入数据"))Loop While x < 0 B: Do x = Val(InputBox("请输入数据"))Loop While x > 0 C: Do While x > 0 x = Val(InputBox("请输入数据"))Loop D: x = Val(InputBox("请输入数据"))If x < 0 ThenEnd If E: For x < 0 x = Val(InputBox("请输入数据"))Next
- 可以实现从键盘输入一个作为双精度变量a的值的语句是( )。 A: a=InputBox() B: a=InputBox("请输入一个值") C: a=Val(InputBox("请输入一个值")) D: a=Val(InputBox())
- 执行x$=InputBox("请输入x的值")时，在弹出的对话框中输入123，在列表框 List1中选中一个列表项(数据为456)，使结果为123456 的语句是( )。 A: y=x$+List1．List(0) B: y=x$+List1．List(1) C: y=Val(x$)+Val(List1．List(0)) D: y=Val(x$)＆Val(List1．List(1))
- 执行x$=InputBox("请输入x的值")时，在弹出的对话框中输入123，在列表框List1选中一个列表项(数据为456)，使结果为123456的语句是( )。 A: y=x$+List1.List(0) B: y=x$+List1.List(1) C: y=Val(x$)+Val(List1.List(0)) D: y=Val(x$)＆Val(List1.List(1))