题目内容
（请给出正确答案）
有如下程序，运行该程序后从键盘接收1个有效的(≥0)数据。如果输入的数据无效，则要求重新输入，否则显示该数据的平方根。程序空白处应填写( )。
Dim s As Integer, i As Integer
Dim flag As Boolean, p As Integer
flag=True
Do While flag
s=val(InputBox("请输入："))
If s＜0 Then
MsgBox"输入无效!请重新输入。"
Else
MsgBox Sqr(s)
______
End If
Loop
A．flag=True B．flag=False C．True=flag D．False=flag
安装简答题APP，拍照搜题省时又省心！
更多“有如下程序，运行该程序后从键盘接收1个有效的（≥0)数据。如…”相关的问题
INPUT TO A
IF A=10
S=0
ENDIF
S=1
？S
假定从键盘输入的A值是数值型，上面条件选择程序的执行结果是( )。
A．0 B．1 C．由A的值决定 D．程序出错
A. flag=False
B. flag=Notflag
C. flag=True
D. ExitDo
PrivateSub Command32_Click（）max=0
max n=0
For i=iTo 10
num=Val(InputBox(”请输入第”&i＆”个大于0的整数；”))
If__________Then
max=num
max_n=i
End If
Next i
MsgBox(”最大值为第”＆max_n&”个输入的”&Max)
End Sub
程序空白处应该填入的表达式是（）。
A.num>i
B.i
C.num>max
D.num
A．可以将过程的返回值赋给变量
B．宏对象经转换后自动成为模块中的一个过程
C．VBA中除了内置函数，还可以自定义函数
D．过程内用Static定义的变量是过程级静态局部变量
Private Sub主体_Click()
Dim i As Integer,a As Integer
a=1
For i=1 To 3
Select Case i
Case 1,3
a=a+1
Case 2,4
a=a+2
End Select
Next i
MsgBox a
End Sub
A．3 B．4 C．5 D．6
Dim s As String,x As String,y As String,z As String
Dim i As Integer
s="ABBACDDCBA"’
For i=6 To 2 Step-2
x=Mid(s,i,i)
y=Left(s,i)
z=Right(s,i)
z=x&y&z
Next i
MsgBox z
A．AABBAA B．ABAABB C．BBABBA D．AABAAB
为了保护您的账号安全，请在“简答题”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！
微信搜一搜
简答题
微信搜一搜
简答题
如搜索结果不匹配，请 
