下列程序段的执行结果为 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="您要查询的是" &IIf(a＞0，"天气"，" ") &IIf(a＜0，"电话号码"，" ") &IIf(a=0，"邮编"，" ") Text1.Text=c End Sub程序运行后，如果从键盘上输入"16"，则在文本框显示的内容是______。

A．您要查询的是天气

B．您要查询的是邮编

C．您要查询的是电话号码

D．False

相似考题

1.有下列事件过程： Private Sub Command1_Click() b = 10 Do Until b = -1 a = InputBox(＂请输入a的值＂） a = Val(a) b = InputBox(＂请输入b的值＂） b = Val(b) a = a * b Loop Print End Sub程序运行后，依次输入数值30，20，10，-1后，输出结果是。A. 6000 B. -10 C. 200 D. -6000

2.下列程序执行时，从键盘上依次输入123和234，则程序的输出结果是【 】。a=InputBox("请输入第一个整数")b=InputBox("请输入第二整数")Print a＋b

3.单击命令按钮，并在对话框内输入6，下列程序段的执行结果为______。 Private Sub Command1_Click() Dim n As Integer n=InputBox ("请输入日期") Select Case n Case Is ＜= 0 n=InputBox("错误!请重新输入日期!") Case Is＞7 n=InputBox("错误!请重新输入日期!") Case 1 To 3 Print "江苏" Case 4 To 5 Print "浙江" Case 6 To 7 Print "双休日" End Select End SubA．错误!请重新输入日期!B．江苏C．浙江D．双休日

4.下列程序执行时，从键盘上依次输入123和234，则程序的输出结果是【 】。Dim a,b As Integera=InputBox("请输入第一个整数")b=InputBox("请输入第二整数")Print a+b

更多“下列程序段的执行结果为Private Sub Command1_Click()a=InputBox("请输入a值")c="您要查询的是"& ”相关问题

  • 第1题：

    有下列事件过程：

    Private Sub Command1_Click()

    b=10

    Do Until b=-1

    a=InputBox("请输入a的值")

    a=Val(A)

    b=InputBox("请输入b的值")

    b=Val(B)a=a*b

    Loop

    Print a

    End Sub

    程序运行后，依次输入数值30,20,10,-1后，输出结果是( )。

    A．6000

    B．-10

    C．200

    D．-6000


    正确答案：B
    解析：本段程序的执行过程如下：第1次输入30，并给变量a赋值为30；第2次输入20，并给变量b赋值为20，这是执行语句a=a*b=600，接着判断b=20条件不成立，因此继续循环：第3次输入10，给a赋值为10；第4次输入-1并赋值给变量b，再执行语句a=a*b=-10；然后判断循环条件，b=-1条件为真，所以退出循环。

  • 第2题：

    下列程序执行后，分别输入5，10，则输出的结果是______ 。 a= InputBox (“请输入数据”&“a”&“的值”) b= InputBox (“请输入数据”&“b”＆“的值”) c= a + b +“5”Print c

    A．15 5

    B．5105

    C．20

    D．25


    正确答案：B

  • 第3题：

    下列程序的输入值分别为100,10则执行结果为非作歹______ 。 m=Val (inputbox (“请输入数学1”) ) n=Val (inputbox (“请输入数学2”) ) If n*m=0 Then MsgBox “两数能不能为0” Exit Sub If m＜n Then t=m: m=n: n=t End If End If DO R=m Mod n m=n n=f Loop While r＜＞0 Print m

    A． 10

    B．100

    C．50

    D．250


    正确答案：A

  • 第4题：

    执行以下程序段，并输入1.23，则程序的输出结果应是【 】。

    N=Str(InputBox(“请输入一个实数：”))

    p=IiaStr(N，".")

    Print Mid(N，p)


    正确答案：.23
    .23 解析：InStr函数、Mid函数
    InStr([首字符位置]字符串1，字符串2[，n])用来在“字符串1”中查找“字符串2”，如果找到，则返回“字符串2”的第一个字符在“字符串广中的位置。
    如果带有参数“首字符位置”，则从该位置开始查找，否则从“字符串1”的起始位置查找。可选参数“n”用来指定字符串比较方式，可以取0、1或2。如为0，则进行在比较时区分大小写：如为1，则在比较时忽略大小写；如为2，则基于数据库中包含的信息进行比较。
    Mid(字符串，p，n)函数用来在“字符串”中从第p个字符开始，向后截取n个字符。如果省略参数n，则从第p个字符开始，向后截取到字符串的末尾。
    跟踪程序：
    n="1.23"
    p=InStr(n,".")=InStr("1.23"，".")
    p=2
    所以，Mid("1.23",2)所截取的字符是：“.23”。
    最终的输出结果是：.23。

  • 第5题：

    以下程序运行时，输入3和4后输出的结果是______。 Private Sub Command1_Click() a=InputBox(“请输入a的值”) b=InputBox(“请输入b的值”) Print a+b End Sub

    A．3+4

    B．7

    C．34

    D．12


    正确答案：C
    解析：InputBox函数返回的值是字符串类型，由于变量a和b没有说明，所以是变体类型。当把函数值赋给变量a和b后，a和b是变体字符串，Print输出的是两个字符串的连接结果34。

相关内容