【文章內(nèi)容簡(jiǎn)介】 林非Checkbox1(0)CaptionCheckbox1(1)Caption匯編語言Checkbox1(2)Caption單片機(jī)原理Label1caption無Label2caption無設(shè)置屬性后的界面如圖8－2所示。3．編寫程序代碼 　Private Sub Check1_Click(index As Integer)Dim k As StringDim i As Integerk = For i = 0 To 2If Check1(i).Value = 1 Thenk = k amp。 Check1(i).Caption amp。 End IfNext ik = 你選擇了 amp。 k = kEnd SubPrivate Sub Option1_Click(index As Integer)Dim i As IntegerFor i = 0 To 2If Option1(index).Visible = True Then = 你選擇了 amp。 Option1(index).CaptionEnd IfNext iEnd Sub4．運(yùn)行程序分別單選框中的某一項(xiàng)和復(fù)選框中的某幾項(xiàng)，程序運(yùn)行效果如圖8－3所示。圖8－3 運(yùn)行結(jié)果實(shí)驗(yàn)九 組合框的應(yīng)用【實(shí)驗(yàn)?zāi)康摹?．掌握組合框的常用屬性。2．了解列表框和組合框的區(qū)別?！緦?shí)驗(yàn)內(nèi)容】運(yùn)用組合框?qū)崿F(xiàn)學(xué)校的添加與刪除功能?！緦?shí)驗(yàn)步驟與指導(dǎo)】1．設(shè)計(jì)界面在窗體上添加四個(gè)命令按鈕,一個(gè)標(biāo)簽,一個(gè)組合框和一個(gè)文本框。初始界面如圖9－1所示。 圖9－1 初始界面 圖9－2 設(shè)置屬性后的界面2．設(shè)置屬性，如表9－1所示表9－1 屬性設(shè)置對(duì)象屬性屬性值Command1Caption刪除名稱CmdDelCommand2Caption添加名稱CmdAddCommand3Caption清除名稱CmdClearCommand4Caption關(guān)閉名稱CmdEndLabel1Caption學(xué)校Text1text無名稱TxtInfor設(shè)置屬性后的界面如圖9－2所示。3．編寫程序代碼Private Sub CmdAdd_Click() = End SubPrivate Sub CmdClear_Click() End SubPrivate Sub CmdDel_Click() Dim IntIndex As Integer IntIndex = = Call Del(IntIndex)End SubPrivate Sub CmdEnd_Click() EndEnd SubPrivate Sub Form_Load()With CboMsg .AddItem 鹽城師范學(xué)院, 0 .AddItem 鹽城生物工程高等學(xué)校, 1 .AddItem 鹽城工學(xué)院, 2 .AddItem 鹽城師范學(xué)校, 3 .ListIndex = 0End WithEnd Sub4．運(yùn)行程序結(jié)果如圖9－3所示圖9－3 程序運(yùn)行結(jié)果實(shí)驗(yàn)十 圖像框的應(yīng)用【實(shí)驗(yàn)?zāi)康摹?．熟悉圖像框與圖片框的區(qū)別。2．掌握?qǐng)D像框的屬性與特點(diǎn)?！緦?shí)驗(yàn)內(nèi)容】將一個(gè)圖形文件放到圖像框中，改變圖像框的大小，觀察圖形是否隨之改變。【實(shí)驗(yàn)步驟與指導(dǎo)】1．設(shè)計(jì)界面在窗體上添加五個(gè)命令按鈕和一個(gè)圖像框。初始界面如圖10－1所示。 圖10－1 初始界面 圖10－2 設(shè)置屬性后的界面2．設(shè)置屬性，如表10－1所示表10－1 屬性設(shè)置對(duì)象屬性屬性值Command1Caption改變寬度Command2Caption改變高度Command3Caption改變高度和寬度Command4Caption恢復(fù)原始尺寸Command4Caption退出Image1pictureE:\vb\ Image1stretchtrue設(shè)置屬性后的界面如圖10－2所示。3．編寫程序代碼Private Sub Command1_Click() = / 2 = * 2End SubPrivate Sub Command2_Click() = / 2 = * 2End SubPrivate Sub Command3_Click() = / 2 = * 2 = * 2End SubPrivate Sub Command4_Click() = 2225 = 666 = 1515 = 1515End SubPrivate Sub Command5_Click()EndEnd Sub4．運(yùn)行程序分別單擊五個(gè)命令按鈕，程序運(yùn)行效果如圖10－3 ~ 10－6所示。 圖10－3 改變寬度后運(yùn)行結(jié)果 圖10－4 改變高度后運(yùn)行結(jié)果 圖10－5 改變高度和寬度后的運(yùn)行結(jié)果 圖10－6 恢復(fù)原始尺寸實(shí)驗(yàn)十一 滾動(dòng)條【實(shí)驗(yàn)?zāi)康摹?．掌握滾動(dòng)條的應(yīng)用。2．熟悉滾動(dòng)條的屬性?！緦?shí)驗(yàn)內(nèi)容】 設(shè)計(jì)一程序，當(dāng)拖動(dòng)或單擊水平和垂直滾動(dòng)條使窗體上的文本框?qū)㈦S之上下或者左右移動(dòng)?！緦?shí)驗(yàn)步驟與指導(dǎo)】1．設(shè)計(jì)界面在窗體上添加一個(gè)垂直滾動(dòng)條，一個(gè)水平滾動(dòng)條，一個(gè)文本框，一個(gè)命令按鈕。初始界面如圖11－1所示。圖11－1 初始界面2．設(shè)置屬性表11－1 屬性設(shè)置對(duì)象屬性屬性值Hscroll1max1200Hscroll1min100Hscroll1largechange300Vscroll1max800Vscroll1min50Vscroll1largechange300Text1textCommand1caption退出設(shè)置屬性后的界面如圖11－2所示。圖11－2 設(shè)置屬性后的界面3．編寫程序代碼Private Sub Command1_Click()EndEnd SubPrivate Sub HScroll1_Change() = 800 + End SubPrivate Sub VScroll1_Change() = 300 + End Sub4．運(yùn)行程序分別拖動(dòng)水平滾動(dòng)條或者垂直滾動(dòng)條，程序運(yùn)行效果如圖11－3所示。圖11－3 程序運(yùn)行效果實(shí)驗(yàn)十二 定時(shí)器【實(shí)驗(yàn)?zāi)康摹?．掌握定時(shí)器控鍵的用法。2．熟悉定時(shí)器控鍵的屬性?！緦?shí)驗(yàn)內(nèi)容】1．編寫一個(gè)程序利用計(jì)時(shí)器計(jì)時(shí)。2．制作一個(gè)日歷時(shí)鐘應(yīng)用程序?！緦?shí)驗(yàn)步驟與指導(dǎo)】1．設(shè)計(jì)界面在窗體上添加四個(gè)命令按鈕，一個(gè)標(biāo)簽，一個(gè)計(jì)時(shí)器控件。初始界面如圖12－1所示。圖12－1 初始界面2．設(shè)置屬性，如表11－1所示表12－1 屬性設(shè)置對(duì)象屬性屬性值Command1Caption開始計(jì)時(shí)Command2Caption停止Command3Caption重新開始Label1BorderStyle1Fixed SingleLabel1Caption0Timer1enabletrueTimer1interval400設(shè)置屬性后的界面如圖12－2所示圖12－2 設(shè)置屬性后的界面３． 編寫程序代碼Private Sub mand1_Click() = TrueEnd SubPrivate Sub Command2_Click() = FalseEnd SubPrivate Sub Command3_Click() = 0End SubPrivate Sub Command4_Click()EndEnd SubPrivate Sub Form_Load() = Format(Now, hh:mm:ss)End SubPrivate Sub Timer1_Timer()Dim count As Longcount = count = count + 1 = countEnd Sub4．運(yùn)行程序單擊“開始計(jì)時(shí)”命令按鈕，程序運(yùn)行效果如圖12－3所示。圖12－3 程序運(yùn)行效果實(shí)驗(yàn)十三 數(shù)組【實(shí)驗(yàn)?zāi)康摹?．了解一維數(shù)組的用法。2．學(xué)會(huì)聲明，使用一維數(shù)組。應(yīng)用數(shù)組解決有關(guān)數(shù)組常用算法問題。3．了解二維數(shù)組的用法。4．學(xué)會(huì)聲明，使用二維數(shù)組。應(yīng)用數(shù)組解決有關(guān)數(shù)組常用算法問題?！緦?shí)驗(yàn)內(nèi)容】1．將下列文字“鹽城生物工程高等學(xué)校計(jì)算機(jī)系”存放到數(shù)組中，并以倒序打印出來。要求把這14個(gè)字符存放到數(shù)組C(14)中，首先依此讀取，然后利用循環(huán)，設(shè)置步長(zhǎng)為－1初值為14，終值為1，實(shí)現(xiàn)倒序輸出。2．編寫程序，建立并輸出一個(gè)10*10的矩陣，該矩陣兩條對(duì)角線元素為1，其余元素為0。提示：由于矩陣由行，列組成，需要雙下標(biāo)才能確定一元素位置，所以，使用二維數(shù)組來表示矩陣。設(shè)行用n表示，列用m表示，則主對(duì)角線元素即為行與列相等的元素（即n=m）,而次對(duì)角線的下標(biāo)滿足：n=11m。【實(shí)驗(yàn)步驟與指導(dǎo)】1．實(shí)驗(yàn)內(nèi)容（1）設(shè)計(jì)界面（2）設(shè)置屬性。如圖13－1所示圖13－1 將字符倒序輸出（3）編寫程序代碼 Private Sub Command1_Click()Dim x As Integer, c(1 To 14) As Stringc(1) = 鹽: c(2) = 城: c(3) = 生: c(4) = 物 :c(5) = 工c(6) = 程: c(7) = 高: c(8) = 等: c(9) = 學(xué):c(10) = 校c(11) = 計(jì): c(12) = 算 :c(13) = 機(jī):c(14)= 系For x = 1 To 14 = + c(x) Next xFor x = 14 To 1 Step 1 = + c(x) Next xEnd Sub（4）運(yùn)行程序程序輸出界面如圖13－2所示。 圖13－2 將字符倒序輸出結(jié)果 圖13－3 界面設(shè)計(jì)2．實(shí)驗(yàn)內(nèi)容（1）建立用戶界面在窗體中使用圖片框控件Picture1，參見圖13－3所示，當(dāng)然也可用列表框控件來顯示矩陣的元素。（2）設(shè)置對(duì)象屬性（3）編寫事件代碼Private Sub Form_Activate()Dim z(10, 10) As IntegerFor n = 1 To 10 For m = 1 To 10