题目内容
（请给出正确答案）
在窗体上画一个命令按钮Command1和一个文本框Text1，然后编写下列程序：
Private Sub Command1 click()
A=InputBox("请输入日期(1～31)")
t="旅游景点："_
&Ⅱf(A＞0 And A＜=10,"长城","")_
&Ⅱf(A＞10 And A＜=20,"故宫","")_
&Ⅱf(A＞20 And A＜=30,"颐和园","")
Text1.Text=t
End Sub
程序运行后，如果从键盘输入5，则在文本框中显示的内容是()。
A．旅游景点：长城
B．旅游景点：长城颐和园
C．旅游景点：颐和园
D．旅游景点：故宫
简答题官方参考答案
（由简答题聘请的专业题库老师提供的解答）
更多“在窗体上画一个命令按钮Command1和一个文本框Text1，然后编写下列程序：Private Sub Command1 clic”相关的问题
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Privme Sub Command1_Click() a$="VisualBasic" Print String(3，a＄) End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是
A．VVV
B．Vis
C．sic
D．11
在窗体上画一个命令按钮(名称为Command1)，编写如下事件过程： Private Sub Command1_Click() b=5 c=6 Print a=b+c End Sub 程序运行后，单击命令按钮，输出的结果是：_______。
A．a=11
B．a=b+c
C．a=
D．False
在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
Private Sub Commandl_Click()
Static X As Integer
Static Y As Integer
Cls
Y=1
Y=Y+5
X=5+X
Print X, Y
End Sub
程序运行时，3次单击命令按钮Command1后，窗体上显示的结果为【 】。
在窗体上画一个命令按钮，名称为Command1。单击命令按钮时，执行如下事件过程： Private Sub Command1_Click() a$="software and hardware" b$=Right(a$,8) c$=Mid(a$,1,8) MsgBox a$,,b$,c$,1 End Sub 则在弹出的信息框的标题栏中显示的信息是()。
A．hardware
B．software
C．hardware
D．1
在窗体上画一个名称为Command1的命令按钮。单击命令按钮时执行如下事件过程：
Private Sub Command1 Click（）
a$=”software and hardware”
b$=Right(a$，8)
c$=Mid(a$，L，8)
MsgBox a$，，bs，CS，1
End sub
则在弹出的信息框标题栏中显示的标题是（）。
A.software and bardware
B.hardware
C.software
D.1
在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程： Private Sub Commandl_Click() Dim a() a=Array(“机床”，“车床”，“钻床”，“轴承”) Print a(2) End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是()。
A．机床
B．车床
C．钻床
D．轴承
在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Private Sub Command1_Click() Static A As Integer Static B As Integer B=B+3 A=3+A Print A,B End Sub 程序运行时，三次单击命令按钮Command1后，在窗体上显示的第三行是()。
A．3 6
B．6 6
C．9 9
D．3 3
在窗体上画一个命令按钮，名称为Command1。然后编写如下程序： Private Sub Command1_Click() Dim j As Integer,s As Integer s=1 Do s=s+j j=j+1 Loop Until j＞=5 Print s End Sub 程序运行后，单击命令按钮，在窗体上输出的结果是()。
A．11
B．1
C．16
D．7
在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后，Command1为禁用(灰色)。当向文本框中输入任何字符时，命令按钮Command1变为可用。请在【 】处填入适当的内容，将程序补充完整。 Private Sub Form_Load() Command1.Enabled=False End Sub Private Sub Text1【 】() Command1.Enabled=True End Sub
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1 Click() Dim i As Integer,n As Integer For i=0 To 50 i=i+3 n＝n+1 If i＞10 Then Exit For Next Text1.Text=Str(n) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是______。
A．5
B．4
C．3
D．2
在窗体上画1一个名称为Command1的命令按钮，并编写以下程序
Private Sub Command1_Click（）
Print fun（“ABCDEFG”）
End Sub
Function fun（st As String） As String
stlen=Len（st）
temp=””
For k
fun=temp
End Function
程序运行时，单击命令按钮，则窗体上显示的是（）。
A．ABCDEFG
B．AGBFCE
C．GFEDCBA
D．AGBFCED
警告：系统检测到您的账号存在安全风险
为了保护您的账号安全，请在“简答题”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！
