Visual Basic 程序設(shè)計教程上機實驗指導

VisualBasic上機實驗指導

上機實驗一

上機實驗二

上機實驗三

上機實驗四

上機實驗五

上機實驗六

上機實驗七

返回上機實驗1VB開發(fā)環(huán)境

一、實驗?zāi)康?．了解VB6.0系統(tǒng)對計算機軟、硬件環(huán)境的要求2．掌握啟動和退出VB的方法3．熟悉VB的開發(fā)環(huán)境4．了解和掌握建立、編輯和運行一個簡單VB應(yīng)用程序的過程。了解VB聯(lián)機幫助的使用方法。上機實驗1VB開發(fā)環(huán)境二、實驗內(nèi)容1．啟動和退出VB分別用以下幾種方式啟動VB（1）用“開始”菜單中的“程序”命令。（2）用“開始”菜單中的“運行”命令。將VB以快捷方式放在桌面上，啟動時，在桌面上雙擊該圖標。上機實驗1VB開發(fā)環(huán)境[提示]建立啟動VB的快捷方式：①在Windows的資源管理器的VB安裝目錄下找到Vb6.exe；②將Vb6.exe的圖標拖到桌面上，打開鼠標后出現(xiàn)一個彈出式菜單;單擊彈出式菜單上的“在當前位置創(chuàng)造快捷方式”即可在桌面上建立啟動VB的快捷方式。上機實驗1VB開發(fā)環(huán)境分別用以下同種方式退出VB：（1）單擊主窗口右上角的“關(guān)閉”按鈕。（2）執(zhí)行“文件”菜單中的“退出”命令。(3)按“Alt+Q”鍵。2、熟悉VB的開發(fā)環(huán)境（1）關(guān)于各窗口單擊“工程窗口”、“屬性窗口”、“窗體布局窗口”、“窗體設(shè)計器”及“工具箱窗口”右上角的關(guān)閉按鈕“×”，將其關(guān)閉；上機實驗1VB開發(fā)環(huán)境（2）打開各窗口①單擊工具欄上的“工程資源管理器”按鈕或執(zhí)行“視圖”菜單中的“工程資源管理器”命令，打開工程資源管理的窗口。②執(zhí)行“視圖”菜單中的“對象窗口”命令，或按“Shift+F7”鍵，打開窗體設(shè)計器窗口。③單擊工具欄上的“屬性窗口”按鈕或執(zhí)行“視圖”菜單中的“屬性窗口”命令或按F4鍵，打開屬性窗口。④單擊工具欄上的“窗體布局窗口”按鈕或執(zhí)行“視圖”菜單中的“窗體布局窗口”命令，打開“窗體布局窗口”。

上機實驗1VB開發(fā)環(huán)境⑤單擊工具欄上的“工具箱”按鈕或執(zhí)行“視圖菜單中的”“工具箱”命令打開工具箱窗口。（3）熟悉了解菜單命令在菜單欄上，單擊各菜單標題，顯示各下拉菜單，熟悉了解各菜單命令。（4）增加窗體：執(zhí)行“工程”菜單中的“添加窗體”命令，在Form1的基礎(chǔ)上增加一個窗體Form2

上機實驗1VB開發(fā)環(huán)境3、使用聯(lián)機幫助（1）執(zhí)行“幫助”菜單中的“內(nèi)容”命令，打開MSDNLibraryVisualStudio6.0對話框；①在“活動子集”的下拉列表中選擇“VisualBasic文檔”；②單擊“目錄”選項按鈕，逐步展開：“MSDNLibraryVisualStudio6.0目錄”“VisualBasic文檔”“使用VisualBasic”“程序員指南”，查看有關(guān)目錄的內(nèi)容；上機實驗1VB開發(fā)環(huán)境③單擊“索引”選項按鈕，在“鍵入要查找的關(guān)鍵字”欄內(nèi)輸入要查找的關(guān)鍵字，然后單擊“顯示”按鈕，將顯示“已找到主題對話框”，在該對話框中選擇欲查看的關(guān)鍵字，然后單擊“顯示”按鈕，可顯示相關(guān)內(nèi)容；④單擊“搜索”選項按鈕，在“輸入要查找的單詞”欄中輸入一查找單詞，然后單擊“列出主題”按鈕，將在“選擇主題”框中列出查找到的相關(guān)主題，選擇其中某個主題，然后單擊“顯示”按鈕。

上機實驗1VB開發(fā)環(huán)境⑤單擊“書簽”選項按鈕，然后單擊“添加”按鈕，將把當前顯示的內(nèi)容的主題加到“主題”框中。（2）激活某個窗口，按F1鍵，將顯示該窗口的聯(lián)機幫助信息。（3）雙擊窗體，打開代碼窗口，在代碼窗口中輸入一個關(guān)鍵字，把光標移到該關(guān)鍵字上，然后按F1鍵，觀察所顯示的信息。

上機實驗1VB開發(fā)環(huán)境4、編寫一個簡單的加法計算器程序。（1）創(chuàng)建窗體啟動VB后，選擇“標準.exe”選項，進入VB開發(fā)環(huán)境，此時已自動創(chuàng)建一個窗體form，在此窗體上添加控件，構(gòu)建用戶界面。（2）向窗體上，添加控件在form1窗體上添加以下控件：標簽label1:用于顯示“+”；標簽label2:用于顯示“=”；

上機實驗1VB開發(fā)環(huán)境文本框Text1、Text2：分別用于輸入二個加數(shù)；文本框Text3：用于顯示加法計算和；命令按鈕Command1：用于計算加法；命令按鈕Command2：結(jié)束應(yīng)用程序（3）設(shè)計對象屬性設(shè)置form1的Caption屬性為“簡單加法計算機器”。設(shè)置label1的Caption屬性“+”。上機實驗1VB開發(fā)環(huán)境設(shè)置Lable2的Caption屬性為“=”。設(shè)置Text1、Text2的Text屬性為空。設(shè)置Command1的Caption屬性為“計算”。設(shè)計Command2的Caption屬性為“結(jié)束”。將窗體和各控件調(diào)整如圖所示：

上機實驗1VB開發(fā)環(huán)境（4）編寫代碼，建立事件過程雙擊Command1命令按鈕，打開代碼窗口，對該按鈕編寫如下代碼：

PrivateSubCommand1_click()Text3.text=Val(Text1.Text)+Val(Text2.text)EndSub編寫命令按鈕Command2的事件過程代碼：

PrivateSubCommand2_click()EndEndSub上機實驗1VB開發(fā)環(huán)境(5)運行程序①按F5鍵開始運行程序，輸入5、10兩個值，單擊“計算”命令按鈕進行加法運算。②按“結(jié)束”命令按鈕，結(jié)束程序的執(zhí)行。③保存程序執(zhí)行“文件”菜單中，執(zhí)行文件菜單中的“保存”命令，或單擊工具欄上的“保存工程”按鈕。上機實驗2簡單程序設(shè)計

一、實驗?zāi)康?.掌握VB數(shù)據(jù)類型的基本概念2.掌握變量、常量的定義規(guī)則和表達式、賦值語句的使用3.掌握常用函數(shù)的使用4.掌握分支語句的使用5.掌握循環(huán)語句的使用6.掌握數(shù)組、過程的使用

上機實驗2簡單程序設(shè)計二、實驗內(nèi)容編制一個程序，計算某學生獎學金的等級，以數(shù)學、外語、語文三門功課平均分為評獎依據(jù)，大于95分者可得一等，大于90分者可得二等，大于85分可得3等、符合條件者，就高不就低，只能獲得交的一項獎學金。要求顯示獲獎學金等級。平均分85分以下者顯示不獲獎學金。

上機實驗2簡單程序設(shè)計[實驗說明]（1）界面設(shè)計在窗體上建立4個文本框，其中三個用于輸入數(shù)學、外語、語文的成績，一個用于顯示獎學金的等級，或不夠獲獎學金條件時顯示“不獲獎學金；建立二個命令按鈕分別用于“計算獎學金”和“結(jié)束”操作。（2）過程設(shè)計下面的程序段可供參考PrivateSubCommand1_click()DimS,S1,S2,S3,ASSingle上機實驗2簡單程序設(shè)計S1=Val(Text1.Text)S2=Val(Text2.Text)S3=Val(Text3.Text)

S=(S1+S2+S3)/3IfS>95ThenText3=“一等獎”ElseIfS>90ThenText3=

“二等獎”

…EndSub

上機實驗2簡單程序設(shè)計2、設(shè)有以下程序：PrivateSubForm_click()ForI=1to4Forj=1to20-3*IPrint″″;NextjFork=1To2*I-1Print″*″;NextkPrintNextI

上機實驗2簡單程序設(shè)計

ForI=3to0Step-1Forj=1to20-3*IPrint″″;NextjFork=1to2*I-1Print”*”;NextkPrintNextIEndSub請閱讀上面程序，并分析它的輸入結(jié)果，然后上機運行該程序，并驗證分析結(jié)果。上機實驗2簡單程序設(shè)計3、編寫一個程序，自動建立一個10X10的矩陣，該矩陣對角對元素為1，其余元素均為0，然后將該矩陣在窗體上顯示出來。[實驗說明]設(shè)該矩陣存入一個下界為1，上界為10的二維數(shù)組中，其程序如下：OptionBase1PrivateSubForm_click()Dimmat(10,10)上機實驗2簡單程序設(shè)計

ForI=1to10Forj=1to10IfI=JThenMat(I,j)=1ElseMat(I,j)=0EndIfNextjNextI

EndSub程序運行后，單擊窗體，分別自動生成10X10矩陣并存入mat數(shù)組中。上機實驗2簡單程序設(shè)計4、設(shè)有以下程序：Dima%,b%,c%PublicSubP1(x%,ByValy%)Dimc%X=2*xY=2+yC=x+yEndSub

上機實驗2簡單程序設(shè)計PublicSubP2(x%,y%)Dimc%X=2*xY=2+yC=x+yEndSub

上機實驗2簡單程序設(shè)計PrivateSubCommand1_click()a=2b=4c=6CallP1(a,b)Print”a=”;a;”b=”;b;”c=”;cCallp2(a,b)Print”a=”;a;”b=”;b;”c=”;cEndSub

上機實驗2簡單程序設(shè)計（1）仔細分析上面過程的參數(shù)傳遞情況，并給出分析結(jié)果。（2）自行設(shè)計用戶界面，上機運行上面程序，并驗證分析結(jié)果。

[實驗說明]VB中形參與實參的結(jié)合有按值傳遞和按地址傳遞二種方式。按值傳遞的形參前加ByVal關(guān)鍵字。在作用上按值傳遞只能從外界向過程傳入初值，但不能將結(jié)果傳出去，而按地址傳遞既可以傳入又可以傳出。上機實驗3窗體與控件

一．實驗?zāi)康?．掌握常用內(nèi)部控件的主要屬性，方法和事件。2．掌握窗體和控件事件過程代碼的編寫。3．將窗體和控件能靈活應(yīng)用于具體的程序設(shè)計中二．實驗內(nèi)容設(shè)計一個用于輸入職工信息的應(yīng)用程序，如圖所示:

上機實驗3窗體與控件[實驗說明]（1）民族用下拉式列表框，其中的項目自行確定;職務(wù)用簡單列表框;水平滾動條用于輸入外語熟悉程度（0-100）;簡歷用文本框，為了能輸入多行文字,需設(shè)置Multiline屬性為True,并將ScrollBars屬性設(shè)置為2，以便在該文本框中加入垂直滾動條。（2）當輸入完畢后，單擊“OK”命令按鈕后，將輸入的信息在另一窗體上輸出出來，窗體界面自行設(shè)計。

上機實驗3窗體與控件（1）兩個文本框text1和text2用于設(shè)定定時的時間，因為它輸入的小時數(shù)和分數(shù)都是2位，所以設(shè)置其Maxlength屬性為2，限定它輸入文本的最大長度為2。（2）該例中共需設(shè)計4個事件過程：①啟動（command1_click()）過程，按“啟動”按鈕，鬧鐘開始生效。②Timer事件過程（tmrclock_Timer()）,將Timer$函數(shù)返回的系統(tǒng)時間,存入label2標簽控件中以顯示現(xiàn)在的時間。③

停止過程（command2_click()）結(jié)束過程（command3_click()）

上機實驗3窗體與控件在上面前3個過程中，有2個用于存放小時和分的變量hour和minute，由于共同使用這些變量，所以必須在窗體層中聲明，方法是：選定代碼窗口中“對象”列表框中的“通用”和“過程”列表框中的“聲明”此時在代碼窗口中輸入如下變量聲明：

Dimhour,minute(3)各控件事件過程如下：

Privatesubcommand1_click()Hour=Format(text1.Text,″00″)Minuet=Format(text2.Text,″00″)EndSub

上機實驗3窗體與控件Privatesubtmrclock_Timer()Label2.caption=Timer$Ifmid(time$,1,5)=hour+”:”+minuteThenForI=1to100BeepNextIEndifEndsub上機實驗3窗體與控件

Privatesubcommand2_click()Hour=”**”Minute=”**”EndSub結(jié)束過程

上機實驗3窗體與控件3.編寫一個如圖所示的學生選課的程序，學生可以從“選修課”列表框中,把選定的課添加到下面的列表框中，要求在選修課列表框中能進行多項選擇。上機實驗3窗體與控件[實驗說明]（1）設(shè)“選修課”和“我選的課”列表框名稱分別為Lis1和Lis2。因要在Lis1中能進行多項選擇，所以其Multiselece屬性應(yīng)設(shè)為1或2。（2）在“添加”事件過程中不能簡單用：List2.AddItemList1.Text語句來添加項目。程序如下：

PrivateSubcmdAppend_click()ForI=0ToList.Listcount-1IfList1.selected(I)ThenList2.AddItemList1.List(I)EndifNextIEndSub上機實驗4用戶界面設(shè)計一、實驗?zāi)康?．掌握下拉式菜單和彈出式菜單的設(shè)計方法。2．

掌握菜單事件過程的編寫方法。3．掌握多窗體和多文檔界面（MDI）程序設(shè)計技術(shù)。4．熟練掌握鍵盤事件，鼠標事件及其事件過程的編寫。上機實驗4用戶界面設(shè)計二、實驗內(nèi)容1．設(shè)計一個如圖所示的菜單系統(tǒng)，并為菜單項編寫有關(guān)的程序代碼。上機實驗4用戶界面設(shè)計[實驗說明](1)

在窗體上畫一個文本框，將該文本框的Multiline屬性設(shè)置為True,Scrolls屬性設(shè)置為3，以使其添加水平和垂直滾動條，并選一首詩輸入到文本框中。(2)

用菜單編輯器設(shè)計菜單，由于每個菜單項都能響應(yīng)Click事件，為第一個菜單項編寫一個事件過程。例如設(shè)置文體大小為14號字的菜單項的名稱為fon14，其事件過程為：

PrivateSubfon14_click()Text1.FontSize=14EndSub

上機實驗4用戶界面設(shè)計2.為上題的文本框設(shè)計一個彈出式菜單，控制其顯示文本的顏色，字體和字號等，[實驗說明]（1）計彈出式菜單仍然使用菜單編輯器，只是將菜單的Visible屬性設(shè)置為False即可。（2）隱式的菜單用PopupMenu方法，將其顯示出來，PopupMenu方法的Flags參數(shù)設(shè)2時，該方法只能用在MouseDown事件過程中。若設(shè)計的彈出式菜單名為fon，事件過程為PrivageSubMouseDown(ButtonAsInteger,shiftASInteger,XASsing1e.YASSing1e)IfButton=2ThenPopupMenufon,2EndSub

上機實驗4用戶界面設(shè)計

3.編寫一個程序，測試MouserDown,MouseUP和Click事件發(fā)生的先后次序。[實驗說明]當鼠標鍵按下時，觸發(fā)MouseDown事件，釋放明觸發(fā)MouseUP和click事件。MouseUP和Click事件發(fā)生的先后次序與選擇對象有關(guān)，可對不同對象分別編程,以測試上述事件發(fā)生的先后次序。

上機實驗4用戶界面設(shè)計4.設(shè)計一個多文檔界面應(yīng)用程序示例。該示例中有一個MDI窗體，和二個子窗體，MDI窗體上建立一個菜單，控制程序的結(jié)束和顯示各子窗體如圖所示。上機實驗4用戶界面設(shè)計每個子窗體上各建立一個文本框，文本框內(nèi)各顯示一首詩,如圖所示。上機實驗4用戶界面設(shè)計[實驗說明]（1）MDI窗體是子窗體的容器，該窗體中一般只能有菜單欄，工具欄等，不能有文本框等控件。創(chuàng)建一個MDI窗體方法是：在“工程”菜單中單擊“添加MDI窗體”命令，設(shè)置其屬性：name=MDIForm1.其它屬性均為缺省，不需修改。然后使用菜單設(shè)計器在該窗體上設(shè)計“結(jié)束”和“顯示子窗體”等下接式菜單，顯示子窗體1菜單項的名稱為XS1，顯示子窗體2菜單項的名稱為XS2。

上機實驗4用戶界面設(shè)計（2）將Form1窗體作為子窗體1，設(shè)置其屬性：MDIchild=”True”并在其上添加1個文本框，在文本框中輸入一首詩。（3）加入Form2窗體，將其作為子窗體2；①

“工程”菜單中單擊“添加窗體”命令，顯示“添加窗體”對話框；②在“新建”中選擇要添加的窗體類型，或者在“現(xiàn)存”中選擇一個已經(jīng)存在的窗體文件；③單擊“打開”按鈕。上機實驗4用戶界面設(shè)計④通過屬性窗口為其設(shè)置屬性：

Name=Form2

MDIchild=”True”⑤在該窗體中加入一文本框，并在文本框中輸入一首詩（1）編寫代碼：顯示MDI窗體和子窗體的方法是Show，加載MDI窗體時，其子窗體并不會自動加載：加載MDI窗體的代碼如下：

上機實驗4用戶界面設(shè)計PrivateForm_click()MDIForm1.caption=″主窗體″

Form1.caption=″子窗體1″

Form2.caption=″子窗體2″

MDIForm1.showEndSub上機實驗4用戶界面設(shè)計MDI窗體用來顯示菜單，并根據(jù)所選擇的菜單命令執(zhí)行相應(yīng)的操作，例如“顯示窗體1”的代碼如下：

PrivatSubXS1_click()Form1.showEndSub

上機實驗5數(shù)據(jù)庫應(yīng)用一、實驗?zāi)康模保莆諗?shù)據(jù)庫管理器的使用２．掌握Date控件和ADO數(shù)據(jù)控件的使用３．掌握數(shù)據(jù)庫綁定控件的使用４．掌握使用程序編碼操作數(shù)據(jù)庫的方法上機實驗5數(shù)據(jù)庫應(yīng)用二、實驗內(nèi)容１．使用可視化數(shù)據(jù)管理器建立一個Access數(shù)據(jù)庫[實驗說明]首先啟動可視化數(shù)據(jù)管理器，然后在數(shù)據(jù)管理器中建立數(shù)據(jù)庫、數(shù)據(jù)表及添加記錄。（1）

建立成績管理數(shù)據(jù)庫選擇“文件”菜單中的“新建”項，在“新建”子菜單中，選擇新創(chuàng)建的數(shù)據(jù)庫類型，打開創(chuàng)建數(shù)據(jù)庫對話框輸入數(shù)據(jù)庫文件名“cjgl”，保存在“c：\”。（2）

建立學生成績表，表結(jié)構(gòu)如下：字段名稱類型長度字段名稱類型長度學號（number）整型缺省語文（chinese）整型缺省姓名（name）文本8數(shù)學（maths）整型缺省性別（sex）文本2總分（sum）整型缺省上機實驗5數(shù)據(jù)庫應(yīng)用打開cjgl．mdb，用鼠標右鍵單擊數(shù)據(jù)庫窗口,在彈出菜單中選擇“新建表”，打開“表結(jié)構(gòu)”對話框。在“表名稱”文本框中輸入表名：“xscj”。單擊“添加字段”按鈕打開“添加字段”對話框，依次添加各字段。添加完畢返回“表結(jié)構(gòu)”對話框。（３）添加索引在“表結(jié)構(gòu)”對話框中單擊“添加索引”按鈕，打開“添加索引”對話框添加索引。（４）添加記錄上機實驗5數(shù)據(jù)庫應(yīng)用２．設(shè)計一個窗體通過Data控件和綁定控件瀏覽、查詢表內(nèi)的記錄[實驗說明](1)

創(chuàng)建一個新的標準EXE工程，并在窗體中加入如下表所示的控件。(2)設(shè)置各控件主要屬性。(3)編寫代碼：①初始化窗體上面的控件屬性。

PrivateSubForm_Load()Text1.Text=""‘清空文本框內(nèi)容

Text2.Text=""Text3.Text=""EndSub

控件名稱屬性設(shè)置值控件名稱屬性設(shè)置值Label1Caption學號Text1DataFieldNumberLabel2Caption姓名Text1DataSourceData1Label3Caption總分Text2DataFieldNameCommand1Caption查詢Text2DataSourceData1Command2Caption退出Text3DataFieldsumData1DataBasec:\cjglText3DataSourceData1Data1RecordSourceXscj

上機實驗5數(shù)據(jù)庫應(yīng)用②用FindFirst方法查詢記錄

PrivateSubCommand1_Click()Dimstr1,str2AsStringstr1=Trim(InputBox("請輸入姓名:","查找姓名"))‘輸入姓名

Ifstr1<>""Thenstr2="name='"&str1&"'"Data1.Recordset.FindFirststr2‘在數(shù)據(jù)庫中查找對應(yīng)記錄

IfData1.Recordset.NoMatchThen上機實驗5數(shù)據(jù)庫應(yīng)用

MsgBox"無此人"

Data1.Recordset.MoveFirst

EndIfEndIfEndSub

③下面的程序代碼用于結(jié)束程序的運行

PrivateSubCommand2_Click()EndEndSub(4)運行程序

上機實驗5數(shù)據(jù)庫應(yīng)用3．設(shè)計一個窗體通過ADO數(shù)據(jù)控件和綁定控件DataGrid瀏覽學生成績表內(nèi)的記錄[實驗說明]①建立一個新的工程，并在窗體上添加一個ADODC控件及一個DataGrid控件。（ADODC控件及DataGrid控件必須事先添加到工具箱中，請參考教材7.5.2ADODC控件中的第4個問題“將ADODC控件及其綁定控件添加到工具箱中”）②設(shè)置屬性如下表所示。ADODC1ConnectionString使用連接字符串連接c：\cjgl.mdb數(shù)據(jù)庫RecordSourceselect*fromxscjDataGridDataSourceADODC1上機實驗5數(shù)據(jù)庫應(yīng)用(a)單擊ConnectionString屬性，打開ConnectionString屬性對話框，選擇“使用連接字符串”，并單擊“生成”命令按鈕，打開“數(shù)據(jù)連接屬性”對話框，在“提供者”選項頁中，選擇MicrosoftJet3.51OLEDBProvider。單擊“下一步”按鈕后進入“連接”選項頁。在“連接”選項頁中選擇所要連接的數(shù)據(jù)庫的名字及路徑。然后，單擊“測試連接”按鈕。上機實驗5數(shù)據(jù)庫應(yīng)用(b)單擊“RecordSource”屬性，打開“RecordSource”記錄源屬性頁對話框。在“命令類型”下拉列表框中選擇adCmdUnKnown類型，在“命令文本”文本框中輸入SQL語句select*fromxscj。(c)選中DataGrid控件，設(shè)置DataSource屬性為ADODC1，然后單擊鼠標右鍵，從快捷菜單中選擇“檢索字段”，最后進行整體布局調(diào)整上機實驗5數(shù)據(jù)庫應(yīng)用4．設(shè)計一個窗體通過ADO連接“c：\cjgl.mdb”數(shù)據(jù)庫，并進行查詢等操作[實驗說明](1)建立新工程，在窗體中加入5個Label控件、5個TextBox控件、5個CommandButton控件。(3)設(shè)置各部件屬性。設(shè)置5個Label控件的Caption屬性分別為“學號”、“姓名”、“語文”、“數(shù)學”和“查詢條件”；Command控件分別對應(yīng)查詢、增加、前移、后移退出。

上機實驗5數(shù)據(jù)庫應(yīng)用(4)編寫代碼。①查詢程序代碼：

PrivateSubCommand1_Click()DimstrqueryAsStringSetrs.ActiveConnection=conn

If(Text5.Text="")Then

strquery="select*fromxscj"Else

strquery="select*fromxscj"&"wherenumber="&CInt(Text5.Text)EndIf上機實驗5數(shù)據(jù)庫應(yīng)用

rs.Openstrquery

Ifrs.EOFThen

MsgBox"無此記錄"

GoToend1EndIfText1.Text=rs.Fields("number")Text2.Text=rs.Fields("name")Text3.Text=rs.Fields("chinese")Text4.Text=rs.Fields("maths")end1:

rs.CloseEndSub上機實驗5數(shù)據(jù)庫應(yīng)用②結(jié)束程序代碼：

PrivateSubCommand2_Click()

conn.CloseEndEndSub③初始化窗體代碼：

PrivateSubForm_Load()Setconn=NewADODB.ConnectionSetrs=NewADODB.Recordsetconn.ConnectionString="dsn=cjgl"上機實驗5數(shù)據(jù)庫應(yīng)用

conn.Open

rs.LockType=adLockOptimisticrs.CursorType=adOpenKeyset

Text1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""Text5.Text=""EndSub(5)運行應(yīng)用程序。上機實驗6多媒體編程基礎(chǔ)一．實驗?zāi)康?．

掌握API瀏覽器的使用。2．

掌握VB中使用API函數(shù)的方法。3．

掌握簡單的多媒體應(yīng)用程序的設(shè)計方法。二．實驗內(nèi)容1．調(diào)用API函數(shù)CreateRoundRectRgn使窗體的外觀變成帶圓角的矩形窗體。上機實驗6多媒體編程基礎(chǔ)[實驗說明]（1）CreateRoundRectRgn

函數(shù)可建立圓角矩形，它需提供3組坐標參數(shù)：X1.y1:為圓角矩形的左上角坐標；X2.y2：為圓角矩形右下角坐標；X3,y3:為圓角的弧度值；（2）該函數(shù)建立的圓角矩形所使用的度量單位是像素值，需用ScaleX和ScaleY方法，對窗體的度量單位進行轉(zhuǎn)換。其語法格式為：對象.ScaleX(轉(zhuǎn)換值,原坐標單位,轉(zhuǎn)換坐標單位）對象.ScaleY(轉(zhuǎn)換值,原坐標單位,轉(zhuǎn)換坐標單位)上機實驗6多媒體編程基礎(chǔ)（3）顯示該窗體還需要調(diào)用API函數(shù)中的SetWindowRgn函數(shù)，SetWindowRgn函數(shù)需要3項參數(shù)：主窗口句柄，圓角矩形區(qū)域句柄，重畫控制。句柄（Homdle）可看作一個對象的指針，通過它可訪問該對象。主窗口句柄：直接使用窗體的hwnd屬性。圓角矩形區(qū)域的句柄：由CreateRoundRectRgn函數(shù)返回。重畫控制：為一邏輯值，表示區(qū)域發(fā)生變化時是否重畫。

上機實驗6多媒體編程基礎(chǔ)（4）API的聲明可放在BAS模塊中，執(zhí)行“工程”菜單中的“添加模塊”命令，加入BAS模塊，并使用API瀏覽器將上面的兩個API函數(shù)聲明復制到剪切板上，然后再粘貼到BAS模塊中。（5）建立圓角矩形窗體程序如下：

PrivateSubForm_Load()Dimrwnd,x2,y2X2=scalex(Me.Width,VbTwips,vbpixels)Y2=Scaley(Me.Height,vbTwips,vbpixels)

rwnd=cretatRowndRectRgn(0,0,x2,y2,150,150)

SetWindowRgnMe.hwnd,rwnd,TrueEndSub上機實驗6多媒體編程基礎(chǔ)2.應(yīng)用Mmcontrol控件設(shè)計一個播放器，并有自動重播和顯示進度功能。上機實驗7程序調(diào)試與錯誤處理一、實驗?zāi)康?.掌握VB中借助調(diào)試工具調(diào)試程序的方法2.掌握VB程序中的錯誤類型和錯誤處理方法3.掌握VB中Err對象的使用4.掌握VB應(yīng)用程序發(fā)布的操作方法

二、實驗內(nèi)容1.自行選擇一個程序，采用設(shè)置斷點，加入STOP語句，單步執(zhí)行、過程執(zhí)行、運行到光標處、跳躍執(zhí)行的調(diào)試程序