更多"窗体上有一个名称为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分支总也不能被执行
[单项选择]
窗体上有1个名称为Text1的文本框；1个名称为Timer的计时器控件，其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=&HPP& ’&HFF&为红色
Else
Text1.ForeColor=&HC000& ’&HC000&为绿色
End If
End Sub
以下叙述中正确的是（）
A. 每次执行此事件过程时，flag的初始值均为0
B. flag的值只可能取0或1
C. 程序执行后，文本框中的文字每5秒改变一次颜色
D. 程序有逻辑错误，Else分支总也不能被执行
[单项选择]在表单中有命令按钮Command1和文本框Text1，将文本框的InputMask属性值设置为$9，999．9，然后在命令按钮的Click事件中输入代码ThisForm．Text1．Value=123456．789，当运行表单时，单击命令按钮，此时文本框中显示的内容为
A. $123456．789
B. $23 456．7
C. 123456．7
D. * * * *．*
[单项选择]在表单中有命令按钮Commandl和文本框Text1，将文本框的InputMask属性值设置为$9,999.9，然后在命令按钮的Click事件中输入代码ThisForm.Text1.Value=12 3456.789，当运行表单时，单击命令按钮，此时文本框中显示的内容为______。
A. $123456.789
B. $23456.7
C. 123456.7
D. **，***．*
[填空题]在窗体上有一个文本框控件，名称为Text1。同时，窗体加载时设置其计时器间隔为1秒、计时器触发事件过程则实现在Text1文本框中动态显示当前日期和时间。请补充完整。
Private Sub Form_Load（ ）
Me.TimerInterval=1000
End Sub
Private Sub [12]
Me!text1=Now（ ）
End Sub
[单项选择]设窗体上有一个标签Label1和一个计时器Timer1，Timer1的Interval属性被设置为1000，Enabled属性被设置为True。要求程序运行时每秒在标签中显示一次系统当前时间。以下可以实现上述要求的事件过程是______。
A. Private Sub Timer1_Timer()
B. Private Sub Timer1_Timer()
C. Private Sub Timer1_Timer()
D. Private Sub Timer1_Timer()
[单项选择]在窗体上绘制一个文本框和一个计时器控件，名称分别为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，Text属性值为空，然后编写如下事件过程：
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim str As String，n As Integer
str=UCase(Chr(KeyAscii))
n=Len(str)
Text1.Text=String(n，str)
End Sub
程序运行后，若在文本框中输入单字母“p”，则在文本框Text1中显示的内容为( )。
A. pp
B. pP
C. PP
D. Pp
[单项选择]在窗体上有一个文本框Text1，Text属性值为空，然后编写下列事件过程：
Private Sub Text1 KeyPress(KeyAscii As Integer)
Dim str As String,n As Integer
str=UCase(Chr(KeyAscii))
n=Len(str)
Text1.Text=String(n,str)
End Sub
程序运行后，若在文本框中输入单字母“p”，则在文本框Text1中显示的内容为( )。
A. pp
B. pP
C. PP
D. Pp
[单项选择]设窗体上有一个标签Label1和一个计时器Timer1,Timer1的Interval属性被没置为1000，Enabled属性被设置为True。要求程序运行时每秒在标签中显示一次系统当前时间。以下可以实现上述要求的事件过程是( )
A. Private Sub Timer1_Timer()
B. Private Sub Timer1_Timer()
C. Private Sub Timer1_Timer()
D. Private Sub Timer1_Timer()
[单项选择]
在窗体上画一个文本框和一个计时器控件，名称分别为Text1和Timerl，在属性窗口中把计时器的Interval属性设置为1000，Enabled属性设置为False。程序运行后，如果单击命令按钮，则每隔一秒钟在文本框中显示一次当前的时间。以下是实现上述操作的程序：
Private Sub Commandl_Click（ ）
Timerl.______
End Sub
Private Sub
Timerl_Timer（ ）
Text1.Text=Time
End Sub
在下划线处应填入的内容是（）。
A. Enabled=True
B. Enabled=False
C. Visible=True
D. Visible=False
[单项选择]如果文本框的INPUTMASK属性值是#99999，允许在文本框中输入的是( )。
A. +12345
B. abc123
C. $12345
D. abcdef
[填空题]
窗体中有一个名为Command1的命令按钮和一个名为Text1的文本框，事件代码如下：
Private Sub Command1_Click （ ）
Dim a(10) As Integer , b(10) As Integer
n=3
For i=1 T0 5
a(i)= i
b(n) = 2*n+i
Next i
Me!Text1 = a(n) + b(n)
End Sub
打开窗体，单击命令按钮，文本框Text1中显示的内容是（）。
[单项选择]
设窗体上有一个名为Text1的文本框和一个名为Command1的命令按钮，并有以下事件过程：
Private Sub Command1_Click（ ）
x!=Val(Text1. Text)
Select Case x
Case Is＜-10, Is＞=20
Print "输入错误"
Case Is＜0
Print 20-x
Case Is＜10
Print 20
Case Is＜=20
Print x+10
End Select
End Sub
程序运行时，如果在文本框中输入-5，则单击命令按钮后的输出结果是（）。
A. 5
B. 20
C. 25
D. 输入错误
[单项选择]设窗体上有一个名为Text1的文本框和一个名为Command1的命令按钮，并有以下事件过程：
Private Sub Command1_Click（ ）
x!=Val(Text1.Text)
Select Case x
Case Is＜-10.Is＞=20
Print"输入错误"
Case Is＜0
Print 20-x
Case Is＜10
Print 20
Case Is＜=20
Print x+10
End Select
End Sub
程序运行时，如果在文本框中输入-5，则单击命令按钮后的输出结果是______。
A. 5
B. 20
C. 25
D. 输入错误
[单项选择]在窗体上画一个名为Text1的文本框和一个名为Command1的命令按钮。要求：程序运行时，单击命令按钮，能将事先输入到文本框中的内容一个字符一个字符地写入顺序文件Test.dat中，如图所示。请在空格处填上适当的内容，则在以下横线处合适的语句是( )。
Private Sub Command1_Click（ ）
Open "c:/test.dat"For______As#1
For i=1 To Len(Text1.Text)
Next i
Close #1
End Sub
A. Input Print#1,Mid(Text1.Text,i,1)
B. Output Print#1,Mid(Text1.Text,i,1)
C. Output Print#1,Left(Text1.Text,i,1)
D. Output Input#1,Mid(Text1.Text,i,1)
[单项选择]
窗体上有名称分别为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
