齐幼菊版《Visual Basic程序设计》课程作业四及答案文档格式.docx
《齐幼菊版《Visual Basic程序设计》课程作业四及答案文档格式.docx》由会员分享，可在线阅读，更多相关《齐幼菊版《Visual Basic程序设计》课程作业四及答案文档格式.docx（15页珍藏版）》请在冰豆网上搜索。
select*from学生表"
ADOrs.OpenstrSQL'
ADOrs.Close'
3．程序设计题
（1）有以下3个数据表：
学生表：
student_info（student_id,student_name,student_sex,student_class），分别表示学号、姓名、性别、班级，各字段数据类型都是文本。
课程表：
course_info（course_ID,course_name,course_credit），分别表示课程号、课程名、学分，课程号、课程名为文本类型，学分为数字类型。
成绩表：
mark_info（student_ID,course_ID,mark），分别表示学号、课程号、成绩，其中学号、课程号为文本类型，mark为数字类型。
写出下列功能的SQL语句：
插入一个新课程记录（课程号：
A001；
课程名：
英语1；
学分：
5）
修改学号为“95020”，课程号为“A001”的成绩为85
查询所有学生的基本信息，使用中文作为查询结果的各字段的名称
统计出各个班级的人数
查询出学号为“95020”所选修的课程名和成绩，以及姓名
（2）编写使用ADO对象中的Connection对象连接SQLServer数据库的代码。
（3）使用VisualBasic开发一个简单的通讯录，要求实现以下功能：
能够录入联系人的基本信息，并保存。
输入后，可以浏览所有联系人的基本信息。
可以按姓名等关键字查找记录。
能够对个人的基本信联系人息进行编辑修改和删除记录。
第７章多媒体应用——播放器
（1）决定系统是否自动检测多媒体控件（MMControl）各按钮的状态的属性是（）。
A．EnableB．AutoEnable
C．PlayEnabledD．以上答案都不正确
（2）将多媒体控件（MMControl）的Frames属性设为3，则以下叙述正确的是（）。
A．指定Back或Step命令后退或前进的帧数都为3
B．只有Back命令后退的帧数为3
C．只有Step命令前进的帧数为3
D．后退或前进的帧数都为6
（3）多媒体控件（MMControl）具有一组执行MCI命令的下压式按钮。
其中Record按钮表示为（）。
A．前一首B．录制C．弹出D．播放
（4）为了使多媒体控件（MMControl）中的录制按钮不显示，应添加代码（）。
A．MMControl1.Visible=False
B．MMControl1.Visible=True
C．MMControl1.RecordVisible=False
D．MMControl1.RecordVisible=True
（5）在多媒体控件（MMControl）中，DeviceType属性用于设置多媒体设备的类型，如果将要播放的文件是CD歌曲，应将DeviceType属性设置为（）。
A．DigitalVideoB．WaveAudioC．AVIVideoD．CDAudio
（6）WindowsMediaPlayer控件的UiMode属性，表示播放器界面模式，以下选项是播放器模式的属性值是（）。
A．FullB．MiniC．NoneD．以上都是
（7）在WindowsMediaPlayer控件中，决定播放文件是否全屏的属性是（）。
A．FullScreenB．FullC．ScreenD．stretchToFit
2．程序设计题
设计CD播放器程序，通过该程序能够欣赏CD-ROM中CD曲目，并能控制播放状态及更改播放曲目，显示CD盘中的歌曲总数及正在播放歌曲的播放总时间，界面如下图所示。
参考答案
（1）B
（2）A（3）B（4）C
（1）
声明Connection对象Adocn
创建新对象
建立与数据库连接
（2）
声明并创建一个新的Recordset对象
与Connection对象建立关联
声明一条SQL语句
执行SQL语句，记录集为查询结果
关闭记录集对象
1Insertintocourse_infovalues（'
A001'
'
英语'
5）
2Updatemark_infosetmark=85wherestudent_ID='
95020'
andcourse_ID='
3Selectstudent_idas学号,student_nameas姓名,student_sexas性别,student_classas班级fromstudent_info
4Selectstudent_class,count（*）fromstudent_infogroupbystudent_class
5Selectstudent_nameas姓名,course_nameas课程名,markas成绩fromstudent_info,course_info,mark_info
wherestudent_info.student_id=mark_info.student_id
andcourse_info.course_ID=mark_info.course_ID
andstudent_info.student_id='
PublicADOcnAsConnection
PublicSubMain（）
DimstrSqlServerAsString
strSqlServer="
Provider=SQLOLEDB;
Server=（local）;
UserID=sa;
_Password=sa;
Database=XS"
IfADOcnIsNothingThen
SetADOcn=NewConnection
ADOcn.OpenstrSqlServer'
连接SQLServer数据库
EndIf
EndSub
（3）
Frmmain窗体
PrivateSubForm_Load（）
Combo1.AddItem"
姓名"
手机"
PrivateSubmodify_Click（）
IfDataGrid1.Visible=FalseThen
frmadd.Show
Else
frmupdate.Show
EndIf
PrivateSubnew_Click（）
frmadd.Show
PrivateSubquit_Click（）
End
PrivateSubrefesh_Click（）
DimstrSQLAsString
strSQL="
select*fromaddress_list"
Adodc1.RecordSource=strSQL
Adodc1.Refresh
DataGrid1.Visible=True
DataGrid1.Refresh
frmadd窗体
PrivateSubabout_Click（）
frmabout.Show
PrivateSubCommand1_Click（）
DimstrSQLAsString
IfCombo1.Text="
Then
IfText1.Text="
"
MsgBox"
请输入要查询的姓名"
vbQuestion+vbOKOnly
Else
strSQL="
select*"
strSQL=strSQL+"
fromaddress_listwherename='
+Text1.Text+"
'
Adodc1.Refresh
EndIf
请输入要查询的手机"
fromaddress_listwheremobile='
PrivateSubDataGrid1_Click（）
Adodc1.Caption="
第["
+DataGrid1.Text+"
]记录"
PrivateSubdelete_Click（）
IfMsgBox（"
是否要删除？
vbQuestion+vbYesNo）=vbYesThen
DeleteFromaddress_list"
Where编号="
+DataGrid1.Text
ADOcn.ExecutestrSQL
删除成功"
Combo1.AddItem"
IfDataGrid1.Visible=FalseThen
frmadd.Show
frmupdate.Show
End
frmupdate窗体
updateaddress_listsetname='
+Text1.Text
sex='
+Combo1.Text
mobile='
+Text3.Text
phone='
+Text4.Text
QQ='
+Text5.Text
Email='
+Text6.Text
address='
+Text7.Text
whereid="
+frmmain.DataGrid1.Text
修改成功！
frmmain.Adodc1.Refresh
PrivateSubCommand2_Click（）
UnloadMe
Text1.Text="
男"
女"
Text3.Text="
Text4.Text="
Text5.Text="
Text6.Text="
Text7.Text="
DimADOrsAsNewRecordset
ADOrs.ActiveConnection=ADOcn
ADOrs.Open"
select*fromaddress_listwhereid="
Text1.Text=ADOrs.Fields（"
name"
）
Combo1.Text=ADOrs.Fields（"
sex"
Text3.Text=ADOrs.Fields（"
mobile"
Text4.Text=ADOrs.Fields（"
phone"
Text5.Text=ADOrs.Fields（"
QQ"
Text6.Text=ADOrs.Fields（"
Email"
Text7.Text=ADOrs.Fields（"
address"
Module1模块
声明全局对象变量ADOcn，用于创建与数据库的连接
定义数据库连接字符串
DimstrAccessAsString
用于连接Access数据库，其中DataSource为具体的数据库文件路径，其他设置不变
strAccess="
DataSource=通讯录.mdb"
如果还没有建立与数据库的连接，则用以下代码创建。
IfADOcnIsNothingThen
SetADOcn=NewConnection
ADOcn.OpenstrSQLServer'
ADOcn.OpenstrAccess'
连接Access数据库
如果希望连接Access数据库，则使用strAccess
无论你使用的是何种数据库，只需改变此处设置，其他程序代码基本不用改变
frmmain.Show'
显示主窗体
（1）B
（2）A（3）B（4）C（5）D
（6）D（7）D
初始化设备
MMControl1.Visible=False
MMControl1.Notify=True
MMControl1.Shareable=False
MMControl1.TimeFormat=0
MMControl1.DeviceType="
cdaudio"
MMControl1.UpdateInterval=1000
PrivateSubMMControl1_StatusUpdate（）
计算曲目信息
label2.Caption="
曲目总数：
&
MMControl1.Tracks
Label3.Caption="
曲目播放总时间：
Trim（Str（Int（MMControl1.Length/60000）））+"
分"
Label4.Caption="
正在播放曲目：
MMControl1.Track
PrivateSubComPlay_Click（）
开始播放
MMControl1.Command="
play"
ComPause.Enabled=True
ComPlay.Enabled=False
ComStop.Enabled=True
PrivateSubComPrev_Click（）
播放上一首
prev"
PrivateSubComNext_Click（）
播放下一首
next"
PrivateSubComPause_Click（）
暂停播放
pause"
ComPlay.Enabled=True
PrivateSubComStop_Click（）
停止播放
stop"
ComStop.Enabled=False
PrivateSubComEject_Click（）
弹出
eject"
PrivateSubComEnd_Click（）
退出
PrivateSubForm_Unload（CancelAsInteger）
关闭MCI设备
close"
升级会员 