B．MMControl1.Visible= True
C．MMControl1.RecordVisible= False D．MMControl1.RecordVisible= True
（5）在多媒体控件（MMControl）中，DeviceType属性用于设置多媒体设备的类型，如果将要播放的文件是CD歌曲，应将DeviceType属性设置为（ ）。
A．DigitalVideo B．WaveAudio
C．AVIVideo D．CDAudio
（6）Windows Media Player控件的UiMode属性，表示播放器界面模式，以下选项是播放器模式的属性值是（ ）。
A．Full B．Mini C．None
D．以上都是
（7）在Windows Media Player控件中，决定播放文件是否全屏的属性是（ ）。
A．FullScreen B．Full
C．Screen D．stretchToFit 2．程序设计题
设计CD播放器程序，通过该程序能够欣赏CD-ROM中CD曲目，并能控制播放状态及更改播放曲目，显示CD盘中的歌曲总数及正在播放歌曲的播放总时间，界面如下图所示。
参考答案
第６章 数据库应用——学生信息管理
1．单项选择题
（1）B （2）A （3）B （4）C 2．程序阅读题 （1）
声明Connection对象Adocn 创建新对象 建立与数据库连接
（2）
声明并创建一个新的Recordset对象 与Connection对象建立关联 声明一条SQL语句
执行SQL语句，记录集为查询结果 关闭记录集对象
3．程序设计题 （1）
① Insert into course_info values ('A001', '英语', 5)
② Update mark_info set mark=85 where student_ID ='95020' and course_ID ='A001'
③ Select student_id as 学号, student_name as 姓名, student_sex as 性别, student_class as 班级 from student_info ④ Select student_class ,count(*) from student_info group by student_class ⑤ Select from
student_name student_info,
as
姓名,
course_name as 课程名, mark as成绩
course_info,
mark_info
where student_info. student_id = mark_info. student_id
and
course_info.
course_ID
=
mark_info. course_ID
and student_info. student_id ='95020'
（2）
Public ADOcn As Connection Public Sub Main()
Dim strSqlServer As String strSqlServer=\
LOLEDB;Server=(local);User ID=sa; _ Password=sa; Database=XS\If ADOcn Is Nothing Then
Set ADOcn = New
Connection
ADOcn.Open
strSqlServer '连接SQL Server数据库
End If End Sub
（3）
Frmmain窗体
Private Sub Form_Load()
Combo1.AddItem \姓名\ Combo1.AddItem \手机\End Sub
Private Sub modify_Click()
If DataGrid1.Visible = False Then
frmadd.Show Else
frmupdate.Show End If End Sub
Private Sub new_Click() frmadd.Show End Sub
Private Sub quit_Click() End End Sub
Private Sub refesh_Click() Dim strSQL As String
strSQL = \* from address_list \
Adodc1.RecordSource = strSQL Adodc1.Refresh
DataGrid1.Visible = True DataGrid1.Refresh End Sub
齐幼菊版《Visual-Basic程序设计》课程作业(四)及答案
