题目内容
（请给出正确答案）
在窗体上画一个命令按钮和一个文本框，名称分别为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=t End Sub 程序运行后，如果从键盘上输入16，则在文本框中显示的内容是
A．旅游景点：长城故宫
B．旅游景点：长城颐和园
C．旅游景点：颐和园
D．旅游景点：故宫
简答题官方参考答案
（由简答题聘请的专业题库老师提供的解答）
更多“在窗体上画一个命令按钮和一个文本框，名称分别为Command1和Text1，然后编写如下程序：Private Sub”相关的问题
（6）在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为 Text1、Label1 和 Command1，然
后编写如下两个事件过程：
Private Sub Command1_Click()
S$=InputBox("请输入一个字符串")
Text1.Text=S$
End Sub
Private Sub Text1_Change()
Label1.Caption=UCase(Mid(Text1.Text, 7))
End Sub
程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入字符串“VisualBasic”，
则在标签中显示的内容是 【6】 。
在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，然后编写如下事件过程： Private Sub Command1 Click() Dim arr1(10), arr2(10) For i = 1 To 10 arr1(i) = 3 * i arr2(i) = arr1(i) * 3 Next i Text1.Text = Str (arr2(i / 2 - 0.1)) End Sub程序运行后，单击命令按钮，在文本框中显示的是______。
A．36
B．45
C．54
D．63
A.旅游景点：长城故宫
B.旅游景点：长城颐和园
C.旅游景点：颐和园
D.旅游景点：故宫
在窗体上画两个文本框(名称分别为Text1和Text2)和一个命令按钮(名称为Command1)，然后编写下列事件过程：
Private Sub Command1 Click（）
x=0
DO While x＜50
x=(x+2)*(x+3)
n=n+1
Loop
Text1．Text=Str(n)
Text2．Text=Str(x)
End Sub
程序运行后，单击命令按钮，在两个文本框中显示的值分别为（）。
A.1和0
B.2和72
C.3和50
D.4和168
在窗体上画一个命令按钮和一个文本框，名称分别为Commandl和Text1，然后编写如下程序： Private Sub Commandl_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．旅游景点：故宫
在窗体上画一个命令按钮和一个文本框(名称分别为Command1和Text1)，并把窗体的KeyPreview属性设置为True，然后编写下列代码： Dim SaveAll As String Private Sub Form. Load（） Show Text1．Text="" Text1．SetFocus End Sub Private Sub Command1 Click（） Text1．Text=LCase(SaveAll)+SaveAll End Sub Private Sub Form. KeyPress(KeyAscii As Integer) SaveAll=SaveAll+Chr(KeyAscii) End Sub 程序运行后，直接用键盘输入VB，再单击命令按钮，则文本框中显示的内容为（）。
A.vbVB
B.不显示任何信息
C.VB
D.出错
在窗体上画两个文本框(名称分别为Text1和Text2)和一个命令按钮(名称为Command1)，然后编写下列事件过程： Private Sub Command1 Click（） x=0 DO While x＜50 x=(x+2)*(x4．3) n=n+1 Loop Text1．Text=Str(n) Text2．Text=Str(x) End Sub 程序运行后，单击命令按钮，在两个文本框中显示的值分别为（）。
A.1和0
B.2和72
C.3和50
D.4和168
在启动窗体Form1上画一个名为Command1的命令按钮和两个文本框(其名称分别为Text1和Text2)，新建一个窗体Form2。然后编写如下程序： Private Sub Command1_ Click() msg$ = "Retry" Title$ = "Error!" If TextText = "a" And TextText = "1" Then Unload Me Form. Show Else MsgBox msg$, vbOKOnly + vbCritical, Title$ End If End Sub运行该程序，要实现单击Command1命令按钮后卸载当前窗体，再弹出名为Form. 2的窗体，则在两个文本框中应分别输入______。
A．a 1
B．a a
C．1 a
D．1 1
在窗体上画一个命令按钮和一个文本框，名称分别为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．旅游景点；故宫
在窗体上画两个文本框(其名称分别为Text1和Text2)和一个命令按钮(其名称为 Commandl)，然后编写如下两个事件过程： Private Sub Command1_Click() Text1.Text = "Computer Rank Examination" End Sub Private Sub Text1_Change() Text2.Text = UCase(Text1.Text) End Sub程序运行后，单击命令按钮，则在Text2文本框中显示的内容是______。
A．Computer Rank Examination
B．computer rank examination
C．COMPUTER RANK EXAMINATION
D．空字符串
警告：系统检测到您的账号存在安全风险
为了保护您的账号安全，请在“简答题”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！
