[单项选择]下列程序段的执行结果为 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_C"的相关试题:

[单项选择]单击窗体时，下列程序段的执行结果为( )。 Private Sub Form_Crick（　） Line(200,200)-(400,400) Print"+++++++++++++++++++" Print"*******************" End Sub
A. 在窗体上画一斜线，从斜线终点处开始打印两行符号
B. 在窗体上画一斜线，从斜线起点处开始打印两行符号
C. 在窗体上画一斜线，从窗体左上角开始打印两行符号
D. 从窗体左上角开始打印两行符号，从符号结束处开始画一斜线

查看答案

[单项选择]下列程序的执行结果为　　 Private Sub Comrnandl_Click( )　　　　Dim p As Integer, q As Integer　　　　p=12：q=20　　　　Call Value(p, q)　　　　Print p; q　　 End Sub　　 Private Sub Value(ByVal m As Integer, ByVal n As Integer)　　　　m=m * 2: n=n - 5　　　　Print m; n　　 End Sub
A. 20　12　 20　15
B. 12　20　 12　25
C. 24　15　 12　20
D. 24　12　 12　15

查看答案

[单项选择]下列程序的执行结果为　　Private Sub Commandl_Click( )　　　　Dim X As Integer，y As Integer　　　　x=12：y=20　　　　Call Value(x，y)　　　　Print X；y　　End Sub　　Private Sub Value(ByVal m As Integer，ByVal n As Integer)　　　　m=m * 2：n=n-5　　　　Print m；n　　End Sub
A. 20　　12 　20　　15
B. 12　　20 　12　　25
C. 24　　15 　12　　20
D. 24　　12 　12　　15

查看答案

[单项选择]下列程序的执行结果为　　Private Sub Commandl_Click（　）　　　　Dim s1 As String ,s2 As String　　　　s1= "abcd"　　　　Call Transfer(sl，s2)　　　　Print s2　　End Sub　　Private Sub Transfer (ByVal xstr As String，ystr As String)　　　　Dim tempstr As String　　　　ystr=tempstr　　End Sub
A. dcba
B. abdc
C. abcd
D. dabc

查看答案

[单项选择]下列程序的执行结果为（）。　　Private Sub Commandl_Click( ) 　　　　Dim X As Integer，y As Integer 　　　　x=12：y=20 　　　　Call Value(x，y) 　　　　Print X；y 　　End Sub 　　Private Sub Value(ByVal m As Integer，ByVal n As Integer) 　　　　m=m * 2：n=n-5 　　　　Print m；n 　　End Sub
A. SetWarning
B. SetValue
C. MsgBox
D. Beep

查看答案

[单项选择]单击命令按钮，下列程序的执行结果为　　Private Sub Commandl_Click（　）　　　　Dim x As Integer，y As Integer　　　　x=32：y=42　　　　Call PCS(x，y)　　　　Print x；y　　End Sub　　Public Sub PCS(Byval n As Integer，ByVal m As Integer)　　　　n=n Mod 10+1　　　　m=m Mood 10+1　　End Sub
A. 32 42
B. 2 32
C. 2 3
D. 12 3

查看答案

[单项选择]单击命令按钮时，下列程序的执行结果是　　Private Sub Commandl_Click( )　　　　BT 4　　End Sub　　PriVate Sub BT(x As Integer)　　　　X=X * 2 + 1　　　　If x ＜6 Then　　　　　Call BT(x)　　　　End If　　　　X=x * 2　　　　Print x；　　End Sub
A. 15
B. 16
C. 17
D. 18

查看答案

[单项选择]单击命令按钮时，下列程序的执行结果为　　Private Sub Command1 Click（　）　　　　Dim x As Integer，y As Integer 　　　　x=12：y=32 　　　　Call PCS(x，y) 　　　　Print x；y 　　End Sub 　　Public Sub PCS(ByVal n As Integer，ByVal m As Integer) 　　　　n=n Mod 10 　　　　m=m Mod 10 　　End Sub
A. 1232
B. 232
C. 23
D. 123

查看答案

[单项选择]单击命令按钮，下列程序的执行结果是　　Private Sub Blck (x As Integer)　　　　x = x * 2 + l　　　　If x ＜6 Then　　　　　　Call Blck(x)　　　　End If　　　　x = x * 2 + 1　　　　Print x；　　End Sub　　Private Sub Commandl_Click（　）　　　　Blck 2　　End Sub
A. 23 47
B. 10 36
C. 22 44
D. 24 50

查看答案

[单项选择]单击一次命令结束后，下列程序的执行结果是　　Private Sub Commandl_Click( ) 　　　s=Sat(1)+Sat(2)+Sat(3)+Sat(4) 　　　Print s 　　End Sub 　　Public Function Sat(N As Integer) 　　　　Static Sum 　　　　For i=1 To N 　　　　　　Sum=Sum+i 　　　　Next i 　　　　Sat=Sum 　　End Function
A. 15
B. 25
C. 35
D. 45

查看答案

[单项选择]单击一次命令结束后，下列程序的执行结果是( )。　　Private Sub Commandl_Click( ) 　　　s=Sat(1)+Sat(2)+Sat(3)+Sat(4) 　　　Print s 　　End Sub 　　Public Function Sat(N As Integer) 　　　　Static Sum 　　　　For i=1 To N 　　　　　　Sum=Sum+i 　　　　Next i 　　　　Sat=Sum 　　End Function
A. (5)
B. (6)
C. (7)
D. (11)

查看答案

[单项选择]单击命令按钮时，下列程序的执行结果是( )。　　Private Sub Commandl_Click( ) 　　　　BT 4 　　End Sub 　　PriVate Sub BT(x As Integer) 　　　　X=X * 2 + 1 　　　　If x ＜6 Then 　　　　　Call BT(x) 　　　　End If 　　　　X=x * 2 　　　　Print x；　　End Sub
A. 15
B. 16
C. 17
D. 18

查看答案

我来回答:

提交