在窗体上画一个命令按钮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=tEnd Sub程序运行后，如果从键盘输入5，则在文本框中显示的内容是( )。A．旅游景点：长城B．旅游景点：长城颐
题目
在窗体上画一个命令按钮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 ”相关问题
-
第1题：
设有如下通用过程：
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如 下事件过程：
End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是（ ）。A. 30
B. 25
C. 20
D. 15
正确答案：A
A) 【解析】本题考查函数的参数。数组作为参数进行传递时，VB中默认的参数传递方式为地址传递。过程Fun的功能是计算数组中所有元素的积。数组的元素为2 4 6 8 10，因此最后文本框中显示的内容为30。
-
第2题：
在窗体上画一个命令按钮，名称为Command1，然后编写如下程序：
程序运行后，如果单击命令按钮，则在窗体上显示的内容是（ ）。
A．
B．H
C．
D．
正确答案：A
【解析】分析程序，程序开始循环时i=1，j=1to1，PrintSUing(i，“Hello”)语句输出一个H，然后执行Print进行换行；当i=2时，j=1to2，PrintString(i，“Hello”)语句输出两行分别为两个HH，然后执行Print换行：当i=3时，退出循环。 -
第3题：
在窗体上画一个名称为Commandl的命令按钮和一个名称为Text1的文本框。程序运行后，Command1为禁用(灰色)。当向文本框中输入任何字符时，命令按钮Command1变为可用。请在（ ）处填入适当的内容，将程序补充完整。
正确答案：
True【解析】当向文本框中输入任何字符时．文本框中的内容发生变化，从而触发Change事件，事件处理程序将命令按钮激活即可。这通过设置Command1.Enabled的属性值为真来实现。 -
第4题：
在窗体上画二个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
程序运行后，单击命令按钮，在文本框中显示的值是
A．2
B．3
C．4
D．5
正确答案：B
题只能计算当i>1所循环的次数。注意i在循环体内被强行加3，到For循环时．还要再加步长1，这相当于因此，n=3。选择B。 -
第5题：
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Text1.Text = "Visual" Me.Text1 = "Basic" Text1 = "Program" End Sub 程序运行后，如果单击命令按钮，则在文本框中显示的是
A． Visual
B．Basic
C．Program
D．出错
正确答案：C
解析：Text是文本框的默认属性。 -
第6题：
在窗体（Name属性为Form1）上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（Name属性为Command1），然后编写如下两个事件过程：
程序运行后，在第一个文本框（Text1）和第二个文本框（Text2）中分别输入“同学们，”和“你们好”，然后单击命令按钮，则输出结果为多少？
程序运行后，在第一个文本框（Text1）和第二个文本框（Text2）中分别输入“同学们，”和“你们好”，然后单击命令按钮，则输出结果为：同学们，你们好。
略
程序运行后，在第一个文本框（Text1）和第二个文本框（Text2）中分别输入“同学们，”和“你们好”，然后单击命令按钮，则输出结果为多少？