有如下代码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
举一反三
- 对用户输入的数值限制为正数，如果输入了负数，则要求重新输入。下面________可以实现。 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))
内容
- 0
设有语句：x=InputBox("请输入数值", "1", "输入")，程序运行后，如从键盘输入10并按回车键，则下述正确的是______。 A: 变量x的值是数值10 B: 在InputBox对话框标题栏中显示的是“输入” C: 变量x的值是字符串“10” D: 1是默认值
- 1
当输入4时,以下程序的输出结果是. Private Sub Command1_Click() x = Val(InputBox(x)) If x ^ 2 < 15 Then y = 1 / x If x ^ 2 > 15 Then y = x ^ 2 + 1 Print y End Sub
- 2
执行下列程序，单击命令按钮后，从键盘分别输入4和5，则输出是 。 private sub command1_click() x=inputbox("请输入x的值") y=inputbox("请输入y的值") s=x if x>y then s=y s=s*s print s end sub
- 3
执行x=InputBox（"请输入半径"，0，"求面积"）在输入框中输入3后回车，则下列叙述正确的是（）。 A: x的值是数值3 B: x的值是字符"3" C: 0是默认值 D: 对话框标题是"求面积"
- 4
执行语句X=InputBox(“请输入销量”，“提示”，“2000”，1000)在弹出的对话框中输入2800，按“确定”按钮后，X的值为（）。