1.编写如下两个事件过程：
 Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
　 Print Chr(KeyCode)
 End Sub
 Private Sub Form_KeyPress(KeyAscii As Integer)
　 Print Chr(KeyAscii)
 End Sub
在一般情况下(即不按住Shift键和锁定大写)，运行程序，如果按“A”键，则程序的输出是
 A.A   B.a   C.A  D.a
   a 　  A   　A  　a
2. "在窗体上画一个命令按钮和一个文本框，并把窗体的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.出错
3. 在上题中，如果把窗体的KeyPreview属性设置为False，则文本框中显示的内容为
 A.abcdefg
 B.不显示任何信息
 C.ABCDEFG 　
 D.出错
4. "在窗体上画一个文本框，然后编写如下事件过程：
　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.aaaaaa
 D.AAAAAA
5. 把窗体的KeyPreview属性设置为True，然后编写如下过程：
 Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
　 Print Chr(KeyCode)
 End Sub

 Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
　 Print Chr(KeyCode + 2)
 End Sub
程序运行后，如果按“A”键，则输出结果为
 A.A   B.A   C.A   D.A
　 A  　 B C   　D 首页 1 2 尾页