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"
CommonDialog1.ShowOpen
End Sub
D）Private Sub Command1_Click()
CommonDialog1.DialogTitle = "New Title"
CommonDialog1.ShowColor
End Sub
（33）如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是
A）任何时刻最多只有一个窗体是活动窗体
B）不能把标准模块设置为启动模块
C）用Hide方法只是隐藏一个窗体，不能从内存中清除该窗体
D）如果工程中含有Sub Main过程，则程序一定首先执行该过程
（34）假定在工程文件中有一个标准模块，其中定义了如下记录类型
Type Books
Name As String * 10
TelNum As String * 20
上一页 [1] [2] [3] [4] [5] [6] 下一页
|
ChinaITLab收集整理 
2006-3-11 
相关文章