更多"在窗体上画一个文本框和一个计时器控件，名称分别为Text1和Timer"的相关试题:
[单项选择]在窗体上画一个文本框和一个计时器控件，名称分别为Text1和Timer1，在属性窗口 中把计时器的Interval属性设置为1000，Enabled属性设置为False。程序运行后，如果单 击命令按钮，则每隔一秒钟在文本框中显示一次当前的时间。以下是实现上述操作的程 序：
Private Sub Command1_Click（ ） Timer1.______
End Sub
Private Sub Timer1_Timer（ ） Text1.Text = Time
End Sub
在下划线处应填入的内容是______。
A. Enabled = True
B. Enabled = False
C. Visible = True
D. Visible = False
[单项选择]在窗体上绘制一个文本框和一个计时器控件，名称分别为Text1和Timer1，在属性窗口中把计时器的Interval属性设置为1 000，Enadled属性设置为False。程序运行后，如果单击命令按钮，则每隔一秒钟在文本框中显示一次当前的时间。以下是实现上述操作的程序：
Private Sub Command1 Click（ ）
Timerl.______
End Sub
Private Sub Timer_Timer（ ）
Text1.Text=Time
End Sub
在横线处应填入的内容是
A. Enabled=True
B. Enabled=False
C. Visible=True
D. Visible=False
[单项选择]在窗本上画一个文本框和一个计时器控件，名称分别为Text1和Timer1，在属性窗口中把计时器的Interval属性设置为1000，Enabled属性设置为False。程序运行后，如果单击命令按钮，则每隔一秒钟在文本框中显示一次当前的时间。以下是实现上述操作的程序：
Private Sub Command1_Click( )
Timer1．______
End Sub
Privale Sub Timer1_Timer( )
Text1.Text=Time
End Sub
在______处应填入的内容是
A. Enabled=True
B. Enabled=False
C. Visible=True
D. Visible=False
[单项选择]窗体上有一个名称为Text1的文本框；一个名称为Timer1的计时器控件，其Interval属性为5000，Enabled属性值是True。Timer1的事件过程如下：
Private Sub Timer1_Timer（ ）
Static flag As Integer
If flag=0 Then flag=1
flag=-flag
If flag=-1 Then
Text1.ForeColor=&HFF& ’&HFF&为红色
Else
Text1.ForeColor=&HC000& ’&HC000&为绿色
End If
End Sub
下面的叙述中正确的是
A. 每次执行此事件过程时，flag的初始值为0
B. flag的值只可能取0或1
C. 程序执行后，文本框的文字每5秒改变一次颜色
D. 程序有逻辑错误，Else分支总也不能被执行
[单项选择]窗体上有1个名称为Text1的文本框；1个名称为Timer1的计时器控件，其Interval 属性值为5000，Enabled属性值是True。Timer1的事件过程如下：
Private Sub Timer1 Timer（ ）
Static flag As Integer
If Flag=0 Then Flag=1
Flag=-flag
If flag=1 Then
Text1．ForeColor=＆HFF＆ ＆HFF＆为红色
Else
Text1．ForeColor=＆HCOO＆ ＆HCOO＆为绿色
End If
End Sub
以下叙述中正确的是( )。
A. 每次执行此事件过程时，flag的初始值均为0
B. flag的值只可能取0或1
C. 程序执行后，文本框中的文字每5秒改变一次颜色
D. 程序有逻辑错误，Else分支总也不能被执行
[单项选择]在窗体上画一个命令按钮和一个文本框(名称分别为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. 出错
[单项选择]在窗体上画一个命令按钮和一个文本框，其名称分别为Commandl和Text1，把文本框的 Text属性设置为空白，然后编写如下事件过程：
Private Sub Commandl_click（ ）
a=InputBox("Enter an integer")
b=InputBox("Enter an integer")
Text1.Text=b+a
End Sub
程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10，则文本框中显示内容是( )。
A. 108
B. 18
C. 810
D. 出错
[单项选择]在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，把文本框的Text属性设置为空白，然后编写如下事件过程：
Private Sub Command1_Click（ ）
a=InputBox("Enter an integer")
b=InputBox("Enter an integer")
Text1.Text=b+a
End Sub
程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10，则文本框中显示的内容是
A. 108
B. 18
C. 810
D. 出错
[单项选择]在窗体上画一个命令按钮和一个文本框，名称分别为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. 旅游景点：故宫
[单项选择]在窗体上画一个组合框，一个命令按钮和一个文本框，其名称分别为Combol，Command 1 和Text1，然后编写如下事件过程： Private Sub Form_Load（ ） Combol．AddItem"AAAAA”：Combol．AddItem"BBBBB" Combol．AddItem"CCCCC"：Combol．AddItem"DDDDD" Combol．AddItem"EEEEE" End Sub 程序运行后，如果单击命令按钮，则在文本框中显示组合框的项目“CCCCC”。为了实现该操作，在命令按钮的Click事件过程中应使用的语句为
A. Text1．Text=Combol．List(2)
B. Text1．Text=Combo1．Text
C. Text1．Text=Combol．List(3)
D. Text1．Text=Combol．ListIndex
[单项选择]在窗体上画一个命令按钮和一个文本框，名称分别为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. 旅游景点：故宫
[单项选择]在窗体上画一个组合框，一个命令按钮和一个文本框，其名称分别为Combo1，Command1和Text1，然后编写如下事件过程：
Private Sub Form_Load（ ）
Combo1.AddItem"AAAAA":Combo1.AddItem"BBBBB"
Combo1.AddItem"CCCCC":Combo1.AddItem"DDDDD"
Combo1.AddItem"EEEEE"
End Sub
程序运行后，如果单击命令按钮，则在文本框中显示组合框的项目“CCCCC”。为了实现该操作，在命令按钮的Click事件过程中应使用的语句为
A. Text1.Text=Combo1.List(2)
B. Text1.Text=Combo1.Text
C. Text1.Text=Combo1.List(3)
D. Text1.Text=Combo1.ListIndex
[单项选择]在窗体上画一个命令按钮Command1和两个文本框，名称分别为Text 1和 Text 2 Text 2。编写如下两个事件过程：
Dim str As String, strl As String
Private Sub form_load（ ）
Text1. Text = " "
Text2. Text = " "
Text1. Enabled = False
Text2. Enabled = False
End Sub
Private Sub Form KeyPress(KeyAscii As Integer)
str= str&Chr(KeyAscii)
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
str1 = strl&Chr(KeyCode)
End Sub
Private Sub Command1_Click（ ）
Text1. Text =str
Text2. Text = str1
str= " "
str1= " "
End Sub
当在设计阶段把窗体KeyPreview属性设置为True时，程序运行过程中，在键盘上输入小写字母abc，然后单击命令按钮，则文本框Text1中显示的内容为 ______ 。
A. abc
B. 不显示任何信息
C. ABC
D. 出错
[单项选择]在窗体上画—命令按钮和一个文本框；名称分别为Command1和Text1，然后编写如下程序：
Private Sub Command1_Click( )
a=InputBox(“请输入日期(1～31)”)
t=“旅游景点”
&llf(a＞0 And a＜=10，“长城”，“”，)_
&Ill(a＞10 And a＜=20，“故宫”，“”)_
&Iff(9＞20 And a＜=31，“颐和园”，“”)
TextI.Text=t
End Sub
程序运行后，如果从键盘—亡输A16，则在文本框中显示的内容是
A. 旅游景点：长城故宫
B. 旅游景点：长城颐和园
C. 旅游景点：颐和园
D. 旅游景点：故宫
[填空题]在窗体上画两个文本框，名字分别为Text1和Text2，然后编写下列程序。程序运行后，如果在文本框 Text2中输入lmn，那么在文本框Text1中显示的内容将是 【8】 。
Private Sub Form_Load（ ）
Show
Text1.Text=" "
Text2.Text=" "
Text2.SetFocus
End Sub
Private Sub Text2_KeyPress(KeyAseii As Integer)
Text1.Text=Text1.Text+Chr(KeyAscii-5)
End Sub
[填空题]在窗体上画两个文本框(名称分别为Text1和Text2)和一个命令按钮(名称为Command1)，
然后编写如下事件过程：
Private Sub Command1 Click（ ）
Text1．Text=InputBox("请输入数据1")
Text2．Text=InputBox("请输入数据2)
End Sub
程序运行后，如果单击命令按钮，将先后显示两个输入对话框，在两个输入对话框中分别输入123和abc，则两个文本框中显示的内容分别为 【9】 和 【10】 。
