齐幼菊版《Visual-Basic程序设计》课程作业(四)及答案

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