更多"在窗体上绘制一个文本框和一个计时器控件，名称分别为Text1和Time"的相关试题:
[单项选择]在窗体上绘制一个文本框和一个计时器控件，名称分别为Text1和Timer1，在属性窗口中把计时器的Interval属性设置为1000，Enadled属性设置为False。程序运行后，如果单击命令按钮，则每隔一秒钟在文本框中显示一次当前的时间。以下是实现上述操作的程序： Private Sub Commandl Click（ ） Timer1.______ End Sub Private Sub Timer_Timer（ ） Text1.Text=Time End Sub 在横线处应填入的内容是( )。
A. Enabled=Tree
B. Enabled=False
C. Visible=Tree
D. Visible=False
[单项选择]在窗体上画一个文本框和一个计时器控件，名称分别为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属性设置为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属性设置为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
[单项选择]窗体上有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分支总也不能被执行
[填空题]在名称为Forml的窗体上绘制一个文本框，其名称为Text1，在属性窗口中把该文本框的MultiLine属性设置为True，然后编写如下的事件过程：
Private SUb Form_CnCk（ ）
Open"d:/tes/smtext1.txt"For Input AS #1
Do While Not EOF(1)
Line Iput #1,aspect$
whole$=whole$+aspect$+Chf$(13)+Chr$(10)
Loop
Text1.Text=whole$
Close #1
Open"d:/test/smtext2.txt"For OutpUt As #1
Print #1,______
Close #1
End Sub
上述程序的功能是，把磁盘文件smtext1.txt的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件smtext2.txt。
[填空题]在名称为Form1的窗体上绘制一个文本框，其名称为Text1，在属性窗口中把该文本框的MultiLine属性设置为True，然后编写如下的事件过程：
Private Sub Form Click（ ）
Open "d：/test/smtext1.txt" For Input As #1
Do While Not
Line Input #1，aspects
whole$=whole$+aspect$+Chr$(13)+Chr$(10)
Loop
Text1.Text=whole$
Close #1
Open "d：/test/smtext2.txt" For Output As #1
Print #1, ______
Close #1
End Sub
上述程序的功能是，把磁盘文件smtext1.txt的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件smtext2.txt。请填空。
[填空题]在窗体上画一个文本框，其名称为Text1，在属性窗口中把该文本框的MultiLine属性设置为True，然后编写如下的事件过程：
Private Sub Form_Click（ ）
Open"d:/test/smtext1.txt"For Input As # 1
Do While Not______
Line Input # 1,aspects
wholes=wholes+aspects+Chrs(13)+Chrs(10)
Loop
Text1.Text=wholes
______
Open"d:/test/smtext2,txt"For Output As # 1
Print # 1，______；
Close # 1
End Sub
运行程序，单击窗体，将把磁盘文件smtext1.txt的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件smtext2.tXt。请填空。
[单项选择]在窗体上绘制一个命令按钮和一个文本框，名称分别为Command1和Text1，然后编写如下程序：
Private Sub Command1+Click（ ）
a=InputBox(“请输入日期(1～31)”)
t=“旅游景点：”
&If(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. 旅游景点：故宫
