更多"在窗体上画一个名称为TxtA的文本框，然后编写如下的事件过程： "的相关试题:
[单项选择]在窗体上画一个名称为TxtA的文本框，然后编写如下的事件过程：
Private Sub TxtA_KeyPress(Keyascii as integer)
End Sub
若焦点位于文本框中，则能够触发KeyPress事件的操作是
Ａ) 单击鼠标 Ｂ) 双击文本框
Ｃ) 鼠标滑过文本框 Ｄ) 按下键盘上的某个键
[单项选择]在窗体上面一个名称为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. 按下键盘上的某个键
[单项选择]在窗体上画一个列表框、一个文本框和一个按钮，然后编写如下事件过程：
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
[填空题]在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程：Private Sub Form_Click（ ） Text1.Text="VB程序设计"End SubPrivate Sub Text1_Change（ ） Picturel.Print"VB Programming"End Sub程序运行后，单击窗体，则在文本框中显示的内容是（），而在图片框中显示的内容是（）。
[单项选择]在窗体上画一个文本框，其名称为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的文本框，然后编写如下的事件过程：
Private Sub Text1_KeyPress(Keyascii As Integer)
End Sub
若焦点位于文本框中，则能够触发此事件的操作是( )。
A. 左键单击文本框
B. 左键双击文本框
C. 右键单击文本框
D. 按下键盘上的某个键
[填空题]
在窗体上画—个文本框，名称为Text1，然后编写如下程序：
Private Sub Form_Load（ ）
Open"d:/temp/dat.txt"For Output As #1
Text1.Text=""
End Sub
Private Sub Text1_KeyPress(Key Ascii As Integer)
IfKeyAscii=13 Then
If UCase(Text1.Text)= 【14】 Then
Close #1
End
Else
Write #1, 【15】
Text1.Text=""
End If
End If
End Sub
以上程序的功能是：在D盘temp文件夹下建立—个名为dat.txt的文件，在文本框中输入字符，每次按回车键都把当前文本框中的内容写入文件dat.txt，并清除文本框中的内容；如果输入“END”，则不写入文件，直接结束程序。请填空。
[填空题]
在窗体上画1个文本框，名称为Text1，然后编写如下程序：
Private Sub Form_Load（ ）
Open "d:/temp/dat.txt" For Output As #1
Text1.Text=" "
End Sub
Private Sub Text1 KeyPress(KeyAscii As Integer)
If （）=13 Then
If UCase(Text1.Text)=（） Then
Closer #1
End
Else
Write #1，（）
Text1.Text=" "
End If
End If
End Sub
以上程序的功能是，在D盘temp目录下建立1个名为dat.txt的文件，在文本框中输入字符，每次按回车键(回车符的ASCII码是13)都把当前文本框中的内容写入文件dat.txt，并清除文本框中的内容；如果输入“END”，则结束程序。请填空。
[单项选择]在窗体上画一个文本框(其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中输出不定值
[单项选择]在窗体上画一个名称为Text1的文本框，然后编写如下的事件过程：
Pfivate Sub Text1_KeyPress(Keyascii As Integer)
…
End Sub
若焦点位于文本框中，则能够触发此事件的操作是( )。
A. 单击文本框
B. 双击文本框
C. 单击文本框
D. 按键盘上的某个键
[单项选择]
在窗体上画1个文本框，其名称为Text1，然后编写如下过程：
Pfivme Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer)
Print Chr(KeyCode)
End Sub
Private Sub Text1_KeyUp(KeyCode As Integer,Shift As Integer)
Print Chr(KeyCode＋2)
End Sub
程序运行后，把焦点移到文本框中，此时如果敲击“A”键，则输出结果为（）。
A. A A
B. A B
C. A C
D. A D
[单项选择]在窗体上画一个命令按钮和一个文本框，其名称分别为Commandl和Text1，把文本框的Text属性设置为空白，然后编写如下事件过程： Private Sub Commandl_Ciick（ ） a=InputBox("Enter an integer") b=InputBox("Enter an integer") Text1.Text=b+a End Sub 程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10，则文本框中显示的内容是______。
A. 108
B. 18
C. 810
D. 出错
[填空题]在窗体上画一个文本框，其名称为Text1，在属性窗口中把该文本框的MultiLine属性设置为True，然后
编写如下的事件过程：
Private sub Form_Click（ ）
Open"d:＼test＼smtext1.txt"For Input As #1
Do While Not [13]
Line Input #1，aspect $
whole$=whole$+aspect$+Chr$(13)+Chr$(10)
Loop
Text1.Text=whole$
[14]
Open"d:＼test＼smtext2.txt"For Output As #1
Print #1， [15]
Close #1
End sub
运行程序，单击窗体，将把磁盘文件smtext1.txt的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件smtext2.txt。请填空。
