在窗体上画一个文本框，然后编写如下事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer) Dim char As String char=Chr(KeyAscii) KeyAscii=Asc(UCase(char)) Text1.Text=String(6，KeyAscii) End Sub 程序运行后，如果在键盘上输入字母“a”，则文本框中显示的内容为 ______。
A．a
B．A
C．aaaaaaa
D．AAAAAAA
第1题：
在窗体上画一个名称为 TxtA 的文本框，然后编写如下的事件过程：
Private Sub TxtA_KeyPress（KeyAscii As Integer）
……
End Sub
假定焦点已经位一地文本框中，则能够触发 KeyPress 事件的操作是（ ）。 A．单击鼠标
B．双击文本框
C．鼠标滑过文本框
D．按下键盘上的某个键
第2题：
在窗体上面一个名称为TxtA的文本框，然后编写如下的事件过程： Private Sub TxtA_KeyPress(KeyAscii as Integer) … End Sub 若焦点位于文本框中，则能够触发KeyPress事件的操作是______。
A．单击鼠标
B．双击文本框
C．鼠标滑过文本框
D．按下键盘上的某个键
第3题：
在窗体上画1个命令按钮和1个文本框，其名称分别为Command1和Text1，然后编写如下代码：
Dim SaveAll As String
Private Sub Command1_Click（）
Text1.Text=Left（UCase（SaveAll），4）
End Sub
Private Sub Text1_KeyPress（KeyAscii As Integer）
SaveAll=SaveAll+Chr（KeyAscii）
End Sub
程序运行后，在文本框中输入abcdefg，单击命令按钮，则文本框中显示的内容是______。
ABCD
该题中出现了3个内部函数：UCase、Left和Chr，其功能分别是转换为大写字母、取左边的字符和求取ASCII字符。代码的功能是将字符串转换成大写字母形式后取最左边的4个字符，并将字符输出。
第4题：
（17）在窗体上有一个文本框，其名称为Text1，编写下列事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer ) Dim str As String Str=Chr(KeyAscii) KeyAscii=Asc(UCase(str)) Text1.Test=String(2,KeyAscii) End Sub 程序运行后，如果在键盘上输入字母“a”则在文本框Text3中显示的内容为 A.aaa B.AAA C.AA D.aa
第5题：
在窗体上画一个名称为Text1的文本框，然后编写如下的事件过程：Pfivate Sub Text1_KeyPress(Keyascii As Integer) … End Sub 若焦点位于文本框中，则能够触发此事件的操作是( )。
A．单击文本框
B．双击文本框
C．单击文本框
D．按键盘上的某个键
第6题：
（ 28 ）在窗体上画一个名称为 TxtA 的文本框，然后编写如下的事件过程：
Private Sub TxtA _KeyPress(KeyAscii As Integer)
......
End Sub
假定焦点已经位于文本框中，则能够触发 KeyPress 事件的操作是
A ） 单击鼠标
B ） 双击文本框
C ）鼠标滑过文本框
D ）按下键盘上的某个键
第7题：
把窗体的KeyPreview属性设置为Tree，然后编写如下事件过程 Private Sub Form_KeyPress(KeyAscii As Integer) Dim ch As String ch=Chr(KeyAscii) KeyAscii=Asc(UCase(ch)) Print Chr(KeyAscii+2) End Sub 程序运行后，按键盘上的“A”键，则在窗体上显示的内容是______。
A． A
B．B
C．C
D．D
第8题：
（ 9 ） 在窗体上画 1 个命令按钮和 1 个文本框 ， 其名称分别为 Command1 和 Text1 ， 然后编写下列事件过程 ：
Dim SaveAll As String
Private Sub Command1_Click( )
Text1.Text=Left(UCase(SaveAll),4)
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
SaveAll=SaveAll+Chr(KeyAscii)
End Sub
程序运行后，在文本框中输入 abcdefg ，单击命令按钮，则文本框中显示的内容是 【 11 】 。
（ 9 ）【答案】 【 11 】 ABCD
【解析】该题中出现了 3 个内部函数： UCase 、 Left 和 Chr ，其功能分别是转换为大写字母、取左边的字符和求取 ASCII 字符 。 代码的功能是将字符串转换成大写字母形式后取最左边的 4 个字符 ， 并将字符输出 。
第9题：
在窗体上画一个名称为TxtA的文本框，然后编写如下的事件过程： Private Sub TxtA_KeyPress(KeyAscii As Integer) …… End Sub 假定焦点已经位于文本框中，则能够触发KeyPress事件的操作是______。
A．单击鼠标
B．双击文本框
C．鼠标滑过文本框
D．按下键盘上的某个键
第10题：
在窗体上画一个命令按钮和一个文本框，并将窗体的KeyPreview属性设置为True，然后编写如下代码： Dim SaveAll As String Private Sub Form_Load() Show Text1.Text=" " Text1.SetFocus End Sub Private Sub Command1_Click() Text1.Text = Ucase(SaveAll) End Sub Private Sub Form_KeyPress(KeyAscii As Integer) SaveAll=SaveAll+Chr(KeyAscii) End Sub 程序运行后，在键盘上输入abcdefg，单击命令按钮，则文本框中显示的内容为
A．abcdefg
B．不显示任何信息
C．ABCDEFG
D．出错