题目内容
（请给出正确答案）
在窗体上画一个命令按钮和一个文本框，名称分别为Command1和Text1，然后编写如下程序： Private Sub Command1_Click() a=InputBox("请输入日期(1～31)") t="旅游景点:"_ & Iif(a＞0 And a＜=10, "长城", "")_ & Iif(a＞10 And a＜=20, "故宫", "")_ & Iif(a＞20 And a＜=31, "颐和园", "") Text1. Text=tEnd Sub 程序运行后，如果从键盘上输入16，则在文本框中显示的内容是______。
A．旅游景点：长城故宫
B．旅游景点：长城颐和园
C．旅游景点：颐和园
D．旅游景点；故宫
简答题官方参考答案
（由简答题聘请的专业题库老师提供的解答）
更多“在窗体上画一个命令按钮和一个文本框，名称分别为Command1和Text1，然后编写如下程序：Private Sub”相关的问题
Private Sub Command1_Click（）
a=InputBox（“请输入日期（1~31）”）
t=”旅游景点：” _
& IIf （a > 0 And a <= 10,”长城”,””） _
& IIf （a >10 And a <= 20,”故宫”,””） _
& IIf （a > 20 And a <= 31,”颐和园”,””）
Text1.Text = t
End Sub
程序运行后，如果从键盘上输入16，则在文本框显示的内容是（）。
A． 旅游景点：长城故宫
B． 旅游景点：长城颐和园
C． 旅游景点：颐和园
D． 旅游景点：故宫
Sub S(x As Integer，Y As Integer)
Static z As Integer
y=x*x+z
z=y
End Sub
Private Sub Command1_Click()
Dim i As Integer，z As Integer
m=0
z=0
For i=1 To 3
S i，z
m=m+z
Next i
Label1．Caption=Str(m)
End Sub
程序运行后，单击命令按钮，在标签中显示的内容是
A．50
B．20
C．14
D．7
A． 旅游景点：长城故宫
B．旅游景点：长城颐和园
C．旅游景点：颐和园
D．旅游景点：故宫
A．旅游景点：长城故宫
B．旅游景点：长城颐和园
C．旅游景点：颐和园
D．旅游景点：故宫
A、-3 3
B、5 -8
C、3 -3
D、25 -25
A、“=”是赋值符号
B、“=”是判断符号
C、“=”可将右边的值赋给左边
D、“If True = True Then MsgBox "" ” 在VB中通不过
警告：系统检测到您的账号存在安全风险
为了保护您的账号安全，请在“简答题”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！
