对用户输入的数值限制为正数，如果输入了负数，则要求重新输入。下面________可以实现。 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

公告：维护QQ群：833371870，欢迎加入！
公告：维护QQ群：833371870，欢迎加入！
公告：维护QQ群：833371870，欢迎加入！

2022-06-30

对用户输入的数值限制为正数，如果输入了负数，则要求重新输入。下面________可以实现。 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

举一反三

内容

0
阅读下面程序段： X=InputBox("请输入第一个数: " ) y=InputBox("请输入第二个数: " ) Print x + y 当输入 22 和33时，程序输出为____
1
可以实现从键盘输入一个作为双精度变量a的值的语句是( )。 A: a=InputBox() B: a=InputBox("请输入一个值") C: a=Val(InputBox("请输入一个值")) D: a=Val(InputBox())
2
设有语句： x = InputBox("输入数值
3
Dim x%,y%x=Inputbox("请输入第一个数")y=Inputbox("请输入第二个数")print x+y当输入分别为12和34时，程序输出为（）。 A: 1234 B: 46 C: 34 D: 程序出错
4
当输入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