更多"窗体上有文本框Text1和一个菜单，菜单标题、名称如表1所示，结构如图"的相关试题:
[单项选择]窗体上有一个名称为Text1的文本框，一个名称为Combo1的组合框。将文本框中的内容添加到组合框中所使用的命令是
A. Text1.AddItem Combo1.Text
B. Combo1.AddItem Text1.Text
C. Combo1.Text=Text1.Text
D. Text1.Text=Combo1.Text
[填空题]程序是一个窗体双击事件代码，窗体的名称是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
[填空题]程序是一个窗体双击事件代码，窗体的名称是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
[单项选择]设窗体上有一个文本框Text1和一个命令按钮Command1，并有以下事件过程：
Private Sub Command1_Click（ ）
Dim s As String，ch As String
s = " "
For k = 1 To Len(Text1)
ch = Mid(Text1, k, 1)
s = ch + s
Next k
Text1. Text = s
End Sub
程序执行时，在文本框中输入“Basic”，然后单击命令按钮，则Text1中显示的是( )。
A. Basic
B. cisaB
C. BASIC D) CISAB
[填空题]设窗体上有一个名称为CD1的通用对话框，一个名称为Text1的文本框和一个名称为Command1的命令按钮。程序执行时，单击Command1按钮，则显示打开文件对话框，操作者从中选择一个文本文件，并单击对话框上的“打开”按钮后，则可打开该文本文件，并读入一行文本，显示在Text1中。下面是实现此功能的事件过程，请填空。
Private Sub Command1_Click（ ）
CD1.Filter="文本文件1*.txt(Word文档)*.doc"
CD1.Filterinder=1
CD1.ShowOpen
If CD1.FileName＜＞" "Then
Open______For Input As # 1
Line Input #1,ch$
Close #1
Text1.Text=______
End If
End Sub
[单项选择]在窗体上有一个命令按钮Command1和一个文本框Text1，编写事件代码如下：
Private Sub Command1_Click（ ）
Dim i，j，x
For i=1 To 20 step 2
x=0
For j=i To 20 step 3
x=x+1
Next j
Next i
Text1．Value=Str(x)
End Sub
打开窗体运行后，单击命令按钮，文本框中显示的结果是( )。
A. 1
B. 7
C. 17
D. 400
[单项选择]在窗体上有一个命令按钮Command1和一个文本框Text1，编写事件代码如下：
PrivateSubCommand1_Click（）
Dimi，j，x
Fori=1To20step2
x=0
Forj=iTo20step3
x=x+1
Nextj
Nexti
Text1.Value=Str（x）
EndSub
打开窗体运行后，单击命令按钮，文本框中显示的结果是（）。
A. 1
B. 7
C. 17
D. 400
[单项选择]窗体上有一个名为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
Nextj
text1=str(n)
End Sub
程序运行时单击命令按钮，文本框中显示的值是（）。
A. 2
B. 3
C. 4
D. 5
[单项选择]在窗体上有一个名为Text1的文本框和一个名为Command1的命令按钮，并编写有如下事件过程：
Private Sub Command1_Click（ ）
Dim i As Integer,n As Integer
For i=0 To 50
i=j+3
n=n+1
If i＞10 Then Exit For
Next
Text1.Text=Str(n)
End Sub
程序运行后，单击命令按钮，在文本框中显示的是( )。
A. 2
B. 3
C. 4
D. 5
[单项选择]窗体上有名称分别为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
[单项选择]在窗体上有一个文本框，其名称为Text1，编写下列事件过程：
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim str AS String
str=Chr(KevAscii)
KevAscii=ASC(UCase(str))
Text1. Text=String(2，KeyAscii)
End Sub
程序运行后，如果在键盘上输入字母“a”，则在文本框Text3中显示的内容为( )。
A. aaa
B. AAA
C. AA
D. aa
[单项选择]窗体上有一个名称为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分支总也不能被执行
[填空题]在窗体上有一个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后，Command1为禁用(灰色)，此时如果在文本框中输入字符，则命令按钮Command1变为可用。请填空。
Pfivate Sub Form_Load（ ）
Command1.Enabled=False
End Sub
Private Sub Text1______
Command1.Enabled=True
End Sub
