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

浙江广播电视大学《VisualBasic程序设计》课程作业（四）第６章 数据库应用——学生信息管理1．单项选择题（1）ADO控件属于ActiveX控件，使用之前必须MicrosoftADODataConctrol6.0（OLEDB）其添加到工具箱中，添加ADO控件的菜单为（）。A．“工程”→“引用” B．“工程”→“部件”C．“工具”→“选项” D．“工程”→“添加文件”（2）利用ADO访问数据库，首先要创建一个（）对象，用于建立和数据库的连接。A．Connection对象 B．Recordset对象C．Command对象 D．Object对象（3）SQL语言的Select语句中，用于分组的语句为（）。A．where B．groupby C．orderby D．having（4）以下四个控件，不属于数据绑定控件的是（）。A．Text控件 B．DataGrid控件 C．Option控件 D．Label控件2．程序阅读题（1）说明下面的主要功能DimAdocnAsConnection 'SetAdocn=NewConnection 'Adocn.Open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource=d:\vb\SMS\xs.mdb"'（2）说明下面的主要功能DimADOrsAsNewRecordset'ADOrs.ActiveConnection=ADOcn'strSQL="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语句：=1\*GB3①插入一个新课程记录（课程号：A001；课程名：英语1；学分：5）=2\*GB3②修改学号为“95020”，课程号为“A001”的成绩为85=3\*GB3③查询所有学生的基本信息，使用中文作为查询结果的各字段的名称=4\*GB3④统计出各个班级的人数=5\*GB3⑤查询出学号为“95020”所选修的课程名和成绩，以及姓名（2）编写使用ADO对象中的Connection对象连接SQLServer数据库的代码。（3）使用VisualBasic开发一个简单的通讯录，要求实现以下功能：=1\*GB3①能够录入联系人的基本信息，并保存。=2\*GB3②输入后，可以浏览所有联系人的基本信息。=3\*GB3③可以按姓名等关键字查找记录。=4\*GB3④能够对个人的基本信联系人息进行编辑修改和删除记录。第７章 多媒体应用——播放器1．单项选择题（1）决定系统是否自动检测多媒体控件（MMControl）各按钮的状态的属性是（）。A．Enable B．AutoEnableC．PlayEnabled D．以上答案都不正确（2）将多媒体控件（MMControl）的Frames属性设为3，则以下叙述正确的是（）。A．指定Back或Step命令后退或前进的帧数都为3B．只有Back命令后退的帧数为3C．只有Step命令前进的帧数为3D．后退或前进的帧数都为6（3）多媒体控件（MMControl）具有一组执行MCI命令的下压式按钮。其中Record按钮表示为（）。A．前一首 B．录制 C．弹出 D．播放（4）为了使多媒体控件（MMControl）中的录制按钮不显示，应添加代码（）。A．MMControl1.Visible=FalseB．MMControl1.Visible=TrueC．MMControl1.RecordVisible=FalseD．MMControl1.RecordVisible=True（5）在多媒体控件（MMControl）中，DeviceType属性用于设置多媒体设备的类型，如果将要播放的文件是CD歌曲，应将DeviceType属性设置为（）。A．DigitalVideo B．WaveAudio C．AVIVideo D．CDAudio（6）WindowsMediaPlayer控件的UiMode属性，表示播放器界面模式，以下选项是播放器模式的属性值是（）。A．Full B．Mini C．None D．以上都是PrivateSubrefesh_Click()DimstrSQLAsStringstrSQL="select*fromaddress_list"Adodc1.RecordSource=strSQLAdodc1.RefreshDataGrid1.Visible=TrueDataGrid1.RefreshEndSubfrmadd窗体PrivateSubabout_Click()frmabout.ShowEndSubPrivateSubCommand1_Click()DimstrSQLAsStringIfCombo1.Text="姓名"ThenIfText1.Text=""ThenMsgBox"请输入要查询的姓名",vbQuestion+vbOKOnlyElsestrSQL="select*"strSQL=strSQL+"fromaddress_listwherename='"+Text1.Text+"'"Adodc1.RecordSource=strSQLAdodc1.RefreshDataGrid1.Visible=TrueEndIfEndIfIfCombo1.Text="手机"ThenIfText1.Text=""ThenMsgBox"请输入要查询的手机",vbQuestion+vbOKOnlyElsestrSQL="select*"strSQL=strSQL+"fromaddress_listwheremobile='"+Text1.Text+"'"Adodc1.RecordSource=strSQLAdodc1.RefreshDataGrid1.Visible=TrueEndIfEndIfEndSubPrivateSubDataGrid1_Click()Adodc1.Caption="第["+DataGrid1.Text+"]记录"EndSubPrivateSubdelete_Click()DataGrid1.Visible=TrueIfMsgBox("是否要删除？",vbQuestion+vbYesNo)=vbYesThenstrSQL="DeleteFromaddress_list"strSQL=strSQL+"Where编号="+DataGrid1.TextADOcn.ExecutestrSQLMsgBox"删除成功",vbQuestion+vbOKOnlyEndIfAdodc1.RefreshEndSubPrivateSubForm_Load()Combo1.AddItem"姓名"Combo1.AddItem"手机"EndSubPrivateSubmodify_Click()IfDataGrid1.Visible=FalseThenfrmadd.ShowElsefrmupdate.ShowEndIfEndSubPrivateSubnew_Click()frmadd.ShowEndSubPrivateSubquit_Click()EndEndSubPrivateSubrefesh_Click()DimstrSQLAsStringstrSQL="select*fromaddress_list"Adodc1.RecordSource=strSQLAdodc1.RefreshDataGrid1.Visible=TrueDataGrid1.RefreshEndSubfrmupdate窗体PrivateSubCommand1_Click()DimstrSQLAsStringstrSQL="updateaddress_listsetname='"+Text1.TextstrSQL=strSQL+"',sex='"+Combo1.TextstrSQL=strSQL+"',mobile='"+Text3.TextstrSQL=strSQL+"',phone='"+Text4.TextstrSQL=strSQL+"',QQ='"+Text5.TextstrSQL=strSQL+"',Email='"+Text6.TextstrSQL=strSQL+"',address='"+Text7.TextstrSQL=strSQL+"'whereid="+frmmain.DataGrid1.TextADOcn.ExecutestrSQLMsgBox"修改成功！",vbQuestion+vbOKOnlyfrmmain.Adodc1.RefreshEndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubForm_Load()Text1.Text=""Combo1.AddItem"男"Combo1.AddItem"女"Text3.Text=""Text4.Text=""Text5.Text=""Text5.Text=""Text6.Text=""Text7.Text=""DimADOrsAsNewRecordsetADOrs.ActiveConnection=ADOcnADOrs.Open"select*fromaddress_listwhereid="+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.Text=ADOrs.Fields("address")EndSubModule1模块'声明全局对象变量ADOcn，用于创建与数据库的连接PublicADOcnAsConnectionPublicSubMain()'定义数据库连接字符串DimstrAccessAsString'用于连接Access数据库，其中DataSource为具体的数据库文件路径，其他设置不变strAccess="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=通讯录.mdb"'如果还没有建立与数据库的连接，则用以下代码创建。IfADOcnIsNothingThenSetADOcn=NewConnection'ADOcn.OpenstrSQLServer'连接SQLServer数据库ADOcn.OpenstrAccess'连接Access数据库'如果希望连接Access数据库，则使用strAccess'无论你使用的是何种数据库，只需改变此处设置，其他程序代码基本不用改变EndIffrmmain.Show'显示主窗体EndSub第７章 多媒体应用——播放器1．单项选择题（1）B （2）A （3）B （4）C （5）D（6）D （7）D2．程序设计题PrivateSubForm_Load()'初始化设备MMControl1.Visible=FalseMMControl1.Notify=TrueMMControl1.Shareable=FalseMMControl1.TimeFormat=0MMControl1.DeviceType="cdaudio"MMControl1.UpdateInterval=1000EndSubPrivateSubMMControl1_StatusUpdate()'计算曲目信息label2.Caption="曲目总数："&MMControl1.TracksLabel3.Caption="曲目播放总时间："&Trim(Str(Int(MMControl1.Length/60000)))+"分"Label4.Caption="正在播放曲目："&MMControl1.TrackEndSubPrivateSubComPlay_Click()'开始播放MMControl1.Command="play"ComPause.Enabled=TrueComP