齊幼菊版《Visual-Basic程序設(shè)計(jì)》課程作業(yè)(四)及答案

浙江廣播電視大學(xué)《VisualBasic程序設(shè)計(jì)》課程作業(yè)（四）第６章 數(shù)據(jù)庫(kù)應(yīng)用——學(xué)生信息管理1．單項(xiàng)選擇題（1）ADO控件屬于ActiveX控件，使用之前必須MicrosoftADODataConctrol6.0（OLEDB）其添加到工具箱中，添加ADO控件的菜單為（）。A．“工程”→“引用” B．“工程”→“部件”C．“工具”→“選項(xiàng)” D．“工程”→“添加文件”（2）利用ADO訪問(wèn)數(shù)據(jù)庫(kù)，首先要?jiǎng)?chuàng)建一個(gè)（）對(duì)象，用于建立和數(shù)據(jù)庫(kù)的連接。A．Connection對(duì)象 B．Recordset對(duì)象C．Command對(duì)象 D．Object對(duì)象（3）SQL語(yǔ)言的Select語(yǔ)句中，用于分組的語(yǔ)句為（）。A．where B．groupby C．orderby D．having（4）以下四個(gè)控件，不屬于數(shù)據(jù)綁定控件的是（）。A．Text控件 B．DataGrid控件 C．Option控件 D．Label控件2．程序閱讀題（1）說(shuō)明下面的主要功能DimAdocnAsConnection 'SetAdocn=NewConnection 'Adocn.Open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource=d:\vb\SMS\xs.mdb"'（2）說(shuō)明下面的主要功能DimADOrsAsNewRecordset'ADOrs.ActiveConnection=ADOcn'strSQL="select*from學(xué)生表"'ADOrs.OpenstrSQL'ADOrs.Close'3．程序設(shè)計(jì)題（1）有以下3個(gè)數(shù)據(jù)表：學(xué)生表：student_info(student_id,student_name,student_sex,student_class)，分別表示學(xué)號(hào)、姓名、性別、班級(jí)，各字段數(shù)據(jù)類型都是文本。課程表：course_info(course_ID,course_name,course_credit)，分別表示課程號(hào)、課程名、學(xué)分，課程號(hào)、課程名為文本類型，學(xué)分為數(shù)字類型。成績(jī)表：mark_info(student_ID,course_ID,mark)，分別表示學(xué)號(hào)、課程號(hào)、成績(jī)，其中學(xué)號(hào)、課程號(hào)為文本類型，mark為數(shù)字類型。寫(xiě)出下列功能的SQL語(yǔ)句：=1\*GB3①插入一個(gè)新課程記錄（課程號(hào)：A001；課程名：英語(yǔ)1；學(xué)分：5）=2\*GB3②修改學(xué)號(hào)為“95020”，課程號(hào)為“A001”的成績(jī)?yōu)?5=3\*GB3③查詢所有學(xué)生的基本信息，使用中文作為查詢結(jié)果的各字段的名稱=4\*GB3④統(tǒng)計(jì)出各個(gè)班級(jí)的人數(shù)=5\*GB3⑤查詢出學(xué)號(hào)為“95020”所選修的課程名和成績(jī)，以及姓名（2）編寫(xiě)使用ADO對(duì)象中的Connection對(duì)象連接SQLServer數(shù)據(jù)庫(kù)的代碼。（3）使用VisualBasic開(kāi)發(fā)一個(gè)簡(jiǎn)單的通訊錄，要求實(shí)現(xiàn)以下功能：=1\*GB3①能夠錄入聯(lián)系人的基本信息，并保存。=2\*GB3②輸入后，可以瀏覽所有聯(lián)系人的基本信息。=3\*GB3③可以按姓名等關(guān)鍵字查找記錄。=4\*GB3④能夠?qū)€(gè)人的基本信聯(lián)系人息進(jìn)行編輯修改和刪除記錄。第７章 多媒體應(yīng)用——播放器1．單項(xiàng)選擇題（1）決定系統(tǒng)是否自動(dòng)檢測(cè)多媒體控件（MMControl）各按鈕的狀態(tài)的屬性是（）。A．Enable B．AutoEnableC．PlayEnabled D．以上答案都不正確（2）將多媒體控件（MMControl）的Frames屬性設(shè)為3，則以下敘述正確的是（）。A．指定Back或Step命令后退或前進(jìn)的幀數(shù)都為3B．只有Back命令后退的幀數(shù)為3C．只有Step命令前進(jìn)的幀數(shù)為3D．后退或前進(jìn)的幀數(shù)都為6（3）多媒體控件（MMControl）具有一組執(zhí)行MCI命令的下壓式按鈕。其中Record按鈕表示為（）。A．前一首 B．錄制 C．彈出 D．播放（4）為了使多媒體控件（MMControl）中的錄制按鈕不顯示，應(yīng)添加代碼（）。A．MMControl1.Visible=FalseB．MMControl1.Visible=TrueC．MMControl1.RecordVisible=FalseD．MMControl1.RecordVisible=True（5）在多媒體控件（MMControl）中，DeviceType屬性用于設(shè)置多媒體設(shè)備的類型，如果將要播放的文件是CD歌曲，應(yīng)將DeviceType屬性設(shè)置為（）。A．DigitalVideo B．WaveAudio C．AVIVideo D．CDAudio（6）WindowsMediaPlayer控件的UiMode屬性，表示播放器界面模式，以下選項(xiàng)是播放器模式的屬性值是（）。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"請(qǐng)輸入要查詢的姓名",vbQuestion+vbOKOnlyElsestrSQL="select*"strSQL=strSQL+"fromaddress_listwherename='"+Text1.Text+"'"Adodc1.RecordSource=strSQLAdodc1.RefreshDataGrid1.Visible=TrueEndIfEndIfIfCombo1.Text="手機(jī)"ThenIfText1.Text=""ThenMsgBox"請(qǐng)輸入要查詢的手機(jī)",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("是否要?jiǎng)h除？",vbQuestion+vbYesNo)=vbYesThenstrSQL="DeleteFromaddress_list"strSQL=strSQL+"Where編號(hào)="+DataGrid1.TextADOcn.ExecutestrSQLMsgBox"刪除成功",vbQuestion+vbOKOnlyEndIfAdodc1.RefreshEndSubPrivateSubForm_Load()Combo1.AddItem"姓名"Combo1.AddItem"手機(jī)"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模塊'聲明全局對(duì)象變量ADOcn，用于創(chuàng)建與數(shù)據(jù)庫(kù)的連接PublicADOcnAsConnectionPublicSubMain()'定義數(shù)據(jù)庫(kù)連接字符串DimstrAccessAsString'用于連接Access數(shù)據(jù)庫(kù)，其中DataSource為具體的數(shù)據(jù)庫(kù)文件路徑，其他設(shè)置不變strAccess="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=通訊錄.mdb"'如果還沒(méi)有建立與數(shù)據(jù)庫(kù)的連接，則用以下代碼創(chuàng)建。IfADOcnIsNothingThenSetADOcn=NewConnection'ADOcn.OpenstrSQLServer'連接SQLServer數(shù)據(jù)庫(kù)ADOcn.OpenstrAccess'連接Access數(shù)據(jù)庫(kù)'如果希望連接Access數(shù)據(jù)庫(kù)，則使用strAccess'無(wú)論你使用的是何種數(shù)據(jù)庫(kù)，只需改變此處設(shè)置，其他程序代碼基本不用改變EndIffrmmain.Show'顯示主窗體EndSub第７章 多媒體應(yīng)用——播放器1．單項(xiàng)選擇題（1）B （2）A （3）B （4）C （5）D（6）D （7）D2．程序設(shè)計(jì)題PrivateSubForm_Load()'初始化設(shè)備MMControl1.Visible=FalseMMControl1.Notify=TrueMMControl1.Shareable=FalseMMControl1.TimeFormat=0MMControl1.DeviceType="cdaudio"MMControl1.UpdateInterval=1000EndSubPrivateSubMMControl1_StatusUpdate()'計(jì)算曲目信息label2.Caption="曲目總數(shù)："&MMControl1.TracksLabel3.Caption="曲目播放總時(shí)間："&Trim(Str(Int(MMControl1.Length/60000)))+"分"Label4.Caption="正在播放曲目："&MMControl1.TrackEndSubPrivateSubComPlay_Click()'開(kāi)始播放MMControl1.Command="play"ComPause.Enabled=TrueComP