1、浙江广播电视大学Visual Basic 程序设计课程作业（四）第章 数据库应用学生信息管理1单项选择题（1） ADO 控件属于 ActiveX 控件，使用之前必须 Microsoft ADO Data Conctrol 6.0（OLE DB）其添加到工具箱中，添加 ADO 控件的菜单为（ ） 。A “工程”“引用” B “工程”“部件”C “工具”“选项” D “工程”“添加文件”（2）利用 ADO 访问数据库，首先要创建一个（ ）对象，用于建立和数据库的连接。AConnection 对象 BRecordset 对象CCommand 对象 DObject 对象（3）SQL 语言的 Selec
2、t 语句中，用于分组的语句为（ ） 。Awhere Bgroup by Corder by Dhaving（4）以下四个控件，不属于数据绑定控件的是（ ） 。AText 控件 BDataGrid 控件 COption 控件 DLabel 控件2程序阅读题（1）说明下面的主要功能Dim Adocn As Connection Set Adocn = New Connection Adocn.Open “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:vbSMSxs.mdb“ （2）说明下面的主要功能Dim ADOrs As New Recordset
3、 ADOrs.ActiveConnection = ADOcn strSQL = “select * from 学生表“ ADOrs.Open strSQL ADOrs.Close 3程序设计题（1）有以下 3 个数据表：学生表：student_info(student_id,student_name,student_sex,student_class)，分别表示学号、姓名、性别、班级，各字段数据类型都是文本。课程表：course_info(course_ID ,course_name ,course_credit)，分别表示课程号、课程名、学分，课程号、课程名为文本类型，学分为数字类型。成绩
4、表：mark_info(student_ID, course_ID,mark)，分别表示学号、课程号、成绩，其中学号、课程号为文本类型，mark 为数字类型。写出下列功能的 SQL 语句： 插入一个新课程记录（课程号：A001 ；课程名：英语 1；学分：5） 修改学号为“95020” ，课程号为“A001 ”的成绩为 85 查询所有学生的基本信息，使用中文作为查询结果的各字段的名称 统计出各个班级的人数 查询出学号为“95020”所选修的课程名和成绩，以及姓名（2）编写使用 ADO 对象中的 Connection 对象连接 SQL Server 数据库的代码。（3）使用 Visual Basi
5、c 开发一个简单的通讯录，要求实现以下功能： 能够录入联系人的基本信息，并保存。 输入后，可以浏览所有联系人的基本信息。 可以按姓名等关键字查找记录。 能够对个人的基本信联系人息进行编辑修改和删除记录。第章 多媒体应用播放器1单项选择题（1）决定系统是否自动检测多媒体控件（MMControl）各按钮的状态的属性是（ ） 。AEnable BAutoEnableCPlayEnabled D以上答案都不正确（2）将多媒体控件（MMControl）的 Frames 属性设为 3，则以下叙述正确的是（ ） 。A指定 Back 或 Step 命令后退或前进的帧数都为 3B只有 Back 命令后退的帧数为
6、 3C只有 Step 命令前进的帧数为 3D后退或前进的帧数都为 6（3）多媒体控件（MMControl）具有一组执行 MCI 命令的下压式按钮。其中 Record 按钮表示为（ ） 。A前一首 B录制 C弹出 D播放（4）为了使多媒体控件（MMControl）中的录制按钮不显示，应添加代码（ ） 。AMMControl1.Visible= FalseBMMControl1.Visible= TrueCMMControl1.RecordVisible= FalseDMMControl1.RecordVisible= True（5）在多媒体控件（MMControl）中，DeviceType 属性
7、用于设置多媒体设备的类型，如果将要播放的文件是 CD 歌曲，应将 DeviceType 属性设置为（ ） 。ADigitalVideo BWaveAudio CAVIVideo DCDAudio（6）Windows Media Player 控件的 UiMode 属性，表示播放器界面模式，以下选项是播放器模式的属性值是（ ） 。AFull BMini CNone D以上都是 （7）在 Windows Media Player 控件中，决定播放文件是否全屏的属性是（ ） 。AFullScreen BFull CScreen DstretchToFit2程序设计题设计 CD 播放器程序，通过该程序
8、能够欣赏 CD-ROM 中 CD 曲目，并能控制播放状态及更改播放曲目，显示 CD 盘中的歌曲总数及正在播放歌曲的播放总时间，界面如下图所示。参考答案第章 数据库应用学生信息管理1单项选择题（1）B （2）A （3）B （4）C2程序阅读题（1）声明 Connection 对象 Adocn 创建新对象建立与数据库连接（2）声明并创建一个新的 Recordset 对象与 Connection 对象建立关联声明一条 SQL 语句执行 SQL 语句，记录集为查询结果关闭记录集对象3程序设计题（1） Insert into course_info values (A001, 英语, 5) Update
9、 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 student_name as 姓名 , course_name as 课程名, mark as 成绩
10、from student_info, course_info, mark_info where student_info. student_id = mark_info. student_id and course_info. course_ID = mark_info. course_IDand student_info. student_id =95020（2）Public ADOcn As ConnectionPublic Sub Main()Dim strSqlServer As StringstrSqlServer=“Provider=SQLOLEDB;Server=(local);
11、User ID=sa; _ Password=sa; Database=XS“If ADOcn Is Nothing ThenSet ADOcn = New ConnectionADOcn.Open strSqlServer 连接 SQL Server 数据库End IfEnd Sub（3）Frmmain 窗体Private Sub Form_Load()Combo1.AddItem “姓名“Combo1.AddItem “手机“End SubPrivate Sub modify_Click()If DataGrid1.Visible = False Thenfrmadd.ShowElsefr
12、mupdate.ShowEnd IfEnd SubPrivate Sub new_Click()frmadd.ShowEnd SubPrivate Sub quit_Click()EndEnd SubPrivate Sub refesh_Click()Dim strSQL As StringstrSQL = “select * from address_list “Adodc1.RecordSource = strSQLAdodc1.RefreshDataGrid1.Visible = TrueDataGrid1.RefreshEnd Subfrmadd 窗体Private Sub about
13、_Click()frmabout.ShowEnd SubPrivate Sub Command1_Click()Dim strSQL As StringIf Combo1.Text = “姓名“ ThenIf Text1.Text = “ ThenMsgBox “请输入要查询的姓名“, vbQuestion + vbOKOnlyElsestrSQL = “select *“strSQL = strSQL + “ from address_list where name=“ + Text1.Text + “Adodc1.RecordSource = strSQLAdodc1.RefreshDat
14、aGrid1.Visible = TrueEnd IfEnd IfIf Combo1.Text = “手机“ ThenIf Text1.Text = “ ThenMsgBox “请输入要查询的手机“, vbQuestion + vbOKOnlyElsestrSQL = “select *“strSQL = strSQL + “ from address_list where mobile=“ + Text1.Text + “Adodc1.RecordSource = strSQLAdodc1.RefreshDataGrid1.Visible = TrueEnd IfEnd IfEnd SubP
15、rivate Sub DataGrid1_Click()Adodc1.Caption = “ 第“ + DataGrid1.Text + “记录“End SubPrivate Sub delete_Click()DataGrid1.Visible = TrueIf MsgBox(“是否要删除？ “, vbQuestion + vbYesNo) = vbYes ThenstrSQL = “Delete From address_list “strSQL = strSQL + “Where 编号=“ + DataGrid1.TextADOcn.Execute strSQLMsgBox “删除成功“
16、, vbQuestion + vbOKOnlyEnd IfAdodc1.RefreshEnd SubPrivate Sub Form_Load()Combo1.AddItem “姓名“Combo1.AddItem “手机“End SubPrivate Sub modify_Click()If DataGrid1.Visible = False Thenfrmadd.ShowElsefrmupdate.ShowEnd IfEnd SubPrivate Sub new_Click()frmadd.ShowEnd SubPrivate Sub quit_Click()EndEnd SubPrivat
17、e Sub refesh_Click()Dim strSQL As StringstrSQL = “select * from address_list “Adodc1.RecordSource = strSQLAdodc1.RefreshDataGrid1.Visible = TrueDataGrid1.RefreshEnd Subfrmupdate 窗体Private Sub Command1_Click()Dim strSQL As StringstrSQL = “update address_list set name=“ + Text1.TextstrSQL = strSQL + “
18、,sex=“ + Combo1.TextstrSQL = strSQL + “,mobile=“ + Text3.TextstrSQL = strSQL + “,phone=“ + Text4.TextstrSQL = strSQL + “,QQ=“ + Text5.TextstrSQL = strSQL + “,Email=“ + Text6.TextstrSQL = strSQL + “,address=“ + Text7.TextstrSQL = strSQL + “ where id=“ + frmmain.DataGrid1.TextADOcn.Execute strSQLMsgBo
19、x “修改成功！“, vbQuestion + vbOKOnlyfrmmain.Adodc1.RefreshEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()Text1.Text = “Combo1.AddItem “男“Combo1.AddItem “女“Text3.Text = “Text4.Text = “Text5.Text = “Text5.Text = “Text6.Text = “Text7.Text = “Dim ADOrs As New RecordsetADOrs.Active
20、Connection = ADOcnADOrs.Open “select * from address_list where id=“ + frmmain.DataGrid1.TextText1.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.Te
21、xt = ADOrs.Fields(“address“)End SubModule1 模块声明全局对象变量 ADOcn，用于创建与数据库的连接Public ADOcn As ConnectionPublic Sub Main()定义数据库连接字符串Dim strAccess As String用于连接 Access 数据库，其中 Data Source 为具体的数据库文件路径，其他设置不变strAccess = “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=通讯录.mdb“如果还没有建立与数据库的连接，则用以下代码创建。If ADOcn Is No
22、thing ThenSet ADOcn = New ConnectionADOcn.Open strSQLServer 连接 SQL Server 数据库ADOcn.Open strAccess 连接 Access 数据库如果希望连接 Access 数据库，则使用 strAccess无论你使用的是何种数据库，只需改变此处设置，其他程序代码基本不用改变End Iffrmmain.Show 显示主窗体End Sub第章 多媒体应用播放器1单项选择题（1）B （2）A （3）B （4）C （5）D（6）D （7）D2程序设计题Private Sub Form_Load()初始化设备MMControl
23、1.Visible = FalseMMControl1.Notify = TrueMMControl1.Shareable = FalseMMControl1.TimeFormat = 0MMControl1.DeviceType = “cdaudio“MMControl1.UpdateInterval = 1000End SubPrivate Sub MMControl1_StatusUpdate()计算曲目信息label2.Caption = “曲目总数：“ & MMControl1.TracksLabel3.Caption = “曲目播放总时间：“ & Trim(Str(Int(MMCo
24、ntrol1.Length / 60000) + “分“Label4.Caption = “正在播放曲目：“ & MMControl1.TrackEnd SubPrivate Sub ComPlay_Click()开始播放MMControl1.Command = “play“ComPause.Enabled = TrueComPlay.Enabled = FalseComStop.Enabled = TrueEnd SubPrivate Sub ComPrev_Click()播放上一首MMControl1.Command = “prev“End SubPrivate Sub ComNext_C
25、lick()播放下一首MMControl1.Command = “next“End SubPrivate Sub ComPause_Click()暂停播放MMControl1.Command = “pause“ComPlay.Enabled = TrueComPause.Enabled = TrueEnd SubPrivate Sub ComStop_Click()停止播放MMControl1.Command = “stop“ComStop.Enabled = FalseComPlay.Enabled = TrueEnd SubPrivate Sub ComEject_Click()弹出MMControl1.Command = “stop“MMControl1.Command = “eject“ComPlay.Enabled = TrueEnd SubPrivate Sub ComEnd_Click()退出EndEnd SubPrivate Sub Form_Unload(Cancel As Integer)关闭 MCI 设备MMControl1.Command = “stop“MMControl1.Command = “close“End Sub
