更多"设窗体中有一个文本框Text1，若在程序中执行了Text1.SetFo"的相关试题:
[单项选择]设窗体中有一个文本框Text1，若在程序中执行了Text1.SetFocus，则触发（）
A. Text1的SetFocus事件
B. Text1的GotFocus事件
C. Text1的LostFocus事件
D. 窗体的GotFocus事件
[单项选择]设窗体上有一个文本框，名称为Text1，程序运行后，要求该文本框只能显示信息，不能接收输入信息，以下能实现该操作的语句是______。
A. Text1. MaxLength=0
B. Text1. Enabled=False
C. Text1. Visible=False
D. Text1. Width=0
[单项选择]运行时，当用户向文本框输入新的内容，或在程序代码中对文本框的Text属性进行赋值从而改变了文本框的Text属性时，将触发文本框的( )事件。
A. Click
B. DblClick
C. GotFocus
D. Change
[单项选择]在窗体上画一个名称为text1的文本框和一个名称为label1的标签，要求如下程序运行时，在文本框中输入的内容立即在标签中显示，在下划线上填入的内容是( )。
Private Sub Text1______
Label 1.Caption=Text1.Text
End Sub
A. Focus
B. Crick
C. Chang
D. LostFocus
[单项选择]在窗体上添加一个命令按钮，名为Command1，其单击事件中有下列程序段，则事件过程执行后，文本框中输出( )。
For i==1 To 4
For j=1 To 3
x=3
For k=1 To 2
x=x+3
Next k
Next j
Next i
Text1. Text=Str(x)
A. 3
B. 6
C. 9
D. 12
[单项选择]在窗体上画一个文本框(名称为Text1)和一个标签(名称为Label1)，程序运行后，如果在文本框中输入文本，则标签中立即显示相同的内容。以下可以实现上述操作的事件过程是（）。
A. Private Sub Text1_Change() Label1.Caption=Text1.Text End Sub
B. Private Sub Label1_Change() Label1.Caption=Text1.Text End Sub
C. Private Sub Text1_Click() Label1.Caption=Text1.Text End Sub
D. Private Sub Label1_Click() Label1.Caption=Text1.Text End Sub
[单项选择]在窗体上画一个文本框(名称为Text1)和一个标签(名称为Label1)，程序运行后，在文本框中每输入一个字符，都会立即在标签中显示文本框中字符的个数。以下可以实现上述操作的事件过程是
A. Private Sub Text1_Change()
B. Private Sub Text1_Click()
C. Private Sub Text1_Change()
D. Private Sub Label1_Change()
[单项选择]设窗体上有一个文本框，名称为Textl，程序运行后，要求该文本框只能显示信息，不能接收输入的信息，以下能实现该操作的语句是( )。
A. Textl.MaxLength=0
B. Textl.Enabled=False
C. Textl.Visible=False
D. Textl.Width=0
[单项选择]程序运行时，用户向文本框输入内容时，将触发文本框的( )事件。
A. Click
B. DblClick
C. Gotfocus
D. Change
[单项选择]在窗体上画一个文本框，然后编写如下事件过程。当该程序运行后，如果在键盘上输入字母“a”，则文本框中显示的内容为 ______。
Private Sub Text1_KeyPress＜KeyAscii As Integer)
Dim char as String
char=Chr(KeyAscii)
Text1.Text=String(5，KeyAscii)
End Sub
A. aaaaa
B. AAAAA
C. aaaaaa
D. AAAAAA
[单项选择]若设置了文本框的属性PasswordChar="$"，则运行程序时向文本框中输入8个任意字符后，文本框中显示的是
A. 8个"$"
B. 1个"$"
C. 8个"*"
D. 无任何内容
