更多"窗体上有一个名称为Text1的文本框；一个名称为Timer1的计时器控"的相关试题:
[单项选择]窗体上有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分支总也不能被执行
[单项选择]设窗体上有一个标签Label1和一个计时器Timer1，Timer1的Interval属性被设置为1000，Enabled属性被设置为True。要求程序运行时每秒在标签中显示一次系统当前时间。以下可以实现上述要求的事件过程是______。
A. Private Sub Timer1_Timer()Label1.Caption=TrueEnd Sub
B. Private Sub Timer1_Timer()Label1.Caption=Time$End Sub
C. Private Sub Timer1_Timer()Label1.Interval=1End Sub
D. Private Sub Timer1_Timet()For k=1 To Timer1.IntervalLabel1.Caption=TimerNext kEnd Sub
[填空题]在窗体上有一个文本框控件，名称为Text1。同时，窗体加载时设置其计时器间隔为1 秒、计时器触发事件过程则实现在Text1 文本框中动态显示当前日期和时间。请补充完整。
Private Sub From_Load（）
Me.Timerinterval＝1000
End Sub
Private Sub __________
Me.text1＝Now（）
End Sub
[填空题]在窗体上有一个文本框控件，名称为Text1。同时，窗体加载时设置其计时器间隔为1 s，计时器触发事件过程则实现在Text1文本框中动态显示当前日期和时间。请补充完整。
Private Sub Form Load( )
Me.TimerInterval＝1000
End Sub
Private Sub______
Me.Text1＝Now( )
End Sub
[填空题]在窗体上有一个文本框控件，名称为Text1。同时，窗体加载时将设置计时器间隔为1秒，计时器触发事件过程实现在Text1文本框中动态显示当前日期和时间。请将以下程序补充完整。
Private Sub Form_Load（ ）
Me．TimerInterval=1000
End Sub
Private Sub______
Me! texl=Now（ ）
End Sub
[填空题]在窗体上有一个文本框控件，名称为Text1。同时，窗体加载时设置其计时器间隔为1秒，计时器触发事件过程则实现在Text1文本框中动态显示当前日期和时间。请补充完整。
Private Sub From_Load（ ）
Me. Timerinterval= 【13】
End Sub
Private Sub 【14】
Me. text1=Now（ ）
End Sub
[单项选择]窗体上有1个名称为Text1的文本框；1个名称为Thner1的计时器控件，其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. 程序有逻辑错误，Else分支总也不能被执行
D. 程序执行后，文本框中的文字每5秒政变一次颜色
[单项选择]窗体上有1个名称为Text1的文本框，1个名称为Timerl的计时器，且已在属性窗口将Timerl 的Interval属性设置为2000、Enabled属性设置为False。以下程序的功能是，单击窗体，则每隔2秒钟在Text1中显示一次当前时间。 Private Sub Form_Click（ ） Private Sub Timerl_Timer（ ）Timerl．________ Text1．Text=Time（ ） End Sub End Sub 为了实现上述功能，应该在横线处填入的内容为
A. Enabled=True
B. Enabled=False
C. Visible=True
D. Visible=False
[单项选择]窗体上有名称分别为Text1、Text2的2个文本框，要求文本框Text1中输入的数据小于
500，文本框Text2中输入的数据小于1000，否则重新输入。为了实现上述功能，在以 下程序中问号（？）处应填入的内容是______。
Private Sub Text1_LostFocus（ ） Call CheckInput(Text1,500) End Sub
Private Sub Text2_LostFocus（ ） Call CheckInput(Text2,1000) End Sub
Sub CheckInput(t As ,x As Integer) If Val(t.Text)>x Then
MsgBox "请重新输入！"
End If
End Sub
A. Text
B. SelText
C. Control
D. Form
[填空题]程序是一个窗体双击事件代码，窗体的名称是Mywindow。窗体上有一个名为text1的文本框，用来显示文本。
程序段首先在文本框中显示“窗体能够触发双击事件”然后将该文本清除；重复上述过程5次。
Option Explicit
Private ______
Dim k As Integer
For k=1 To 100
If k Mod 20 Then
_______
Else
Text1.Text=" "
End If
Print“程序运行完毕，可再双击窗体”
End Sub
[填空题]程序是一个窗体双击事件代码，窗体的名称是Mywindow。窗体上有一个名为Text1的文本框，用来显示文本。
程序段首先在文本框中显示“窗体能够触发双击事件”然后将滚文本清除；重复上述过程5次。
Option Explicit
Private 【12】
Dim k As Integer
For k=1 to 100
If k Mod 20 Then
【13】
Else
Text1.Text=""
End lf
Print“程序运行完毕，可再双击窗体”
End Sub
[单项选择]窗体上有名称分别为Text1、Text2的两个文本框，要求文本框Text1中输入的数据小于500，文本框Text2中输入的数据小于1000，否则重新输入。为了实现上述功能，在以下程序中间号（ ）处应填入的内容是
Private Sub Text1_LostFocus（ ）
Call CheekInput(Text1,500)
End Sub
Private Sub Text2_LostFocus（ ）
Call CheekInput(Text2,1000)
End Sub
Sub Cheeklnput(t As , x As Integer)
If Val(t.Text)＞x Then
MsgBox "请重新输入!"
End If
End Sub
A. Text
B. SelText
C. Control
D. Form
[单项选择]窗体上有一个名为text1的文本框和一个名为command1的命令按钮，事件过程如下：
Private Sub command1_click（ ）
Dim i As Integer,n As Integer
For j=0 to 50
i=i+3
n=n+1
If i＞10 Then Exit For
Next j
text1=str(n)
End Sub
程序运行时单击命令按钮，文本框中显示的值是______。
A. 2
B. 3
C. 4
D. 5
