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

1、浙江廣播電視大學(xué)visual basic 程序設(shè)計課程作業(yè)(四)第6章數(shù)據(jù)庫應(yīng)用一一學(xué)生信息管理1 .單項選擇題microsoft ado data conctrol 6.0 (ole db )°“工程” 一 “部件”“工程” 一 “添加文件”)對象，用于建立和數(shù)據(jù)庫的連接。recordset 對象object對象( )。c. order by d . having)。c. option 控件 d. label 控件(1) ado控件屬于activex控件，使用之前必須 其添加到工具箱中，添加 ado控件的菜單為(a. “工程” 一 “引用"b.c. “工具” 一 “選項”

2、d.(2)利用ado訪問數(shù)據(jù)庫，首先要創(chuàng)建一個(a .connection 對象b.d. command 對象d.(3) sql語言的select語句中，用于分組的語句為a . whereb. group by(4)以下四個控件，不屬于數(shù)據(jù)綁定控件的是(a . text 控件 b. datagrid 控件2 .程序閱讀題(1)說明下面的主要功能dim adocn as connectionset adocn = new connectionadocn.open "provider=microsoft.jet.oledb.4.0;data source=d:vbsmsxs.mdb&qu

3、ot;(2)說明下面的主要功能dim adors as new recordset'adors.activeconnection = adocn'strsql = "select * from 學(xué)生表"'adors.open strsql'adors.close'3(1)有以下3個數(shù)據(jù)表：學(xué)生表：student_info(student_id,student_name,student_sex,student_class),分別表示學(xué)號、 姓名、性別、班級，各字段數(shù)據(jù)類型都是文本。課程表：course_info(course_id ,c

4、ourse_name ,course_credit),分另1j表示課程號、課程名、 學(xué)分，課程號、課程名為文本類型，學(xué)分為數(shù)字類型。成績表：mark_info(student_id, course_id,mark),分別表示學(xué)號、課程號、成績，其中學(xué)號、課程號為文本類型， mark 為數(shù)字類型。寫出下列功能的 sql 語句： 插入一個新課程記錄（課程號： a001 ；課程名：英語 1；學(xué)分： 5 ） 修改學(xué)號為“ 95020” ，課程號為“ a001 ”的成績?yōu)?5 查詢所有學(xué)生的基本信息，使用中文作為查詢結(jié)果的各字段的名稱 統(tǒng)計出各個班級的人數(shù) 查詢出學(xué)號為“95020”所選修的課程名和成績

5、，以及姓名2 ）編寫使用 ado 對象中的 connection 對象連接 sql server 數(shù)據(jù)庫的代碼。3 ）使用 visual basic 開發(fā)一個簡單的通訊錄，要求實現(xiàn)以下功能： 能夠錄入聯(lián)系人的基本信息，并保存。 輸入后，可以瀏覽所有聯(lián)系人的基本信息。 可以按姓名等關(guān)鍵字查找記錄。 能夠?qū)€人的基本信聯(lián)系人息進(jìn)行編輯修改和刪除記錄。第7章多媒體應(yīng)用一一播放器1單項選擇題（ 1 ）決定系統(tǒng)是否自動檢測多媒體控件（ mmcontrol ）各按鈕的狀態(tài)的屬性是（ ） 。a enableb autoenablec playenabledd 以上答案都不正確（ 2）將多媒體控件（mmcon

6、trol ）的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 mmcontrol

7、1.recordvisible= falsed mmcontrol1.recordvisible= true（ 5 ）在多媒體控件（ mmcontrol ）中， devicetype 屬性用于設(shè)置多媒體設(shè)備的類型，如果將要播放的文件是cd 歌曲，應(yīng)將devicetype 屬性設(shè)置為（ ） 。a digitalvideo b waveaudioc avivideo d cdaudio（ 6 ） windows media player 控件的 uimode 屬性， 表示播放器界面模式， 以下選項是播放器模式的屬性值是（ ） 。a fullb minic noned 以上都是（7）在 window

8、s media player控件中，決定播放文件是否全屏的屬性是（）。a. fullscreenb. fullc. screen d. stretchtofit2.程序設(shè)計題設(shè)計cd播放器程序，通過該程序能夠欣賞cd-rom中cd曲目，并能控制播放狀態(tài)及更改播放曲目，顯示 cd盤中的歌曲總數(shù)及正在播放歌曲的播放總時間，界面如下圖所示。« cdffi版嗇區(qū)cd播放器曲目忠景：。曲目播放總的日；陽正主播出曲目：上一:不一首|匚篁）智停 工止彈2-坦巴參考答案第6章數(shù)據(jù)庫應(yīng)用一一學(xué)生信息管理1 .單項選擇題(1) b(2) a (3) b (4) c2 .程序閱讀題(1)聲明 connec

9、tion 對象 adocn創(chuàng)建新對象建立與數(shù)據(jù)庫連接(2)聲明并創(chuàng)建一個新的recordset對象與connection對象建立關(guān)聯(lián)聲明一條sql語句執(zhí)行sql語句，記錄集為查詢結(jié)果關(guān)閉記錄集對象(3) 序設(shè)計題(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 學(xué)號,student_na

10、me as 姓名,student_sex as 性另1j , 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_infowhere student_info. student_id = mark_info. student_idand c

11、ourse_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=xs"if adocn is nothing thenset adocn = new conn

12、ectionadocn.open strsqlserver'連接 sql server 數(shù)據(jù)庫end ifend sub3)frmmain 窗體private 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.sh

13、owend subprivate sub quit_click()endend subprivate sub refesh_click()dim strsql as stringstrsql = "select * from address_listadodc1.recordsource = strsqladodc1.refreshdatagrid1.visible = truedatagrid1.refreshend subfrmadd 窗體private sub about_click()frmabout.showend subprivate sub command1_click

14、()dim strsql as stringif combo1.text = " 姓名 " thenif text1.text = "" thenmsgbox " 請輸入要查詢的姓名 ", vbquestion + vbokonlyelsestrsql = "select *"strsql = strsql + " from address_list where name='" + text1.text + "'"adodc1.recordsource = s

15、trsqladodc1.refreshdatagrid1.visible = trueend ifend ifif combo1.text = " 手機 " thenif text1.text = "" thenmsgbox " 請輸入要查詢的手機", vbquestion + vbokonlyelsestrsql = "select *"strsql = strsql + " from address_list where mobile='"text1.text + "

16、9;"adodc1.recordsource = strsqladodc1.refreshdatagrid1.visible = trueend ifend ifend subprivate sub datagrid1_click()adodc1.caption = " 第" + datagrid1.text + " 記錄 "end subprivate sub delete_click()datagrid1.visible = trueif msgbox(" 是否要刪除？ ", vbquestion + vbyesno)

17、= vbyes then strsql = "delete from address_list " strsql = strsql + "where 編號 =" + datagrid1.text adocn.execute strsqlmsgbox " 刪除成功 ", vbquestion + vbokonlyend ifadodc1.refreshend subprivate sub form_load()combo1.additem " 姓名 "combo1.additem " 手機 "en

18、d subprivate sub modify_click()if datagrid1.visible = false then frmadd.showelsefrmupdate.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 = s

19、trsqladodc1.refreshdatagrid1.visible = truedatagrid1.refreshend subfrmupdate 窗體private sub command1_click()dim strsql as stringstrsql = "update address_list set name='" + text1.textstrsql = strsql + "',sex='" + combo1.textstrsql = strsql + "',mobile='&quo

20、t; + text3.textstrsql = strsql + "',phone='" + text4.textstrsql = strsql + "',qq='" + text5.textstrsql = strsql + "',email='" + text6.textstrsql = strsql + "',address='" + text7.textstrsql = strsql + "' where id="

21、+ frmmain.datagrid1.textadocn.execute strsqlmsgbox " 修改成功！ ", vbquestion + vbokonlyfrmmain.adodc1.refreshend subprivate sub command2_click()unload meend subprivate sub form_load()text1.text = ""combo1.additem " 男 "combo1.additem " 女"text3.text = ""te

22、xt4.text = ""text5.text = ""text5.text = ""text6.text = ""text7.text = ""dim adors as new recordsetadors.activeconnection = adocnadors.open "select * from address_list where id=" + frmmain.datagrid1.texttext1.text = adors.fields("name&

23、quot;)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 模塊'聲明全局對象變量a

24、docn ，用于創(chuàng)建與數(shù)據(jù)庫的連接public adocn 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 thenset adocn = new co

25、nnection'adocn.open strsqlserver'連接sql server 數(shù)據(jù)庫adocn.open straccess '連接access 數(shù)據(jù)庫'如果希望連接access 數(shù)據(jù)庫，則使用 straccess'無論你使用的是何種數(shù)據(jù)庫，只需改變此處設(shè)置，其他程序代碼基本不用改變end iffrmmain.show ' 顯示主窗體end sub第7章多媒體應(yīng)用一一播放器1單項選擇題（ 1 ） b（ 2 ） a（ 3 ） b（ 4） c （ 5 ） d（6） d（ 7） d2程序設(shè)計題private sub form_load()

26、'初始化設(shè)備mmcontrol1.visible = falsemmcontrol1.notify = truemmcontrol1.shareable = falsemmcontrol1.timeformat = 0mmcontrol1.devicetype = "cdaudio"mmcontrol1.updateinterval = 1000end subprivate sub mmcontrol1_statusupdate()'計算曲目信息label2.caption = " 曲目總數(shù)： " & mmcontrol1.trackslabel3.caption = " 曲目播放總時間： " & trim(str(int(mmcontrol1.length / 60000)+ "分"label4.caption = " 正在播放曲目： " & mmcontrol1.trackend