打印本文 打印本文  关闭窗口 关闭窗口  
二级VB参考书第10章自测题
作者：佚名  文章来源：不详  点击数  更新时间：2008/4/18 14:49:54  文章录入：杜斌  责任编辑：杜斌
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


6. "假定编写了如下事件过程：
　　　Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
　　　　　　If(Button And 3) = 3 Then
　　　　　　　　　Print \"AAAA\"
　　　　　　End If
　　　End Sub
　　程序运行后，为了在窗体上输出“AAAA”，应按下的鼠标键为
 A.左
 B.右
 C.同时按下左、右
 D.按什么键都不显示
7. "假定编写了如下事件过程：
打印本文 打印本文  关闭窗口 关闭窗口