题目内容
（请给出正确答案）
下列程序段的执行结果为 Private Sub Command1_Click() a=InputBox("请输入a值") c="您要查询的是" &IIf(a＞0，"天气"，" ") &IIf(a＜0，"电话号码"，" ") &IIf(a=0，"邮编"，" ") Text1.Text=c End Sub程序运行后，如果从键盘上输入"16"，则在文本框显示的内容是______。
A．您要查询的是天气
B．您要查询的是邮编
C．您要查询的是电话号码
D．False
简答题官方参考答案
（由简答题聘请的专业题库老师提供的解答）
更多“下列程序段的执行结果为Private Sub Command1_Click（)a=InputBox（"请输入a值")c="您要查询的是"&”相关的问题
单击命令按钮，并在对话框内依次输入99，73，84，88，-1，下列程序段的执行结果为______。 Private Sub Command1_Click() Dim S As Single, max As Single, min As Single n=0 S=InputBox("Please enter a score") max=S min=S Do While S＞=0 If S＞max Then max=S End If If S ＜ min Then min=S End If S=InputBox("Please enter a score") n=n+1 Loop Print n; ":"; max, min End Sub
A．4:99,88
B．4;99,73
C．4:99,73
D．4;99,88
下列程序段的执行结果为______。 Private Sub Command1_Click() n = 0 For a = 1 To 20 For b = 1 To 20 For c = 1 To 20 If a * a + b * b - c * c Then n=n+l End If Next c Next b Next a Print n End Sub
A．9
B．12
C．10
D．11
执行下列程序： CLEAR DO A RETURN PROCEDURE A PRIVATE S S＝5 DO B ？S RETURN PROCEDURE B S＝S+10 RETURN 程序的运行结果为
A．5
B．10
C．15
D．程序错误，找不到变量
下列程序段的执行结果为______。 Private Sub Command1_Click() a=1：b=1 Select Case a Case 1 Select Case b Case 0 Print "你好!" Case 1 Print "Hello!" End Select Case 2 Print"谢谢使用!" End Select End Sub
A．你好!
B．谢谢使用!
C．Hello!
D．你好!谢谢使用!
单击命令按钮，并在对话框内依次输入5，7，6下列程序段的执行结果为______。 Private Sub Command1_Click() Dim n AS Integer, a As Integer, b As Integer, c As Integer n = 0 For i = 1 To 3 a = InputBox ("请输入数字") n = n+a*a If n ＞ 50 Then GoTo ex End If Next i ex: Print n End Sub
A．25
B．74
C．85
D．110
单击命令按钮时，下列程序段的执行结果为()。 Private Sub Command1_Click() Dim FirstStr As String FirstStr="abcdef" Print PickMid(FirstStr) End Sub Private Function PickMid(xStr As String)As String Dim tempStr As String,strLen As Integer TempStr=" " strLen=Len(xStr) i=1 Do While i＜=strLen/2 tempStr=tempStr+Mid(xStr,i,1)+Mid(xStr,strLen-i+1,1) i=i+1 Loop PickMid=tempStr End Funcfion
A．abcdef
B．fed
C．fedcba
D．defabc
有下列程序段，单击命令按钮执行程序后，输出结果为()。 Option Base 1 Private Sub Command1_Cliek() Dim x x=Array(23, -5, 17, 38, -31, 46, 11, 8, 5, -4) s1=0 s2=0 Fork=1 To 10 If (x(k)＞0) Then s1=s1+x(k) Else s2=s2+x(k) End If Next k Y=s1/Abs(s2) Print Y End Sub
A．148
B．40
C．-40
D．3.7
A.您要查询的是天气
B.您要查询的是邮编
C.您要查询的是电话号码
D.False
下列程序的执行结果为 Private Sub Command1_Click() Dim s1 As String，s2 As String S1；="abcdef" Call Invert(s1，s2) Print s2 End Sub Private Sub Invert (ByVal xstr As String，ystr As String) Dim tempstr As String i=Len(xstr) Do While i＞=1 tempstr=tempstr+Mid(xstr，i，1) i=i-1 Loop ystr=tempstr End Sub
A．fedcba
B．abcdef
C．afbecd
D．defabc
单击窗体时，下列程序段的执行结果为()。 Private Sub Form_Crick() Line(200,200)-(400,400) Print"+++++++++++++++++++" Print"*******************" End Sub
A．在窗体上画一斜线，从斜线终点处开始打印两行符号
B．在窗体上画一斜线，从斜线起点处开始打印两行符号
C．在窗体上画一斜线，从窗体左上角开始打印两行符号
D．从窗体左上角开始打印两行符号，从符号结束处开始画一斜线
警告：系统检测到您的账号存在安全风险
为了保护您的账号安全，请在“简答题”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！
