11級(jí)-計(jì)算機(jī)科學(xué)與技術(shù)VB-實(shí)驗(yàn)指導(dǎo)書

可視化程序設(shè)計(jì)課程實(shí)驗(yàn)指導(dǎo)書撰寫人：***日期：2014年3月12日實(shí)驗(yàn)一一個(gè)簡(jiǎn)單VB應(yīng)用程序的創(chuàng)建和命令按鈕、標(biāo)簽及文本框的應(yīng)用日期：2月23日實(shí)驗(yàn)?zāi)康呐c要求：1.掌握VB應(yīng)用程序的創(chuàng)建步驟；2.了解VB應(yīng)用程序的組成；3.掌握命令按鈕、標(biāo)簽和文本框三個(gè)基本控件的屬性、事件和方法的使用。實(shí)驗(yàn)內(nèi)容：設(shè)計(jì)一程序，當(dāng)程序運(yùn)行后，在窗體中顯示"你好!請(qǐng)輸入姓名"，焦點(diǎn)定在其下的文本框中，如圖1-1所示界面。圖1-1當(dāng)用戶輸入姓名并單擊"確定"按鈕后，在窗體的正中間用黑體、三號(hào)、紅色顯示"XXX同學(xué),你好!祝你學(xué)好VB程序設(shè)計(jì)"，同時(shí)窗體上出現(xiàn)兩個(gè)命令按鈕"繼續(xù)"和"結(jié)束"，其中"XXX"是用戶輸入的姓名。例如：當(dāng)用戶輸入"王五"，單擊"確定"按鈕后，出現(xiàn)另如圖1-2所示界面，如果單擊"繼續(xù)"按鈕，則又回到初始運(yùn)行狀態(tài)；單擊"結(jié)束"按鈕即結(jié)束程序運(yùn)行.圖1-2實(shí)驗(yàn)器材：微機(jī)+windows操作系統(tǒng)+VB6.0實(shí)驗(yàn)步驟：（1）設(shè)計(jì)應(yīng)用程序的界面：在窗體上創(chuàng)建三個(gè)命令按鈕Command1、Command2和Command3、兩個(gè)標(biāo)簽Label1和Label2、一個(gè)文本框Text1。（2）設(shè)置對(duì)象的屬性對(duì)象名稱屬性名稱屬性值Form1Caption實(shí)驗(yàn)1-1Command1Caption確定

Command2Caption繼續(xù)Command3Caption結(jié)束Label1Caption你好！請(qǐng)輸入你的姓名Label2Caption空串Text1Text空串（3）編寫事件代碼：PrivateSubForm_Load()Command2.Visible=FalseCommand3.Visible=FalseLabel2.Visible=FalseEndSubPrivateSubCommand1_Click()Command1.Visible=FalseText1.Visible=FalseLabel1.Visible=FalseLabel2.Visible=TrueLabel2.AutoSize=TrueLabel2.FontName="黑體"Label2.ForeColor=vbRedLabel2.Caption=Text1.Text&"同學(xué)，你好！祝你學(xué)好VB程序設(shè)計(jì)"Command2.Visible=TrueCommand3.Visible=TrueEndSubPrivateSubCommand2_Click()Command2.Visible=FalseCommand3.Visible=FalseLabel1.Visible=TrueLabel2.Visible=FalseCommand1.Visible=TrueText1.Visible=TrueEndSubPrivateSubCommand3_Click()EndEndSub（4）程序的運(yùn)行及保存。實(shí)驗(yàn)結(jié)果：在文本框中輸入：王五單擊“確定”按鈕后，則顯示如下：實(shí)驗(yàn)小結(jié)：（要能回答如下問題）創(chuàng)建VB應(yīng)用程序的步驟是什么？窗體常用屬性、事件和方法有哪些？命令按鈕、標(biāo)簽和文本框控件的常用屬性、事件和方法有哪些？實(shí)驗(yàn)二VB順序結(jié)構(gòu)程序設(shè)計(jì)應(yīng)用日期：2月23日一、實(shí)驗(yàn)?zāi)康呐c要求：1. 了解VB順序結(jié)構(gòu)程序設(shè)計(jì)的特點(diǎn)；2. 掌握常用VB運(yùn)算符及表達(dá)式和相關(guān)內(nèi)部函數(shù)的使用。實(shí)驗(yàn)內(nèi)容：1、編寫程序，界面如圖2-1所示。使得單擊一次按鈕可以產(chǎn)生一個(gè)[60,90]之間的隨機(jī)數(shù)并顯示在標(biāo)簽Label1上，再求出該數(shù)的正弦值，將結(jié)果寫在標(biāo)簽Label2上。2、編寫一個(gè)華氏溫度F與攝氏溫度C之間轉(zhuǎn)換的應(yīng)用程序，界面如圖2-2所示。其中F與C之間的關(guān)系為：。實(shí)驗(yàn)器材：微機(jī)+windows操作系統(tǒng)+VB6.0實(shí)驗(yàn)步驟：實(shí)驗(yàn)1：（1）設(shè)計(jì)應(yīng)用程序的界面：在窗體上創(chuàng)建一個(gè)命令按鈕Command1、兩個(gè)標(biāo)簽Label1和Label2。（2）設(shè)置對(duì)象的屬性對(duì)象名稱屬性名稱屬性值Form1Caption隨機(jī)數(shù)的正弦值Command1Caption下一個(gè)隨機(jī)數(shù)Label1Caption

Label2Caption

（3）編寫事件代碼：PrivateSubCommand1_Click()

Dimx!,y!

Randomize

x=Rnd*31+60

y=Sin(x)

Label1.Caption="隨機(jī)數(shù)（60-90）："&Str(x)

Label2.Caption="正弦值

："&Str(y)EndSub（4）程序的運(yùn)行及保存。實(shí)驗(yàn)2：（1）設(shè)計(jì)應(yīng)用程序的界面：在窗體上創(chuàng)建兩個(gè)命令按鈕Command1和Command2、兩個(gè)標(biāo)簽Label1和Label2、兩個(gè)文本框Text1和Text2。（2）設(shè)置對(duì)象的屬性對(duì)象名稱屬性名稱屬性值Form1Caption溫度轉(zhuǎn)換Command1Caption>

Command2Caption<

Label1Caption華氏溫度Label2Caption攝氏溫度Text1Text

空串Text2Text

空串（3）編寫事件代碼：PrivateSubCommand1_Click()

Dimf!,c!

f=Val(Text1.Text)

c=(f-32)*5/9

Text2.Text=Str(c)EndSub

PrivateSubCommand2_Click()

Dimf!,c!

c=Val(Text2.Text)

f=9/5*c+32

Text1.Text=Str(f)EndSub（4）程序的運(yùn)行及保存。實(shí)驗(yàn)結(jié)果：已經(jīng)顯示在窗體上。實(shí)驗(yàn)小結(jié)：（要能回答如下問題）怎樣產(chǎn)生一個(gè)[60,90]之間的隨機(jī)數(shù)？怎樣求正弦值？怎樣防止兩次運(yùn)行程序的隨機(jī)數(shù)序列相同？實(shí)驗(yàn)三VB選擇結(jié)構(gòu)程序設(shè)計(jì)應(yīng)用日期：2月23日實(shí)驗(yàn)?zāi)康呐c要求：1.了解VB選擇結(jié)構(gòu)程序設(shè)計(jì)的特點(diǎn)；2．掌握If語(yǔ)句的格式及其使用；3．掌握SelectCase語(yǔ)句的格式及其使用。實(shí)驗(yàn)內(nèi)容：1、設(shè)計(jì)一個(gè)求解一元二次方程ax2+bx+c=0的根的程序,要求考慮實(shí)根、虛根情況。界面如下所示:2、設(shè)計(jì)"健康稱"程序，具體要求如下:(1)將兩個(gè)文本框的文字對(duì)齊方式均設(shè)置為右對(duì)齊，最多接收3個(gè)字符；(2)兩個(gè)文本框均不接收非數(shù)字字符；(3)單擊"健康狀況"按鈕后,根據(jù)計(jì)算公式將相應(yīng)提示信息通過標(biāo)簽顯示。計(jì)算公式為:標(biāo)準(zhǔn)體重=身高-105體重高于體重的1.1倍為偏胖，提示"偏胖,注意飲食";體重低于標(biāo)準(zhǔn)體重的90%為偏瘦,提示"偏瘦,增加營(yíng)養(yǎng)";其他為正常,提示"正常,繼續(xù)保持".實(shí)驗(yàn)器材：微機(jī)+windows操作系統(tǒng)+VB6.0實(shí)驗(yàn)步驟：實(shí)驗(yàn)1：（1）設(shè)計(jì)應(yīng)用程序的界面：在窗體上創(chuàng)建一個(gè)命令按鈕Command1、五個(gè)標(biāo)簽Label1、Label2、Label3、Label4和Label5、五個(gè)文本框Text1、Text2、Text3、Text4和Text5.（2）設(shè)置對(duì)象的屬性對(duì)象名稱屬性名稱屬性值Form1Caption一元二次方程Command1Caption求解Label1Caption

x2+Label2Caption

x+Label3Caption=0Label4Captionx1Label5Captionx2Text1Text空串Text2Text空串Text3Text空串Text4Text空串Text5Text空串（3）編寫事件代碼：PrivateSubCommand1_Click()Dima!,b!,c!,x1!,x2!,disc!a=Val(Trim(Text1.Text))b=Val(Trim(Text2.Text))c=Val(Trim(Text3.Text))disc=b*b-4*a*cIfdisc>=0Then'實(shí)根情況x1=(-b+Sqr(disc))/(2*a)x2=(-b-Sqr(disc))/(2*a)Text4.Text=Str$(x1)Text5.Text=Str$(x2)Else'虛根情況x1=-b/(2*a)x2=Sqr(Abs(disc))/(2*a)Text4.Text=Str$(x1)&"+"&Str$(x2)&"i"Text5.Text=Str$(x1)&"-"&Str$(x2)&"i"EndIfEndSub（4）程序的運(yùn)行及保存。實(shí)驗(yàn)2：（1）設(shè)計(jì)應(yīng)用程序的界面：在窗體上創(chuàng)建一個(gè)命令按鈕Command1、五個(gè)標(biāo)簽Label1、Label2、Label3、Label4和Label5、兩個(gè)文本框Text1和Text2。（2）設(shè)置對(duì)象的屬性對(duì)象名稱屬性名稱屬性值Form1Caption健康稱Form1BorderStyle3-FixedDialogCommand1Caption健康狀況Label1Caption身高：Label2Caption體重：Label3CaptioncmLabel4CaptionkgLabel5Caption空串Text1Text空串Text2Text空串（3）編寫事件代碼：PrivateSubCommand1_Click()DimbzhAsSinglebzh=Val(Text1.Text)-105IfVal(Text2.Text)>bzh*1.1ThenLabel5.Caption="偏胖，注意飲食"ElseIfVal(Text2.Text)<bzh*0.9ThenLabel5.Caption="偏瘦，增加營(yíng)養(yǎng)"ElseLabel5.Caption="正常，繼續(xù)保持"EndIfEndSub（4）程序的運(yùn)行及保存。實(shí)驗(yàn)結(jié)果：已經(jīng)顯示在窗體上。實(shí)驗(yàn)小結(jié)：（要能回答如下問題）If語(yǔ)句的格式是什么？SelectCase語(yǔ)句的格式是什么？將實(shí)驗(yàn)2改寫成SelectCase語(yǔ)句的格式。怎樣設(shè)置窗體的標(biāo)題欄上不顯示最小化和最大化按鈕？實(shí)驗(yàn)四VB循環(huán)結(jié)構(gòu)程序設(shè)計(jì)應(yīng)用日期：2月23日實(shí)驗(yàn)?zāi)康呐c要求：1.了解VB循環(huán)結(jié)構(gòu)程序設(shè)計(jì)的特點(diǎn)；2.掌握For…Next語(yǔ)句、Do…Loop語(yǔ)句和While…Wend語(yǔ)句的格式及其使用；3.學(xué)會(huì)使用InputBox函數(shù)和MsgBox函數(shù)進(jìn)行輸入和輸出。實(shí)驗(yàn)內(nèi)容：編程實(shí)現(xiàn)：在窗體上，打印由數(shù)字組成的如下圖所示的金子塔圖案。實(shí)驗(yàn)器材：微機(jī)+windows操作系統(tǒng)+VB6.0實(shí)驗(yàn)步驟：（1）設(shè)計(jì)應(yīng)用程序的界面：在窗體上創(chuàng)建一個(gè)命令按鈕Command1、一個(gè)標(biāo)簽Label1、一個(gè)文本框Text1.（2）設(shè)置對(duì)象的屬性對(duì)象名稱屬性名稱屬性值Form1Caption金字塔圖案Command1Caption確定Label1Caption輸入一個(gè)整數(shù)n(n大于0、小于10)Text1Text空串（3）編寫事件代碼：PrivateSubCommand1_Click()Dimi%,j%,n%Form1.Clsn=Val(Text1.Text)Ifn<=0Orn>=10ThenMsgBox"輸入錯(cuò)誤,請(qǐng)重新輸入",vbInformation,"提示信息"Text1=""Text1.SetFocusExitSubEndIfFori=1Ton'外循環(huán)控制打印行數(shù)Ifi<=n/2ThenPrintTab(10-i);'每行起始打印位置Forj=1To2*i-1'內(nèi)循環(huán)控制打印個(gè)數(shù)PrintTrim(Str(i));'打印內(nèi)容NextjPrintElsek=n-i+1PrintTab(10-k);Forj=1To2*k-1PrintTrim(Str(i));NextjPrintEndIfNextiEndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13Then'按回車鍵調(diào)用"判斷"命令按鈕CallCommand1_ClickExitSubEndIfSelectCaseChr(KeyAscii)Case"0"To"9",",",Chr(8)CaseElseKeyAscii=0EndSelectEndSub（4）程序的運(yùn)行及保存。實(shí)驗(yàn)結(jié)果：已經(jīng)顯示在窗體上。實(shí)驗(yàn)小結(jié)：（要能回答如下問題）怎樣在窗體上打印或輸出表達(dá)式的結(jié)果？怎樣改寫代碼用InputBox函數(shù)和MsgBox函數(shù)進(jìn)行輸入和輸出？怎樣禁止在文本框中只能輸入0到9之間的數(shù)字字符？實(shí)驗(yàn)五VB一維數(shù)組和二維數(shù)組的應(yīng)用日期：2月23日實(shí)驗(yàn)?zāi)康呐c要求：1.掌握一維數(shù)組和二維數(shù)組的定義格式和引用；2.掌握一維數(shù)組和二維數(shù)組的基本操作（輸入、輸出、求最大值、排序等）；3.學(xué)會(huì)使用一維數(shù)組或二維數(shù)組解決相關(guān)問題。實(shí)驗(yàn)內(nèi)容：編寫一個(gè)雙色球搖號(hào)程序要求：（1）隨機(jī)生成6個(gè)1到33之間的正整數(shù)和一個(gè)1到16之間的正整數(shù)（2）6個(gè)紅色球不能相同,且從小到大排好序.實(shí)驗(yàn)器材：微機(jī)+windows操作系統(tǒng)+VB6.0實(shí)驗(yàn)步驟：（1）設(shè)計(jì)應(yīng)用程序的界面：在窗體上創(chuàng)建一個(gè)命令按鈕Command1、兩個(gè)標(biāo)簽Label1和Label2、七個(gè)文本框Text1、Text2、Text3、Text4、Text5、Text6和Text7.（2）設(shè)置對(duì)象的屬性對(duì)象名稱屬性名稱屬性值Form1Caption雙色球搖號(hào)程序Command1Caption搖號(hào)Label1Caption紅色球：(1-33)Label1ForeColorvbredLabel2Caption藍(lán)色球：(1-16)Label2ForeColorvbblueText1Text空串Text2Text空串Text3Text空串Text4Text空串Text5Text空串Text6Text空串Text7Text空串（3）編寫事件代碼：PrivateSubCommand1_Click()Dima(5)AsInteger,xAsIntegerDimiAsInteger,jAsIntegerRandomize'生成6個(gè)不同的1到33之間的隨機(jī)整數(shù)存放于a數(shù)組中a(0)=Int(Rnd*33)+1Fori=1To5L1:x=Int(Rnd*33)+1Forj=0Toi-1Ifx=a(j)ThenGoToL1ExitForEndIfNextja(i)=xNextiFori=0To4'對(duì)a數(shù)組中6個(gè)元素進(jìn)行從小到大排序Forj=i+1To5Ifa(i)>a(j)Thent=a(i)a(i)=a(j)a(j)=tEndIfNextjNextiText1.Text=a(0)Text2.Text=a(1)Text3.Text=a(2)Text4.Text=a(3)Text5.Text=a(4)Text6.Text=a(5)Text7.Text=Int(Rnd*16)+1'生成一個(gè)1到16之間的隨機(jī)整數(shù)EndSub（4）程序的運(yùn)行及保存。實(shí)驗(yàn)結(jié)果：已經(jīng)顯示在窗體上。實(shí)驗(yàn)小結(jié)：（要能回答如下問題）1.怎樣隨機(jī)產(chǎn)生6個(gè)完全不相同的1到33之間的正整數(shù)？2.怎樣對(duì)數(shù)組中的6個(gè)數(shù)進(jìn)行從小到大排序？（選擇排序或冒泡排序）3.怎樣使用控件數(shù)組？將上述實(shí)驗(yàn)改寫成用控件數(shù)組來(lái)實(shí)現(xiàn)。實(shí)驗(yàn)六VB動(dòng)態(tài)數(shù)組的應(yīng)用日期：2月23日實(shí)驗(yàn)?zāi)康呐c要求：1.掌握動(dòng)態(tài)數(shù)組的定義格式和引用；2.掌握與數(shù)組操作相關(guān)的幾個(gè)函數(shù)的應(yīng)用；3.學(xué)會(huì)使用動(dòng)態(tài)數(shù)組設(shè)計(jì)相關(guān)應(yīng)用程序。實(shí)驗(yàn)內(nèi)容：輸入一系列英文單詞，按升序排列輸出。要求:（1）在文本框text1中每輸入一個(gè)英文單詞，按回車鍵后即把該單詞存放到數(shù)組中，并輸出在排序前的文本框text2中；（2）單擊“排序”命令按鈕，字符數(shù)組升序排序，并在排序后的文本框text3中輸出。（3）程序運(yùn)行后窗體界面如下所示:實(shí)驗(yàn)器材：微機(jī)+windows操作系統(tǒng)+VB6.0實(shí)驗(yàn)步驟：（1）設(shè)計(jì)應(yīng)用程序的界面：在窗體上創(chuàng)建一個(gè)命令按鈕Command1、三個(gè)標(biāo)簽Label1、Label2和Label3、三個(gè)文本框Text1、Text2和Text3。（2）設(shè)置對(duì)象的屬性對(duì)象名稱屬性名稱屬性值Form1Caption單詞排序Command1Caption排序Label1Caption輸入單詞：Label2Caption排序前：Label3Caption排序后：Text1Text空串Text2Text空串Text2MultiLineTrueText2ScrollBars2-VerticalText3Text空串Text3MultiLineTrueText3ScrollBars2-Vertical（3）編寫事件代碼：Dima()AsString,n%PrivateSubCommand1_Click()Fori=1Ton-1Forj=i+1TonIfa(i)>a(j)Thent=a(i)a(i)=a(j)a(j)=tEndIfNextjNextiFori=1TonText3.Text=Text3.Text&a(i)&vbCrLfNextiEndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13Thenn=n+1ReDimPreservea(n)'動(dòng)態(tài)存儲(chǔ)數(shù)組a增加1個(gè)元素，前n-1個(gè)元素值保持不變。a(n)=Text1.TextText2.Text=Text2.Text+Text1.Text&vbCrLfText1.Text=""EndIfEndSub（4）程序的運(yùn)行及保存。實(shí)驗(yàn)結(jié)果：已經(jīng)顯示在窗體上。實(shí)驗(yàn)小結(jié)：（要能回答如下問題）1.怎樣定義動(dòng)態(tài)數(shù)組？2.定義動(dòng)態(tài)數(shù)組時(shí)，Preserve的作用是什么？3.怎樣對(duì)各個(gè)字符串進(jìn)行排序？實(shí)驗(yàn)七VB過程與函數(shù)的應(yīng)用舉例日期：2月23日實(shí)驗(yàn)?zāi)康呐c要求：1.掌握Sub過程和函數(shù)過程的定義格式及調(diào)用；了解過程之間的參數(shù)傳遞（傳址和傳值）；3.掌握過程與變量的作用域。實(shí)驗(yàn)內(nèi)容：自定義一Sub過程：實(shí)現(xiàn)把一個(gè)給定數(shù)插入到有序數(shù)列中，插入后數(shù)列仍然有序。編程：針對(duì)窗體的單擊事件中編寫程序代碼，驗(yàn)證上述過程的正確性。實(shí)驗(yàn)器材：微機(jī)+windows操作系統(tǒng)+VB6.0實(shí)驗(yàn)步驟：（1）設(shè)計(jì)應(yīng)用程序的界面：新建一新工程即可，無(wú)需添加任何控件。（2）編程分析：設(shè)n個(gè)有序數(shù)（從小到大）存放在數(shù)組a(1)-a(n)中，要插入的數(shù)為x。首先，確定x插在數(shù)組中的位置p，假設(shè)要在一個(gè)具有n個(gè)升序排列元素的一維數(shù)組中插入一個(gè)新的元素k，算法如下：①?gòu)牡?個(gè)元素開始逐個(gè)與k比較，一旦發(fā)現(xiàn)第p個(gè)元素大于x，則確定插入的位置為p，如果所有元素均小于x，則確定插入的位置為n+1。②重新定義數(shù)組大小，從第n個(gè)元素到第p個(gè)元素逐一向后移動(dòng)一個(gè)位置。③將x賦值給第p個(gè)元素，完成插入操作。（3）編寫自定義過程和窗體的單擊事件代碼：（4）程序的運(yùn)行及保存。OptionBase1PrivateSubInstert(a(),xAsSingle)Dimp%,n%,i%n=UBound(a)ReDimPreservea(n+1)'讓數(shù)組長(zhǎng)度增加1，以便存放插入的數(shù)p=1DoWhilex>a(p)Andp<=n'確定x應(yīng)插入的位置p=p+1LoopFori=nTopStep-1a(i+1)=a(i)Nextia(p)=xEndSubPrivateSubForm_Click()DimiAsInteger,x()DimyAsSingle,kAsIntegerx=Array(1,4,8,10,20,30,40,46,50,55,60,64)Fori=LBound(x)ToUBound(x)'打印輸出插入前的數(shù)據(jù)Printx(i);NextiPrinty=Val(InputBox("輸入要插入的數(shù)"))CallInstert(x,y)'調(diào)用插入子過程實(shí)現(xiàn)插入操作Fori=LBound(x)ToUBound(x)'打印輸出插入后的數(shù)據(jù)Printx(i);NextiEndSub實(shí)驗(yàn)結(jié)果：原序列為：1,4,8,10,20,30,40,46,50,55,60,64插入為：7則輸出為：1,4,7,8,10,20,30,40,46,50,55,60,64實(shí)驗(yàn)小結(jié)：（要能回答如下問題）1.若n個(gè)有序數(shù)（從大到?。┐娣旁跀?shù)組中，如何改寫Insert()過程？2.如何改寫Insert()過程，使其既適合數(shù)組由小到大排序又適合由大到小排序的情況？3.如果調(diào)用時(shí)，數(shù)組x無(wú)序，則程序運(yùn)行后出現(xiàn)什么情況？實(shí)驗(yàn)八VB常用控件的應(yīng)用（一）日期：2月23日實(shí)驗(yàn)?zāi)康呐c要求：1.掌握單選按鈕、復(fù)選框、框架及組合框、列表框等控件的屬性、事件和方法的使用；2.學(xué)會(huì)使用各種常用控件設(shè)計(jì)相關(guān)VB實(shí)用應(yīng)用程序。實(shí)驗(yàn)內(nèi)容：設(shè)計(jì)一個(gè)個(gè)人資料輸入窗口，使用單選按鈕選擇“性別”，組合框選擇“民族”和“職業(yè)”，檢查框選擇“愛好”，當(dāng)單擊“確定”按鈕，列表框列出個(gè)人資料信息，程序運(yùn)行界面如下：實(shí)驗(yàn)器材：微機(jī)+windows操作系統(tǒng)+VB6.0實(shí)驗(yàn)步驟：（1）設(shè)計(jì)應(yīng)用程序的界面：在窗體上創(chuàng)建三個(gè)命令按鈕Command1、Command2和Command3、五個(gè)標(biāo)簽Label1、Label2、Label3、Label4和Label5、兩個(gè)文本框Text1和Text2、兩個(gè)組合框Combo1和Combo2、一個(gè)列表框List1、兩個(gè)單選按鈕Option1和Option2、兩個(gè)框架Frame1和Frame2、四個(gè)檢查框Check1、Check2、Check3和Check4。（2）設(shè)置對(duì)象的屬性對(duì)象名稱屬性名稱屬性值Form1Caption個(gè)人資料Command1Caption確定Command2Caption重選Command2Caption上交Label1Caption姓名：Label2Caption民族：Label3Caption個(gè)人資料：Label4Caption年齡：Label5Caption職業(yè)：Text1Text空串Text2Text空串Combo1Text漢族Combo2Text學(xué)生List1List空串Option1Caption男Option2Caption女Frame1Caption性別Frame2Caption愛好Check1Caption上網(wǎng)Check2Caption籃球Check3Caption音樂Check4Caption交友（3）編寫事件代碼：PrivateSubCommand1_Click()List1.AddItemText1IfOption1ThenList1.AddItem"男"ElseList1.AddItem"女"EndIfList1.AddItemText2List1.AddItemCombo1List1.AddItemCombo2List1.AddItem"愛好："IfCheck1ThenList1.AddItem"上網(wǎng)"EndIfIfCheck2ThenList1.AddItem"籃球"EndIfIfCheck3ThenList1.AddItem"音樂"EndIfIfCheck4ThenList1.AddItem"交友"EndIfEndSubPrivateSubCommand2_Click()List1.ClearEndSubPrivateSubCommand3_Click()EndEndSub（4）程序的運(yùn)行及保存。實(shí)驗(yàn)結(jié)果：已經(jīng)顯示在窗體上。實(shí)驗(yàn)小結(jié)：（要能回答如下問題）1.單選按鈕和檢查框控件常用屬性和事件有哪些？2.組合框和列表框控件的常用屬性和事件、方法有哪些？它們有什么不同？3.框架控件的作用是什么？實(shí)驗(yàn)九VB常用控件的應(yīng)用（二）日期：2月23日實(shí)驗(yàn)?zāi)康呐c要求：1.掌握滾動(dòng)條、時(shí)鐘控件的屬性、事件和方法的使用；2.學(xué)會(huì)使用鍵盤和鼠標(biāo)事件的使用；3.學(xué)會(huì)使用各種控件設(shè)計(jì)相關(guān)VB實(shí)用應(yīng)用程序。實(shí)驗(yàn)內(nèi)容：設(shè)計(jì)一個(gè)字號(hào)設(shè)置程序，要求如下：在文本框中輸入1-100范圍內(nèi)的數(shù)值后，滾動(dòng)條的滾動(dòng)框會(huì)滾動(dòng)到相應(yīng)位置，同時(shí)標(biāo)簽的字號(hào)也會(huì)相應(yīng)改變；當(dāng)滾動(dòng)條的滾動(dòng)框的位置改變后，文本框中也會(huì)顯示出相應(yīng)的數(shù)值，標(biāo)簽的字號(hào)也會(huì)相應(yīng)改變。設(shè)計(jì)一個(gè)倒計(jì)時(shí)程序，要求如下：程序運(yùn)行后，通過單選按鈕選擇計(jì)時(shí)時(shí)間，單擊“計(jì)時(shí)開始”按鈕進(jìn)行倒計(jì)時(shí)；在標(biāo)簽中顯示計(jì)時(shí)情況，計(jì)時(shí)結(jié)束后在標(biāo)簽中顯示“時(shí)間到”；單選按鈕和“計(jì)時(shí)開始”按鈕在計(jì)時(shí)開始后被禁用，直到計(jì)時(shí)結(jié)束后才可以使用。實(shí)驗(yàn)器材：微機(jī)+windows操作系統(tǒng)+VB6.0實(shí)驗(yàn)步驟：實(shí)驗(yàn)1：（1）設(shè)計(jì)應(yīng)用程序的界面：在窗體上創(chuàng)建一個(gè)框架Frame1、一個(gè)標(biāo)簽Label1、一個(gè)水平滾動(dòng)條hsbFontSize、一個(gè)文本框Text1.（2）設(shè)置對(duì)象的屬性對(duì)象名稱屬性名稱屬性值Form1Caption字號(hào)設(shè)置Label1Caption學(xué)Frame1Caption示例文字hsbFontSizeNameText1Text空串（3）編寫事件代碼：PrivateSubForm_Load()'窗體初始化過程lblDisp.FontSize=10hsbFontSize.Min=1hsbFontSize.Max=100hsbFontSize.SmallChange=1hsbFontSize.LargeChange=5hsbFontSize.Value=10txtFontSize.Text="10"EndSubPrivateSubhsbFontSize_Change()'滾動(dòng)條的Change事件過程lblDisp.FontSize=hsbFontSize.ValuetxtFontSize.Text=Str(hsbFontSize.Value)EndSubPrivateSubtxtFontSize_Change()'文本框的Change事件過程'判斷數(shù)據(jù)有效性IfIsNumeric(txtFontSize.Text)AndVal(txtFontSize.Text)>=hsbFontSize.MinAndVal(txtFontSize.Text)<=hsbFontSize.MaxThen'lblDisp.FontSize=hsbFontSize.ValuehsbFontSize.Value=Val(txtFontSize.Text)ElsetxtFontSize.Text="無(wú)效數(shù)據(jù)"EndIfEndSub（4）程序的運(yùn)行及保存。實(shí)驗(yàn)2：（1）設(shè)計(jì)應(yīng)用程序的界面：在窗體上創(chuàng)建一個(gè)框架Frame1、三個(gè)單選按鈕Option1、Option2、Option3、一個(gè)標(biāo)簽Label1、一個(gè)命令按鈕Command1、一個(gè)時(shí)鐘控件Timer1.（2）設(shè)置對(duì)象的屬性對(duì)象名稱屬性名稱屬性值Form1Caption倒計(jì)時(shí)Label1Caption1分0秒Label1BorderStyle1Label1Alignment2Frame1Caption選擇時(shí)間Option1Caption1分鐘Option2Caption5分鐘Option3Caption10分鐘Timer1Interval1000Timer1EnabledFalse（3）編寫事件代碼：DimpretimeAsIntegerDimmmAsInteger,ssAsIntegerPrivateSubCommand1_Click()'開始倒計(jì)時(shí)Command1.Enabled=FalseFrame1.Enabled=FalseTimer1.Enabled=TrueEndSubPrivateSubForm_Load()Timer1.Enabled=FalseOption1(1).Value=Truepretime=300EndSubPrivateSubOption1_Click(IndexAsInteger)SelectCaseIndexCase0pretime=60Case1pretime=300Case2pretime=600EndSelectmm=pretime\60ss=pretimeMod60Label1.Caption=Str(mm)&"分"&Str(ss)&"秒"EndSubPrivateSubTimer1_Timer()mm=pretime\60'計(jì)算分ss=pretimeMod60'計(jì)算秒Label1.Caption=Str(mm)&"分"&Str(ss)&"秒"Ifmm=0Andss=0ThenTimer1.Enabled=FalseEndIfpretime=pretime-1EndSub（4）程序的運(yùn)行及保存。實(shí)驗(yàn)結(jié)果：實(shí)驗(yàn)1運(yùn)行結(jié)果為：實(shí)驗(yàn)2運(yùn)行結(jié)果為：實(shí)驗(yàn)小結(jié)：（要能回答如下問題）1.針對(duì)實(shí)驗(yàn)1，程序運(yùn)行時(shí)，哪些操作能觸發(fā)滾動(dòng)條的Change事件？2.針對(duì)實(shí)驗(yàn)1，如何使程序最終通過文本框的Change事件過程來(lái)改變標(biāo)簽字號(hào)？3.針對(duì)實(shí)驗(yàn)2，同樣是有規(guī)律地重復(fù)執(zhí)行特定的操作，循環(huán)結(jié)構(gòu)與Timer事件過程有什么區(qū)別？4.針對(duì)實(shí)驗(yàn)2，為什么要將pretime、mm、ss定義為窗體級(jí)變量？實(shí)驗(yàn)十VB繪圖實(shí)例應(yīng)用日期：2月23日實(shí)驗(yàn)?zāi)康呐c要求：1.掌握三個(gè)重要的圖形控件的使用；2.掌握VB繪圖的常用方法；3.學(xué)會(huì)使用VB繪圖的方法繪制簡(jiǎn)單的圖形。實(shí)驗(yàn)內(nèi)容：設(shè)置一個(gè)模擬行星圍繞太陽(yáng)運(yùn)動(dòng)的程序。編程分析：行星運(yùn)動(dòng)的橢圓方程為：x=x0+rx*cos(alfa),y=y0+ry*sin(alfa).其中，x0,y0為橢圓圓心坐標(biāo)，rx為水平半徑，ry為垂直半徑，alfa為圓心角。實(shí)驗(yàn)器材：微機(jī)+windows操作系統(tǒng)+VB6.0實(shí)驗(yàn)步驟：（1）設(shè)計(jì)應(yīng)用程序的界面：在窗體上創(chuàng)建兩個(gè)形狀控件Shape1和Shape2、一個(gè)時(shí)鐘控件Timer1.（2）設(shè)置對(duì)象的屬性對(duì)象名稱屬性名稱屬性值Form1Caption行星運(yùn)行模擬Shape1Shape3Shape2Shape3Timer1Interval200Timer1EnabledTrue（3）編寫事件代碼：DimrxAsSingle,ryAsSingle'定義窗體級(jí)變量DimalfaAsSinglePrivateSubForm_Load()'窗體最大化充滿屏幕，窗體的寬度、高度與屏幕同寬、同高Form1.Left=0Form1.Top=0Form1.Width=Screen.WidthForm1.Height=Screen.Height'讓Shape1位于窗體中央Shape1.Left=Form1.ScaleWidth/2-Shape1.Width/2Shape1.Top=Form1.ScaleHeight/2-Shape1.Height/2rx=Form1.ScaleWidth/2-Shape2.Width/2'計(jì)算橢圓軌道的水平半徑ry=Form1.ScaleHeight/2-Shape2.Height/2'計(jì)算橢圓軌道的垂直半徑'畫行星的運(yùn)行軌跡Circle(Form1.ScaleWidth/2,Form1.ScaleHeight/2),rx,,,,ry/rx'將shape2的起始位置定位在水平軸的0度位置上Shape2.Left=Form1.ScaleWidth/2+rx-Shape2.Width/2Shape2.Top=Form1.ScaleHeight/2-Shape2.Height/2EndSubPrivateSubTimer1_Timer()alfa=alfa+0.05x=Form1.ScaleWidth/2+rx*Cos(alfa)'橢圓的x坐標(biāo)y=Form1.ScaleHeight/2+ry*Sin(alfa)'橢圓的y坐標(biāo)Shape2.Left=x-Shape2.Width/2Shape2.Top=y-Shape2.Height/2EndSub（4）程序的運(yùn)行及保存。五、實(shí)驗(yàn)結(jié)果：程序運(yùn)行界面如下：六、實(shí)驗(yàn)小結(jié)：（要能回答如下問題）1.為什么要將rx、ry定義為模塊級(jí)變量？2.如果在窗體上添加“啟動(dòng)”和“停止”兩個(gè)命令按鈕，來(lái)控制小球運(yùn)動(dòng)，如何修改程序？3.小球運(yùn)動(dòng)軌跡與設(shè)計(jì)時(shí)小球的初始位置是否有關(guān)？實(shí)驗(yàn)十一一個(gè)簡(jiǎn)易的文本編輯器的開發(fā)日期：2月23日實(shí)驗(yàn)?zāi)康呐c要求：1.掌握常用對(duì)話框控件的使用；2.掌握菜單的設(shè)計(jì)與應(yīng)用；3.掌握狀態(tài)欄的設(shè)計(jì)與應(yīng)用；4.學(xué)會(huì)使用以上技術(shù)進(jìn)行簡(jiǎn)易的文本編輯器的設(shè)計(jì)。實(shí)驗(yàn)內(nèi)容：設(shè)計(jì)一個(gè)類似于Windows“寫字板”的簡(jiǎn)易的文本編輯器程序。設(shè)計(jì)界面如下：實(shí)驗(yàn)器材：微機(jī)+windows操作系統(tǒng)+VB6.0實(shí)驗(yàn)步驟：（1）界面設(shè)計(jì)（a）多文檔窗體主要控件：commonDialog、ImageList。菜單項(xiàng)屬性設(shè)置：標(biāo)準(zhǔn)工具欄設(shè)置：常用工具欄設(shè)置：狀態(tài)欄設(shè)置：（b）查找窗體（c）文檔子窗體（2）代碼清單如下：'多文檔窗口程序代碼:'建立通用過程，創(chuàng)建并打開一個(gè)文檔窗口PrivateSubShowDoc(strCapAsString)DimfrmDAsNewFrmDoc'創(chuàng)建一個(gè)文檔窗口frmdoc的實(shí)例frmDfrmD.Caption=strCapfrmD.ShowEndSub'建立通用過程，創(chuàng)建并打開一個(gè)新的文檔窗口PrivateSubShowNewDoc()DimfrmCapAsStringDocCount=DocCount+1frmCap="文檔"&str(DocCount)ShowDocfrmCapIfDocCount=1ThenMDIForm1.fmnuenableTrue'窗體總數(shù)為無(wú)時(shí)，調(diào)用MDIForm1中的fmnuenable過程EndSubPrivateSubMDIForm_Activate()DimYnAsBooleanYn=FalseIfClipboard.GetFormat(vbCFText)ThenYn=TrueIfClipboard.GetFormat(vbCFBitmap)ThenYn=TrueIfClipboard.GetFormat(vbCFDIB)ThenYn=TrueIfClipboard.GetFormat(vbCFRTF)ThenYn=TrueMDIForm1.Toolbar1.Buttons(6).Enabled=YnEndSubPrivateSubMnufont_Click()'實(shí)現(xiàn)設(shè)置字體功能CDg1.CancelError=True'通用對(duì)話框取消時(shí)出錯(cuò)OnErrorGoToErr'錯(cuò)誤處理當(dāng)有錯(cuò)時(shí)程序能繼續(xù)運(yùn)行下去DimiAsByteWithMDIForm1.ActiveForm'把當(dāng)前選定的文本格式賦給字體對(duì)話框CDg1.Flags=cdlCFBothOrcdlCFEffectsIf.DocBox.SelBold<>NullThenCDg1.FontBold=.DocBox.SelBoldIf.DocBox.SelItalic<>NullThenCDg1.FontItalic=.DocBox.SelItalicIf.DocBox.SelStrikeThru<>NullThenCDg1.FontStrikethru=.DocBox.SelStrikeThruIf.DocBox.SelUnderline<>NullThenCDg1.FontUnderline=.DocBox.SelUnderlineIf.DocBox.SelFontSize<>NullThenCDg1.FontSize=.DocBox.SelFontSizeIf.DocBox.SelFontName<>NullThenCDg1.FontName=.DocBox.SelFontNameIf.DocBox.SelColor<>NullThenCDg1.color=.DocBox.SelColorCDg1.ShowFont'打開字體對(duì)話框'把格式字體對(duì)話框里的字體格式賦給當(dāng)前選定的文本.DocBox.SelBold=CDg1.FontBold.DocBox.SelItalic=CDg1.FontItalic.DocBox.SelStrikeThru=CDg1.FontStrikethru.DocBox.SelUnderline=CDg1.FontUnderline.DocBox.SelFontName=CDg1.FontName.DocBox.SelFontSize=CDg1.FontSize.DocBox.SelColor=CDg1.colorEndWithErr:EndSubPrivateSubCombo1_Click()'實(shí)現(xiàn)字體設(shè)置功能'把組合框選中的字體賦給選定的文本MDIForm1.ActiveForm.DocBox.SelFontName=Combo1.TextEndSubPrivateSubCombo1_KeyPress(KeyAsciiAsInteger)'實(shí)現(xiàn)字體設(shè)置功能OnErrorGoToErr'當(dāng)字體不存在時(shí)，轉(zhuǎn)到Err語(yǔ)名IfKeyAscii=13ThenMDIForm1.ActiveForm.DocBox.SelFontName=Combo1.TextExitSubErr:MsgBox"對(duì)不起，此字號(hào)不存在",vbOKOnly,"非法操作！"Combo1.Text=""EndSubPrivateSubCombo2_Click()'實(shí)現(xiàn)字號(hào)設(shè)置功能'把組合框選中的字體大小賦給選定的文本MDIForm1.ActiveForm.DocBox.SelFontSize=Combo2.TextEndSubPrivateSubCombo2_KeyPress(KeyAsciiAsInteger)OnErrorGoToErr'當(dāng)字號(hào)不存在時(shí)，轉(zhuǎn)到Err語(yǔ)名IfKeyAscii=13ThenMDIForm1.ActiveForm.DocBox.SelFontSize=Combo2.TextExitSubErr:MsgBox"對(duì)不起，此字號(hào)不存在",vbOKOnly,"非法操作！"Combo2.Text=""EndSubPrivateSubMnucolor_Click()'設(shè)置顏色DimcolorAsLongCDg1.CancelError=True'通用對(duì)話框取消時(shí)出錯(cuò)OnErrorGoToErr'出錯(cuò)時(shí)跳轉(zhuǎn)到Err語(yǔ)句CDg1.ShowColor'打開顏色對(duì)話框color=CDg1.colorMDIForm1.ActiveForm.DocBox.SelColor=colorErr:EndSubPrivateSubMDIForm_Load()DimiAsInteger'將字體名賦值給“字體”列表框Fori=0ToScreen.FontCount-1Combo1.AddItemScreen.Fonts(i),iNextiDocCount=0ShowNewDocMDIForm1.Toolbar1.Buttons(4).Enabled=FalseMDIForm1.Toolbar1.Buttons(5).Enabled=FalseMDIForm1.Toolbar1.Buttons(6).Enabled=FalseEndSubPrivateSubMDIForm_Unload(CancelAsInteger)UnloadMeEndEndSubPrivateSubmnunew_Click()'新建一個(gè)文檔窗口ShowNewDocEndSubPrivateSubmnuopen_Click()'打開文件DimFNameAsStringCDg1.FileName="*.RTF"CDg1.Filter="RTF文件(*.RTF)|*.RTF|文本文件(*.txt)|*.txt|所有文件(*.*)|*.*"CDg1.CancelError=True'通用對(duì)話框取消時(shí)出錯(cuò)OnErrorGoToErr'出錯(cuò)時(shí)跳轉(zhuǎn)到Err語(yǔ)句CDg1.ShowOpen'打開撕開對(duì)話框FName=CDg1.FileNameShowNewDoc'新建一個(gè)窗體MDIForm1.ActiveForm.DocBox.LoadFile(FName)'打開文件到活動(dòng)窗體的文本框里MDIForm1.ActiveForm.Caption=FNameMDIForm1.ActiveForm.Boolmnusave=TrueMDIForm1.ActiveForm.Boolsave=TrueExitSubErr:ExitSubEndSub（4）程序的運(yùn)行及保存。實(shí)驗(yàn)結(jié)果：程序運(yùn)行界面如下：實(shí)驗(yàn)十二一個(gè)簡(jiǎn)易的學(xué)生成績(jī)管理系統(tǒng)的創(chuàng)建日期：2月23日實(shí)驗(yàn)?zāi)康呐c要求：1.掌握Data控件和ADOData控件的基本用法；了解在VisualBasic中使用SQL的基本方式；3.綜合運(yùn)用以前所學(xué)知識(shí)設(shè)計(jì)一個(gè)簡(jiǎn)易的學(xué)生成績(jī)管理系統(tǒng)。二、實(shí)驗(yàn)內(nèi)容：設(shè)計(jì)一個(gè)簡(jiǎn)易的學(xué)生成績(jī)管理系統(tǒng)。設(shè)計(jì)界面如下：實(shí)驗(yàn)器材：微機(jī)+windows操作系統(tǒng)+VB6.0實(shí)驗(yàn)步驟：1、數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)的開發(fā)應(yīng)該遵循軟件工程的開發(fā)步驟：分析、設(shè)計(jì)編碼和測(cè)試。開發(fā)的第一步是需求分析，一方面分析整個(gè)系統(tǒng)需要哪些數(shù)據(jù)，另一方面還要分析系統(tǒng)應(yīng)用具備哪些功能，這一步直接決定將來(lái)設(shè)計(jì)出的數(shù)據(jù)庫(kù)以及在此基礎(chǔ)上開發(fā)的應(yīng)用程序的適用性。它需要獲得學(xué)號(hào)、姓名、性別和相關(guān)課程的成績(jī)等數(shù)據(jù)，應(yīng)具備瀏覽、輸入、修改、刪除、查詢、統(tǒng)計(jì)等功能。2、數(shù)據(jù)庫(kù)如下：學(xué)生(學(xué)號(hào)、姓名、新別)課程(課程號(hào)、課程名、學(xué)時(shí)、學(xué)分)成績(jī)(學(xué)號(hào)、課程號(hào)、成績(jī))3、設(shè)計(jì)實(shí)現(xiàn)如下：（1）主窗體代碼：'成功登錄系統(tǒng)前禁用編輯命令和查詢命令PrivateSubMDIForm_Load()mnuEdit.Enabled=FalsemnuQuery.Enabled=FalseEndSub'打開編輯窗體PrivateSubmnuEdit_Click()frmEdit.ShowfrmEdit.WindowState=vbMaximizedEndSub'打開登錄窗體PrivateSubmnuLogin_Click()frmLogin.ShowfrmLogin.WindowState=vbMaximizedEndSub'退出系統(tǒng)PrivateSubmnuLogout_Click()EndEndSub'打開查詢窗體PrivateSubmnuQuery_Click()frmQuery.ShowfrmQuery.WindowState=vbMaximizedEndSub

（2）登錄窗體代碼：OptionExplicitConstUSERNAMEAsString="admin"'定義窗體級(jí)常量表示用戶名ConstPASSWORDAsString="welcome"'定義窗體級(jí)常量表示密碼PrivateSubcmdCancel_Click()Me.HideEndSubPrivateSubcmdOK_Click()'檢查正確的用戶名和密碼IftxtUserName=USERNAMEAndtxtPassword=PASSWORDThenMe.HideMDIfrmMain.mnuEdit.Enabled=TrueMDIfrmMain.mnuQuery.Enabled=TrueElseMsgBox"無(wú)效的密碼，請(qǐng)重試!",,"登錄"txtPassword.SetFocusSendKeys"{Home}+{End}"EndIfEndSub（3）編輯窗體代碼：'"添加"按鈕的單擊事件過程PrivateSubcmdAdd_Click()'根據(jù)當(dāng)前按鈕的標(biāo)題進(jìn)行不同的操作SelectCasecmdAdd.CaptionCase"添加"'向當(dāng)前選項(xiàng)卡所對(duì)應(yīng)表中添加記錄SelectCaseSSTab1.TabCase0datStudent.Recordset.AddNewCase1datCourse.Recordset.AddNewCase2datScore.Recordset.AddNewEndSelect'在添加操作完成前禁止進(jìn)行其他操作SSTab1.TabEnabled(0)=FalseSSTab1.TabEnabled(1)=FalseSSTab1.TabEnabled(2)=FalsecmdAdd.Caption="確定"cmdEdit.Enabled=FalsecmdDel.Enabled=FalsecmdFirst.Enabled=FalsecmdPrev.Enabled=FalsecmdNext.Enabled=FalsecmdLast.Enabled=FalseCase"確定"SelectCaseSSTab1.TabCase0datStudent.UpdateRecordCase1datCourse.UpdateRecordCase2datScore.UpdateRecordEndSelectSSTab1.TabEnabled(0)=TrueSSTab1.TabEnabled(1)=TrueSSTab1.TabEnabled(2)=TruecmdAdd.Caption="添加"cmdEdit.Enabled=TruecmdDel.Enabled=TruecmdFirst.Enabled=TruecmdPrev.Enabled=TruecmdNext.Enabled=TruecmdLast.Enabled=TrueEndSelectEndSub'"刪除"按鈕的單擊事件過程PrivateSubcmdDel_Click()DimiAsIntegeri=MsgBox("確定要?jiǎng)h除此記錄?",vbYesNo+vbExclamation+vbDefaultButton1,"編輯")Ifi=vbYesThen'刪除當(dāng)前選項(xiàng)卡所對(duì)應(yīng)表中的記錄SelectCaseSSTab1.TabCase0datStudent.Recordset.DeletedatStudent.RefreshCase1datCourse.Recordset.DeletedatCourse.RefreshCase2datScore.Recordset.DeletedatScore.RefreshEndSelectEndIfEndSub'"修改"按鈕的單擊事件過程PrivateSubcmdEdit_Click()'根據(jù)當(dāng)前按鈕的標(biāo)題進(jìn)行不同的操作SelectCasecmdEdit.CaptionCase"修改"'修改當(dāng)前選項(xiàng)卡所對(duì)應(yīng)表中的記錄SelectCaseSSTab1.TabCase0datStudent.Recordset.EditCase1datCourse.Recordset.EditCase2datScore.Recordset.EditEndSelect'在修改操作完成前禁止進(jìn)行其他操作SSTab1.TabEnabled(0)=FalseSSTab1.TabEnabled(1)=FalseSSTab1.TabEnabled(2)=FalsecmdEdit.Caption="確定"cmdAdd.Enabled=FalsecmdDel.Enabled=FalsecmdFirst.Enabled=FalsecmdPrev.Enabled=FalsecmdNext.Enabled=FalsecmdLast.Enabled=FalseCase"確定"SelectCaseSSTab1.TabCase0datStudent.UpdateRecordCase1datCourse.UpdateRecordCase2datScore.UpdateRecordEndSelectSSTab1.TabEnabled(0)=TrueSSTab1.TabEnabled(1)=TrueSSTab1.TabEnabled(2)=TruecmdEdit.Caption="修改"cmdAdd.Enabled=TruecmdDel.Enabled=TruecmdFirst.Enabled=TruecmdPrev.Enabled=TruecmdNext.Enabled=TruecmdLast.Enabled=TrueEndSelectEndSub'"首記錄"按鈕的單擊事件過程PrivateSubcmdFirst_Click()SelectCaseSSTab1.TabCase0datStudent.Recordset.MoveFirstCase1datCourse.Recordset.MoveFirstCase2datScore.Recordset.MoveFirstEndSelectcmdFirst.Enabled=FalsecmdPrev.Enabled=FalsecmdNext.Enabled=TruecmdLast.Enabled=TrueEndSub'"尾記錄"按鈕的單擊事件過程PrivateSubcmdLast_Click()SelectCaseSSTab1.TabCase0datStudent.Recordset.MoveLastCase1datCourse.Recordset.MoveLastCase2datScore.Recordset.MoveLastEndSelectcmdFirst.Enabled=TruecmdPrev.Enabled=TruecmdNext.Enabled=FalsecmdLast.Enabled=FalseEndSub'"下一條"按鈕的單擊事件過程PrivateSubcmdNext_Click()SelectCaseSSTab1.TabCase0datStudent.Recordset.MoveNextIfdatStudent.Recordset.EOFThendatStudent.Recordset.MoveLastcmdFirst.Enabled=TruecmdPrev.Enabled=TruecmdNext.Enabled=FalsecmdLast.Enabled=FalseEndIfCase1datCourse.Recordset.MoveNextIfdatCourse.Recordset.EOFThendatCourse.Recordset.MoveLastcmdFirst.Enabled=TruecmdPrev.Enabled=TruecmdNext.Enabled=FalsecmdLast.Enabled=FalseEndIfCase2datScore.Recordset.MoveNextIfdatScore.Recordset.EOFThendatScore.Recordset.MoveLastcmdFirst.Enabled=TruecmdPrev.Enabled=TruecmdNext.Enabled=False