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

1、浙江廣播電視大學(xué)Visual Basic程序設(shè)計(jì)課程作業(yè)（四）第章數(shù)據(jù)庫應(yīng)用學(xué)生信息管理1單項(xiàng)選擇題（1） ADO控件屬于ActiveX控件，使用之前必須Microsoft ADO Data Conctrol 6.0（OLE DB）其添加到工具箱中，添加ADO控件的菜單為（ ）。A“工程”“引用”B“工程”“部件”C“工具”“選項(xiàng)”D“工程”“添加文件”（2）利用ADO訪問數(shù)據(jù)庫，首先要?jiǎng)?chuàng)建一個(gè)（ ）對(duì)象，用于建立和數(shù)據(jù)庫的連接。AConnection對(duì)象BRecordset對(duì)象CCommand對(duì)象DObject對(duì)象（3）SQL語言的Select語句中，用于分組的語句為（ ）。AwhereBg

2、roup byCorder byDhaving（4）以下四個(gè)控件，不屬于數(shù)據(jù)綁定控件的是（ ）。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 ' ADO

3、rs.ActiveConnection = ADOcn ' strSQL = "select * from 學(xué)生表" ' ADOrs.Open strSQL ' 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)、課程

4、名、學(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ù)字類型。寫出下列功能的SQL語句： 插入一個(gè)新課程記錄（課程號(hào)：A001；課程名：英語1；學(xué)分：5） 修改學(xué)號(hào)為“95020”，課程號(hào)為“A001”的成績(jī)?yōu)?5 查詢所有學(xué)生的基本信息，使用中文作為查詢結(jié)果的各字段的名稱 統(tǒng)計(jì)出各個(gè)班級(jí)的人數(shù) 查詢出學(xué)號(hào)為“95020”所選修的課程名和成績(jī)，以及姓名（2）編寫使用ADO對(duì)象中的Connection對(duì)象連接SQL Server數(shù)據(jù)庫的代碼。（3）

5、使用Visual Basic開發(fā)一個(gè)簡(jiǎn)單的通訊錄，要求實(shí)現(xiàn)以下功能： 能夠錄入聯(lián)系人的基本信息，并保存。 輸入后，可以瀏覽所有聯(lián)系人的基本信息。 可以按姓名等關(guān)鍵字查找記錄。 能夠?qū)€(gè)人的基本信聯(lián)系人息進(jìn)行編輯修改和刪除記錄。第章多媒體應(yīng)用播放器1單項(xiàng)選擇題（1）決定系統(tǒng)是否自動(dòng)檢測(cè)多媒體控件（MMControl）各按鈕的狀態(tài)的屬性是（ ）。AEnableBAutoEnableCPlayEnabledD以上答案都不正確（2）將多媒體控件（MMControl）的Frames屬性設(shè)為3，則以下敘述正確的是（ ）。A指定Back或Step命令后退或前進(jìn)的幀數(shù)都為3B只有Back命令后退的幀數(shù)為3C只

6、有Step命令前進(jìn)的幀數(shù)為3D后退或前進(jìn)的幀數(shù)都為6（3）多媒體控件（MMControl）具有一組執(zhí)行MCI命令的下壓式按鈕。其中Record按鈕表示為（ ）。A前一首B錄制C彈出D播放（4）為了使多媒體控件（MMControl）中的錄制按鈕不顯示，應(yīng)添加代碼（ ）。AMMControl1.Visible= FalseBMMControl1.Visible= TrueCMMControl1.RecordVisible= FalseDMMControl1.RecordVisible= True（5）在多媒體控件（MMControl）中，DeviceType屬性用于設(shè)置多媒體設(shè)備的類型，如果將要播

7、放的文件是CD歌曲，應(yīng)將DeviceType屬性設(shè)置為（ ）。ADigitalVideoBWaveAudioCAVIVideoDCDAudio（6）Windows Media Player控件的UiMode屬性，表示播放器界面模式，以下選項(xiàng)是播放器模式的屬性值是（ ）。AFullBMiniCNoneD以上都是 （7）在Windows Media Player控件中，決定播放文件是否全屏的屬性是（ ）。AFullScreenBFullCScreenDstretchToFit2程序設(shè)計(jì)題設(shè)計(jì)CD播放器程序，通過該程序能夠欣賞CD-ROM中CD曲目，并能控制播放狀態(tài)及更改播放曲目，顯示CD盤中的歌曲

8、總數(shù)及正在播放歌曲的播放總時(shí)間，界面如下圖所示。參考答案第章數(shù)據(jù)庫應(yīng)用學(xué)生信息管理1單項(xiàng)選擇題（1）B（2）A （3）B（4）C2程序閱讀題（1）聲明Connection對(duì)象Adocn 創(chuàng)建新對(duì)象建立與數(shù)據(jù)庫連接（2）聲明并創(chuàng)建一個(gè)新的Recordset對(duì)象與Connection對(duì)象建立關(guān)聯(lián)聲明一條SQL語句執(zhí)行SQL語句，記錄集為查詢結(jié)果關(guān)閉記錄集對(duì)象3程序設(shè)計(jì)題（1） Insert into course_info values ('A001', '英語', 5) Update mark_info set mark=85 where student_ID =

9、'95020' and course_ID ='A001' Select student_id as 學(xué)號(hào), student_name as 姓名, student_sex as 性別, student_class as 班級(jí) from student_info Select student_class ,count(*) from student_info group by student_class Select student_name as 姓名, course_name as 課程名, mark as成績(jī)from student_info, cours

10、e_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=s

11、a; _ Password=sa; Database=XS"If ADOcn Is Nothing ThenSet ADOcn = New ConnectionADOcn.Open strSqlServer '連接SQL Server數(shù)據(jù)庫End IfEnd Sub（3）Frmmain窗體Private Sub Form_Load() Combo1.AddItem "姓名" Combo1.AddItem "手機(jī)"End SubPrivate Sub modify_Click() If DataGrid1.Visible = False

12、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 DataGri

13、d1.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 "請(qǐng)輸入要查詢的姓名", vbQuestion + vbOKOnly Else strSQL = "select *" strSQL = strSQL + &qu

14、ot; from address_list where name='" + Text1.Text + "'" Adodc1.RecordSource = strSQL Adodc1.Refresh DataGrid1.Visible = True End If End If If Combo1.Text = "手機(jī)" Then If Text1.Text = "" Then MsgBox "請(qǐng)輸入要查詢的手機(jī)", vbQuestion + vbOKOnly Else strSQL = &q

15、uot;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 + "記錄&q

16、uot;End SubPrivate Sub delete_Click() DataGrid1.Visible = True If MsgBox("是否要?jiǎng)h除？", vbQuestion + vbYesNo) = vbYes Then strSQL = "Delete From address_list " strSQL = strSQL + "Where 編號(hào)=" + DataGrid1.Text ADOcn.Execute strSQL MsgBox "刪除成功", vbQuestion + vbOKOnly

17、End If Adodc1.RefreshEnd SubPrivate Sub Form_Load() Combo1.AddItem "姓名" Combo1.AddItem "手機(jī)"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 Su

18、bPrivate 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='

19、;" + 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=&#

20、39;" + Text6.Text strSQL = strSQL + "',address='" + Text7.Text ADOcn.Execute strSQL MsgBox "修改成功！", vbQuestion + vbOKOnly End SubPrivate Sub Command2_Click() Unload MeEnd SubPrivate Sub Form_Load() Text1.Text = "" Combo1.AddItem "男" Combo1.AddItem

21、 "女" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text5.Text = "" Text6.Text = "" Text7.Text = "" Dim ADOrs As New Recordset ADOrs.ActiveConnection = ADOcn Text1.Text = ADOrs.Fields("name") Combo1.Text = ADOrs.Fields(

22、"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模塊'聲明全局對(duì)象變量ADOcn，用于創(chuàng)建與數(shù)據(jù)庫的連接Public ADOcn

23、As ConnectionPublic Sub Main() '定義數(shù)據(jù)庫連接字符串 Dim strAccess As String '用于連接Access數(shù)據(jù)庫，其中Data Source為具體的數(shù)據(jù)庫文件路徑，其他設(shè)置不變 strAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=通訊錄.mdb" '如果還沒有建立與數(shù)據(jù)庫的連接，則用以下代碼創(chuàng)建。 If ADOcn Is Nothing Then Set ADOcn = New Connection 'ADOcn.Open str

24、SQLServer '連接SQL Server數(shù)據(jù)庫 ADOcn.Open strAccess '連接Access數(shù)據(jù)庫 '如果希望連接Access數(shù)據(jù)庫，則使用strAccess '無論你使用的是何種數(shù)據(jù)庫，只需改變此處設(shè)置，其他程序代碼基本不用改變 End If frmmain.Show '顯示主窗體End Sub第章多媒體應(yīng)用播放器1單項(xiàng)選擇題（1）B（2）A（3）B （4）C（5）D（6）D（7）D2程序設(shè)計(jì)題Private Sub Form_Load() '初始化設(shè)備 MMControl1.Visible = False MMContr

25、ol1.Notify = True MMControl1.Shareable = False MMControl1.TimeFormat = 0 MMControl1.DeviceType = "cdaudio" MMControl1.UpdateInterval = 1000End SubPrivate Sub MMControl1_StatusUpdate() '計(jì)算曲目信息 label2.Caption = "曲目總數(shù)：" & MMControl1.Tracks Label3.Caption = "曲目播放總時(shí)間：" & Trim(Str(Int(MMControl1.Length / 60000) + "分" Label4.Caption = "正在播放曲目：" & MMControl1.TrackEnd SubPrivate Sub ComPlay_Click() '開始播放 MMControl1.Comm