（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
End Type
要求当执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是
A．Private Sub Command1_Click()
Dim B As Books
Open "c:\Person.txt" For Output As #1
B.Name = InputBox("输入姓名")
B.TelNum = InputBox("输入电话号码")
Write #1, B.Name, B.TelNum
Close #1
End Sub
B．Private Sub Command1_Click()
Dim B As Books
Open "c:\Person.txt" For Input As #1
B.Name = InputBox("输入姓名")
B.TelNum = InputBox("输入电话号码")
Print #1, B.Name, B.TelNum
Close #1
End Sub
C．Private Sub Command1_Click()
Dim B As Books
Open "c:\Person.txt" For Output As #1
Name = InputBox("输入姓名")
TelNum = InputBox("输入电话号码")
Write #1, B
Close #1
End Sub
D．Private Sub Command1_Click()
Dim B As Book
Open "c:\Person.txt" For Input As #1
Name = InputBox("输入姓名")
TelNum = InputBox("输入电话号码")
Print #1, B.Name, B.TelNum
Close #1
End Sub
（35）目录列表框的Path属性的作用是
A．显示当前驱动器或指定驱动器上的某目录下的文件名
B．显示当前驱动器或指定驱动器上的目录结构
C．显示根目录下的文件名
D．显示指定路径下的文件
【责编:onmars 纠错】
[1] [2] [3] [4] [5] [6] [7] 
相关文章
2005-9-17
