As Integer)
If b Mod 2 = 0 Then
F1 = 0
Else
F1 = 1
End If
End Function
C．Function F1(b As Integer)
If b Mod 2 = 0 Then
F1 = 1
Else
F1 = 0
End If
End Function
D．Function F1(b As Integer)
If b Mod 2 <> 0 Then
Return 0
Else
Return 1
End If
End Function
（29）以下关于KeyPress事件过程中参数KeyAscii的叙述中正确的是
A．KeyAscii参数是所按键的ASCII码
B．KeyAscii参数的数据类型为字符串
C．KeyAscii参数可以省略
D．KeyAscii参数是所按键上标注的字符
（30）设窗体上有一个名为Text1的文本框，并编写如下程序：
Private Sub Form_Load()
Show
Text1.Text = ""
Text1.SetFocus
End Sub
Private Sub Form_MouseUp(Button As Integer, _
Shift As Integer, X As Single, Y As Single)
Print "程序设计"
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Print "Visual Basic";
End Sub
程序运行后，如果在文本框中输入字母“a”，然后单击窗体，则在窗体上显示的内容是
A．Visual Basic
B．程序设计
C．Visual Basic程序设计
D．a程序设计 （31）假定有下表所列的菜单结构：
━━━━━━━━━━━━━━━━━━━━
标题 名称 层次
────────────────────
显示 appear 1（主菜单）
大图标 bigicon 2（子菜单）
小图标 smallicon 2（子菜单）
━━━━━━━━━━━━━━━━━━━━
要求程序运行后，如果单击菜单项“大图标”，则在该菜单项前添加一个“Ö”。以下正确的事件过程是
A．Private Sub bigicon_Click()
bigicon.Checked = False
End Sub
B．Private Sub bigicon_Click()
Me. appear.bigicon.Checked = True
End Sub
C．Private Sub bigicon_Click()
bigicon.Checked = True
End Sub
D．Private Sub bigicon_Click()
appear.bigicon.Checked = True
End Sub
（32）假定通用对话框的名称为CommonDialog1，命令按钮的名称为Command1，则单击命令按钮后，能使打开的对话框的标题为“New Title”的事件过程是
A．Private Sub Command1_Click()
CommonDialog1.DialogTitle = "New Title"
CommonDialog1.ShowPrinter
End Sub
B．Private Sub Command1_Click()
CommonDialog1.DialogTitle = "New Title"
CommonDialog1.ShowFont
End Sub
C．Private Sub Command1_Click()
CommonDialog1.DialogTitle = "New Title"
上一页 [1] [2] [3] [4] [5] [6] [7] 下一页
责任编辑：小草
