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

浙江广播电视大学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语言的Select语句中，用于分组的语句为（ ）。AwhereBgroup byCorder byDhaving（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 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)，分别表示课程号、课程名、学分，课程号、课程名为文本类型，学分为数字类型。成绩表：mark_info(student_ID, course_ID,mark)，分别表示学号、课程号、成绩，其中学号、课程号为文本类型，mark为数字类型。写出下列功能的SQL语句： 插入一个新课程记录（课程号：A001；课程名：英语1；学分：5） 修改学号为“95020”，课程号为“A001”的成绩为85 查询所有学生的基本信息，使用中文作为查询结果的各字段的名称 统计出各个班级的人数 查询出学号为“95020”所选修的课程名和成绩，以及姓名（2）编写使用ADO对象中的Connection对象连接SQL Server数据库的代码。（3）使用Visual Basic开发一个简单的通讯录，要求实现以下功能： 能够录入联系人的基本信息，并保存。 输入后，可以浏览所有联系人的基本信息。 可以按姓名等关键字查找记录。 能够对个人的基本信联系人息进行编辑修改和删除记录。第章多媒体应用播放器1单项选择题（1）决定系统是否自动检测多媒体控件（MMControl）各按钮的状态的属性是（ ）。AEnableBAutoEnableCPlayEnabledD以上答案都不正确（2）将多媒体控件（MMControl）的Frames属性设为3，则以下叙述正确的是（ ）。A指定Back或Step命令后退或前进的帧数都为3B只有Back命令后退的帧数为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属性用于设置多媒体设备的类型，如果将要播放的文件是CD歌曲，应将DeviceType属性设置为（ ）。ADigitalVideoBWaveAudioCAVIVideoDCDAudio（6）Windows Media Player控件的UiMode属性，表示播放器界面模式，以下选项是播放器模式的属性值是（ ）。AFullBMiniCNoneD以上都是 （7）在Windows Media Player控件中，决定播放文件是否全屏的属性是（ ）。AFullScreenBFullCScreenDstretchToFit2程序设计题设计CD播放器程序，通过该程序能够欣赏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 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成绩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);User ID=sa; _ Password=sa; Database=XSIf 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 Then frmadd.Show Else frmupdate.Show End IfEnd SubPrivate Sub new_Click() frmadd.ShowEnd SubPrivate Sub quit_Click() EndEnd SubPrivate Sub refesh_Click() Dim strSQL As String strSQL = select * from address_list Adodc1.RecordSource = strSQL Adodc1.Refresh DataGrid1.Visible = True DataGrid1.RefreshEnd Subfrmadd窗体Private Sub about_Click() frmabout.ShowEnd SubPrivate Sub Command1_Click() Dim strSQL As String If Combo1.Text = 姓名 Then If Text1.Text = Then MsgBox 请输入要查询的姓名, vbQuestion + vbOKOnly Else strSQL = select * strSQL = strSQL + from address_list where name= + Text1.Text + Adodc1.RecordSource = strSQL Adodc1.Refresh DataGrid1.Visible = True End If End If If Combo1.Text = 手机 Then If Text1.Text = Then MsgBox 请输入要查询的手机, vbQuestion + vbOKOnly Else strSQL = select * strSQL = strSQL + from address_list where mobile= + Text1.Text + Adodc1.RecordSource = strSQL Adodc1.Refresh DataGrid1.Visible = True End If End IfEnd SubPrivate Sub DataGrid1_Click() Adodc1.Caption = 第 + DataGrid1.Text + 记录End SubPrivate Sub delete_Click() DataGrid1.Visible = True If MsgBox(是否要删除？, vbQuestion + vbYesNo) = vbYes Then strSQL = Delete From address_list strSQL = strSQL + Where 编号= + DataGrid1.Text ADOcn.Execute strSQL MsgBox 删除成功, vbQuestion + vbOKOnly End If Adodc1.RefreshEnd SubPrivate Sub Form_Load() Combo1.AddItem 姓名 Combo1.AddItem 手机End SubPrivate Sub modify_Click() If DataGrid1.Visible = False Then frmadd.Show Else frmupdate.Show End IfEnd SubPrivate Sub new_Click() frmadd.ShowEnd SubPrivate Sub quit_Click() EndEnd SubPrivate Sub refesh_Click() Dim strSQL As String strSQL = select * from address_list Adodc1.RecordSource = strSQL Adodc1.Refresh DataGrid1.Visible = True DataGrid1.RefreshEnd Subfrmupdate窗体Private Sub Command1_Click() Dim strSQL As String strSQL = update address_list set name= + Text1.Text strSQL = strSQL + ,sex= + Combo1.Text strSQL = strSQL + ,mobile= + Text3.Text strSQL = strSQL + ,phone= + Text4.Text strSQL = strSQL + ,QQ= + Text5.Text strSQL = strSQL + ,Email= + Text6.Text strSQL = strSQL + ,address= + Text7.Text strSQL = strSQL + where id= + frmmain.DataGrid1.Text ADOcn.Execute strSQL MsgBox 修改成功！, vbQuestion + vbOKOnly frmmain.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 Recordset ADOrs.ActiveConnection = ADOcn ADOrs.Open select * from address_list where id= + frmmain.DataGrid1.Text 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)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 Nothing Then Set ADOcn = New Connection ADOcn.Open strSQLServer 连接SQL Server数据库 ADOcn.Open strAccess 连接Access数据库 如果希望连接Access数据库，则使用strAccess 无论你使用的是何种数据库，只需改变此处设置，其他程序代码基本不用改变 End If frmmain.Show 显示主窗体End Sub第章多媒体应用播放器1单项选择题（1）B（2）A（3）B （4）C（5）D（6）D（7）D2程序设计题Private Sub Form_Load() 初始化设备 MMControl1.Visible = False MMControl1.Notify = True MMControl1.Shareable = False MMControl1.TimeFormat = 0 MMControl1.DeviceType = cdaudio MMControl1.UpdateInterval = 1000End SubPrivate Sub MMControl1_StatusUpdate() 计算曲目信息 label2.Caption = 曲目总数： & MMControl1.Tracks Label3.Caption = 曲目播放总时间： & Trim(Str(Int(MMControl1.Length / 60000) + 分 Label4.Caption = 正在播放曲目： & MMControl1.TrackEnd SubP