更多"在窗体上有一个命令按钮Command1和一个文本框Text1，编写事件"的相关试题:
[单项选择]窗体上有一个名为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
[填空题]在窗体上有一个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后，Command1为禁用(灰色)，此时如果在文本框中输入字符，则命令按钮Command1变为可用。请填空。
Pfivate Sub Form_Load（ ）
Command1.Enabled=False
End Sub
Private Sub Text1______
Command1.Enabled=True
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
[单项选择]窗体上有一个名称为Text1的文本框，一个名称为Combo1的组合框。将文本框中的内容添加到组合框中所使用的命令是
A. Text1.AddItem Combo1.Text
B. Combo1.AddItem Text1.Text
C. Combo1.Text=Text1.Text
D. Text1.Text=Combo1.Text
[单项选择]窗体上有两个名称分别为Text1、Text2的文本框，一个名称为Command1的命令按钮。设有如下的类型声明：
Type Person
name As String*8
major As String*20
End Type
当单击命令按钮时，将两个文本框中的内容写入一个随机文件Test.dat中。设文本框中的数据已正确地赋值给Person类型的变量p。则能够正确地把数据写入文件的程序段是( )。
A. Open "c:/Test.dat" For Random As#1
B. Open "c:/Test.dat" For Random As #1
C. Open "c:/Test.dat" For Random As#1 Len=Len(p)
D. Open "c:/Test.dat" For Random As#1 Len=Len(p)
[单项选择]在窗体上有一个命令按钮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
[单项选择]窗体上有Text1、Text2两个文本框及一个命令按钮Command1，编写下列程序
Dim y As Integer
Private Sub Command1_Click（ ）
Dim x As Integer
X=2
Text1.Text=Fun2(Fun1(x)，y)
Text2.Text=Fun1(x)
End Sub
Private Function Fun1(x As Integer)As Integer
x=x+y:y=x+y
Fun1=x+y
End Function
Private Function Fun2(x As Integer，y As Integer)As Integer
Fun2=2*x+y
End Function
当单击1次和单击2次命令按钮后，文本框Textl和Text2内的值分别是
A. 2 4
B. 2 4
C. 10 10
D. 4 4
[单项选择]窗体上有Text1、Text2两个文本框及一个命令按钮Command1，编写下列程序：
Dim y As Integer
Private Sub Command1_Click（ ）
Dim x As Integer
x=2
Text1.Text=Fun2(Fun1(x),y)
Text2.Text=Fun1(x)
End Sub
Private Function Fun1(x As Integer) As Integer
x=x+y:y=x+y
Fun1=x+y
End Function
Private Function Fun2(x As Integer，y As Integer) As Integer
Fun2=2*x+y
End Function
当单击1次和单击2次命令按钮后，文本框Text1和Text2内的值分别是
Ａ) 2 4
2 4
Ｂ) 2 4
4 8
Ｃ) 10 10
58 58
Ｄ) 4 4
8 8
[单项选择]在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，在文本框中输入以下字符串： Microsoft Visual Basic Programming 然后编写如下事件过程： Private Sub Command1_Click( ) Open“d：/temp/outf.txt"For Output As#1 For i=1 To Len(Text1.Text) c=Mid(Text1.Text，i，1) Ifc＞=“A”And c＜=“Z”Then Print#1，LCase(c) End lf Next i Close End Sub 程序运行后，单击命令按钮，文件outf.txt中的内容是
A. MVBP
B. mvbp
C. M V B P
D. m v b p
[单项选择]窗体上有名称为Command1的命令按钮和名称为Text1的文本框
Private Sub Command1_Click（ ）
Text1. Text = "程序设计"
Text1. SetFocus
End Sub
Private Sub Text1_GotFocus（ ）
Text1. Text = "等级考试"
End Sub
运行以上程序，单击命令按钮后( )。
A. 文本框中显示的是“程序设计”，且焦点在文本框中
B. 文本框中显示的是“等级考试”，且焦点在文本框中
C. 文本框中显示的是“程序设计”，且焦点在命令按钮上
D. 文本框中显示的是“等级考试”，且焦点在命令按钮上
[单项选择]在窗体上绘制一个名称为Command1的命令按钮和一个名称为Text1的文本框，在文本框中输入以下字符串：
Microsoft Sub Command1_Click（ ）
然后编写如下事件过程：
Private Sub Command1_Click（ ）
Open "d：/temp/outf.txt" For Output As #1
For i=1 To Len(Text1.Text)
c=Mid(Text1.Text，i，1)
If c＞="A" And c＜="Z" Then
Print #1，LCase(c)
End If
Next i
Close
End Sub
程序运行后，单击命令按钮，文件outf.txt中的内容是
A. MVBP
B. mvbp
C. M
D. m
