感谢您使用《我要做题》www.51zuoti.com,这是一个提供各类考试在线答题的网站，由于采用了艾宾浩斯脑外记忆管理功能，所以大大节省了记忆时间和提高了记忆效率。同时非常环保，可完全替代传统纸质习题集。
　　您现在正在查看的为试题存档，如要进入做题界面请回到章节列表，如要登录网站请回到首页

编写如下的事件过程：
Private Sub Form_KeyPress(KeyAscii As Integer)
Print Chr(KeyAscii+5)
End Sub
程序运行后，当按下小写字母“a”，则程序的输出结果是____。▶查看答案及解析请进入章节练习，点击章节名称进入。

运行下列程序。在窗体上按功能键Fl，则输出结果为____。
Private Sub Form_KeyDown(KeyCode As Integer，Shift．As Integer)
Print”Fl Down”；
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
Print"Fl Press"；
End Sub▶查看答案及解析请进入章节练习，点击章节名称进入。

以下叙述中，错误的是____。▶查看答案及解析请进入章节练习，点击章节名称进入。

在窗体上画一个文本框，然后编写如下的事件过程：
Private Sub Textl_KeyDown(KeyCode As Integer，Shift As Integer)
Const Alt=4
Const Key_F2=&H71
ahdown％=(Shift And Ah)>0
f2down％=(KeyCode=Key_F2)
If altdown％And f2down％Then
Textl．Text="China"
End If
End Sub
程序运行后，如果按"Shift+F2"，则在文本框中显示的是____。▶查看答案及解析请进入章节练习，点击章节名称进入。

对窗体编写如下事件过程：
Private Sub Form-MouseDown(Button As Integer，Shift As Integer，x As Single，y As Single)
If Button=1 Then
Print"Press!"
End If
End Sub
Private Sub Form_MouseUp(Button As Integer，Shift As Integer，x As Sin916，y As Single)
If Button=1 Then
Print"Up!"
End If
End Sub
程序运行后，单击鼠标左键，则输出结果是____。▶查看答案及解析请进入章节练习，点击章节名称进入。

对窗体编写如下事件过程：
Private Sub Form?MouseDown(Button As Integer，Shift As Integer，x As Si-gle，y As Single)
ⅡButton=2 Then
PIint"AAAAA"
End If
End Sub
Private Sub Form_MouseUp(Button As Integer，Shift As Integer,x As Single，y As Single)
Print"BBBBB"
End Sub
程序运行后，单击鼠标右键，输出结果为▶查看答案及解析请进入章节练习，点击章节名称进入。

有如下事件过程：
Private Sub Form_MouseDown(Button As Integer，Shift As Integer，x As Single，y As Single)
If Shift=4 And Button=2 Then
Print"PC"
End If
End Sub
程序运行后。为了在窗体上输出"PC"，应执行的操作为____。▶查看答案及解析请进入章节练习，点击章节名称进入。

在执行KeyPress事件过程时。KeyAscii是所按键的#_9值。对于有上、下档字符的键，当执行KeyDown事件过程时，KeyCode是#_2字符的#_4值。

键面字符的ASCIL码值,下档,ASCII

▶查看答案及解析请进入章节练习，点击章节名称进入。

把窗体的KeyPreview属性设置为True，然后编写如下两个事件过程：
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

A,a

▶查看答案及解析请进入章节练习，点击章节名称进入。

下列说法正确的是____。▶查看答案及解析请进入章节练习，点击章节名称进入。

窗体上有文本框Textl，执行下列程序后在文本框输入123abe，单击按钮后输出结果为____。
Private Sub From_Load()
Textl．Text=””
End Sub
Private Sub Textl_KeyPress(KeyAscii As Integer)
Char=Chr(KeyAscii)
KeyAscii=Asc(UCase(Char))
Eud Sub
Private Sub Commandl_Click()
Print Textl．Text
End Sub▶查看答案及解析请进入章节练习，点击章节名称进入。

运行下列程序，按下回车键后输出结果为____。
Option Base 1
Private Sub Form_KeyPress(KeyAscii As Integer)
a=Array(237，126，87，48，498)
ml=a(1)
m2=1
If KeyAscii=13 Then
For i=2 To 5
If a(i)>ml Then
ml=a(i)
m2=i
End If
Next i
End If
Print ml
Print m2
End Sub▶查看答案及解析请进入章节练习，点击章节名称进入。

运行下列程序，在文本框中输入字符"a"，则输出结果为____。
Private Sub Form_Load()
Textl．Text=""
End Sub
Private Sub Textl_KeyDown(KeyCode As Integer，Shift As Integer)
Textl．Text=KeyCode
Print Textl．Text
End Sub▶查看答案及解析请进入章节练习，点击章节名称进入。

运行下列程序后，鼠标单击窗体，输出结果为____。
Private Sub Form_Click()
Print"Click"：
End Sub
Private Sub Form_MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single)
Print"Down"：
End Sub
Private Sub Form?MouseUp(Button As Integer，Shift As Integer，X As Single，Y As Single)
Print"Up"；
End Sub▶查看答案及解析请进入章节练习，点击章节名称进入。

以下叙述中错误的是_____。▶查看答案及解析请进入章节练习，点击章节名称进入。

有如下事件过程：
Private Sub Form?KeyDown(KeyCode As Integer，Shift As Integer)
If(Button And 1)=1 Then
Print"你好棒啊!"
End If
End Sub
程序运行后，为了在窗体上输出"你好棒啊!"，应当按下的鼠标键是____。▶查看答案及解析请进入章节练习，点击章节名称进入。

下列控件不支持MouseDown事件的是____。▶查看答案及解析请进入章节练习，点击章节名称进入。

下列操作会执行"Form_MouseUp"过程的是▶查看答案及解析请进入章节练习，点击章节名称进入。

鼠标移动经过控件时，将触发控件的____事件。▶查看答案及解析请进入章节练习，点击章节名称进入。

在窗体上画一个标签Labell，然后编写如下代码：
Private Sub Form_KeyPress(KeyAscii As Integer)
Dim str As String
str=Chr(KeyAscii)
Label1．Caption=str
End Sub
程序运行后，在键盘上输入"China"，则标签中显示的内容是#_1。

A

▶查看答案及解析请进入章节练习，点击章节名称进入。

在窗体上编写如下两个事件过程：
Private Sub Form_KeyDown(KeyCode As Integer，Shift As Integer)
Print Chr(KeyCode)
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
Print Chr(KeyAseii)
End Sub
程序运行后，按"a"键(不按住Shift键)，则

A a

▶查看答案及解析请进入章节练习，点击章节名称进入。

　在线做练习题，提高学习效率！»»　

全国计算机等级考试二级Visual Basic