X=Val(InputBox("x="))IfX<0ThenX=Abs(X)'A...的输出结果为（______）。（5.0分
举一反三
- 对用户输入的数值限制为正数，如果输入了负数，则要求重新输入。下面________可以实现。 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
- 在窗体中添加一个命令按钮Command1，并编写如下程序： PrivateSubCommand1_Click() x=InputBox(x) Ifx^2=9Theny=x Ifx^2<9Theny=1/x Ifx^2>9Theny=x^2+1 Printy EndSub 程序运行时，单击命令按钮，在InputBox中输入3，然后单击“确定”按钮，程序的运行结果为（）。
- 执行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))