更多"设在窗体上有个文本框，然后编写如下的事件过程： Private Su"的相关试题:
[单项选择]在窗体上画一个列表框、一个文本框和一个按钮，然后编写如下事件过程：
Private Sub Form_Load（ ）
List.AddItem“357”
List.AddItem“246”
List.AddItem”123”
List.AddItem”456”
TEXT1.Text="
End Sub
Private Sub Command1_C1ick（ ）
List.Listindex=3
Print List.Text+Text1.Text
End Sub
程序运行后，在文本框中输入“789”，然后双击列表框中“456”，则输出结果为( )。
A. 789123
B. 456789
C. 789456
D. 12345
[单项选择]在窗体上面一个名称为TxtA的文本框，然后编写如下的事件过程：
Private Sub TxtA_KeyPress(KeyAscii as Integer)
…
End Sub
若焦点位于文本框中，则能够触发KeyPress事件的操作是______。
A. 单击鼠标
B. 双击文本框
C. 鼠标滑过文本框
D. 按下键盘上的某个键
[单项选择]在窗体上画一个名称为TxtA的文本框，然后编写如下的事件过程：
Private Sub TxtA_KeyPress(keyaseii as integer)
……
End Sub
若焦点位于文本框中，则能够触发KeyPress事件的操作是
A. 单击鼠标
B. 双击文本框
C. 鼠标滑过文稿本框
D. 按下键盘上的某个键
[单项选择]在窗体上面画一个名称为TxtA的文本框，然后编写如下的事件过程；
Private Sub TxtA_KeyPress(Keyascii as integer)
……
End Sub
若焦点位于文本框中，则能够触发KeyPress事件的操作是______。
A. 单击鼠标
B. 双击文本框
C. 鼠标滑过文本框
D. 按下键盘上的某个键
[单项选择]在窗体上画一个名称为TxtA的文本框，然后编写如下的事件过程：
Private Sub TxtA_KeyPress(keyascii as integer)
End Sub
若焦点位于文本框中，则能够触发KeyPress事件的操作是( )。
A. 单击鼠标
B. 双击文本框
C. 鼠标滑过文本框
D. 按下键盘上的某个键
[单项选择]在窗体上画一个名称为Text1的文本框，然后编写如下的事件过程：
Private Sub Text1_KeyPress(Keyascii As Integer)
...
End Sub
若焦点位于文本框中，则能够触发此事件的操作是( )。
A. 左键单击文本框
B. 左键双击文本框
C. 右键单击文本框
D. 按下键盘上的某个键
[单项选择]在窗体上画一个文本框，其名称为Text1，然后编写如下事件过程：
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim str As String
Str=Chr(KeyAscii)
KeyAscii=Asc(UCase(str))
Text1.Text=String(2, KeyAscii)
End Sub
程序运行后，如果在键盘上输入字母“b”，则在文本框Text1中显示的内容是( )。
A. bbb
B. BBB
C. BB
D. bb
[单项选择]在窗体上画一个名称为Text1的文本框，然后编写如下的事件过程：
Pfivate Sub Text1_KeyPress(Keyascii As Integer)
…
End Sub
若焦点位于文本框中，则能够触发此事件的操作是( )。
A. 单击文本框
B. 双击文本框
C. 单击文本框
D. 按键盘上的某个键
[单项选择]窗体上有一个列表框和一个文本框，编写下列两个事件过程：
Private Sub Form Load（ ）
List1.Addltem"北京"
List1.Addltem"天津"
List1.Addltem"上海"
Text1.Text=""
End Sub
Private Sub List1 Click（ ）
Print Text1.Text+List1.Text
End Sub
程序运行后，在文本框中输入“中国”，然后单击列表框中的“北京”，则输出结果是( )。
A. 中国北京
B. 中国天津
C. 中国上海
D. 北京中国
[单项选择]在窗体上画一个文本框(其Name属性为Text1)，然后编写如下事件过程：
Private Sub Form_Load（ ）
Text1.Text=“”
Text1.SetFocus
For i=1 To 9
Sum=Sum+i
Next i
Text1.Text=Sum
End Sub
上述程序的运行结果是( )。
A. 在文本框Text1中输出45
B. 在文本框Text1中输出0
C. 出错
D. 在文本框Text1中输出不定值
