【正文】 Command1_Click() = Int(10000 / jiepai) = True = False = TrueEnd SubPrivate Sub Command2_Click() = False = True = FalseEnd SubPrivate Sub Form_Load() = True = Falsejiepai = End SubPrivate Sub HScroll1_Change()jiepai = End SubPrivate Sub Timer1_Timer()If = vbRed Then = vbBlackElseIf = vbBlack Then = vbRedEnd IfEnd Sub3．使用選擇排序?qū)?shù)組進(jìn)行升序和降序排序，程序界面如圖63所示。圖63 “數(shù)組排序”運(yùn)行界面添加代碼如下：Dim a()Dim i As IntegerPrivate Sub Command1_Click()Dim numnum = Int(Val())i = i + 1ReDim Preserve a(i)a(i) = num = amp。 a(i) amp。 = End SubSub arrsort(ByVal n As Integer, ByRef arr(), ByVal f As Boolean)Dim j, k, t, pos As IntegerFor j = 1 To UBound(arr) 1 pos = j For k = j + 1 To UBound(arr) If f = True Then If arr(j) arr(k) Then pos = k Else If arr(j) arr(k) Then pos = k End If Next t = arr(j): arr(j) = arr(pos): arr(pos) = tNextEnd SubPrivate Sub Command2_Click()Dim j As IntegerCall arrsort(i, a, True)For j = 1 To i = amp。 a(j) amp。 NextEnd SubPrivate Sub Command3_Click()Dim j As IntegerCall arrsort(i, a, False)For j = 1 To i = amp。 a(j) amp。 NextEnd Sub4．寫兩個(gè)函數(shù)，分別求兩個(gè)數(shù)的最大公約數(shù)和最小公倍數(shù)，程序運(yùn)行界面如圖64。圖64 “最大公約數(shù)和最小公倍數(shù)”運(yùn)行界面添加代碼如下：Private Sub Command1_Click()Dim n1, n2 As Integern1 = Int(Val())n2 = Int(Val()) = maxgongyue(n1, n2) = n1 * n2 / maxgongyue(n1, n2)End SubFunction maxgongyue(ByVal num1 As Integer, ByVal num2 As Integer) As IntegerDim gys, t As IntegerIf num1 num2 Then t = num1: num1 = num2: num2 = tgys = num1 Mod num2Do While gys 0 num1 = num2 num2 = gys gys = num1 Mod num2Loopmaxgongyue = num2End Function【實(shí)驗(yàn)報(bào)告要求】1. 提前預(yù)習(xí)實(shí)驗(yàn)相關(guān)資料，充分做好實(shí)驗(yàn)準(zhǔn)備工作。2. 如實(shí)記錄實(shí)驗(yàn)中的數(shù)據(jù)。3. 實(shí)事求是地回答相關(guān)問(wèn)題，嚴(yán)禁抄襲。得 分_____________評(píng)閱日期_____________教師簽名_____________實(shí)驗(yàn)七 界面設(shè)計(jì)選課班號(hào)： 序號(hào)： 姓名： 實(shí)驗(yàn)日期： 【實(shí)驗(yàn)?zāi)康摹?．掌握多窗體程序設(shè)計(jì)的一般步驟和方法。2．掌握下拉式菜單的設(shè)計(jì)方法。 3．掌握菜單事件過(guò)程的編寫方法。4．了解對(duì)話框的分類及其特點(diǎn)。5．掌握用通用對(duì)話框控件設(shè)計(jì)通用對(duì)話框的方法。6．了解ActiveX控件和可插入對(duì)象的一般操作方法。7．了解常用ActiveX控件的編程方法?！緦?shí)驗(yàn)內(nèi)容】1．編程設(shè)計(jì)一個(gè)密碼登陸程序，要求有三個(gè)窗體，在第一個(gè)窗體輸入用戶名和密碼，如果密碼正確，彈出第二個(gè)窗體，顯示“歡迎使用本系統(tǒng)”字樣，本窗體下有一個(gè)游戲菜單項(xiàng)，可以玩游戲；如果密碼不正確，彈出第三個(gè)窗體，顯示“對(duì)不起，你不能使用該系統(tǒng)！”字樣。界面如圖71所示。Form1中添加代碼如下：Private Sub Command1_Click()Dim user, pass As Stringuser = Trim()pass = Trim()If user = zhangsan And pass = 123456 Then Else End IfUnload MeEnd SubPrivate Sub Command2_Click()Unload MeEnd SubForm2中添加代碼如下：Private Sub exit_Click()Unload MeEnd SubPrivate Sub kongdang_Click()Shell C:\WINDOWS\system32\, 1End SubPrivate Sub saolei_Click()Shell C:\WINDOWS\system32\, 1End Sub圖71 “密碼登陸系統(tǒng)”運(yùn)行界面2．設(shè)計(jì)應(yīng)用程序，運(yùn)行效果如圖72所示。要求：當(dāng)單擊“打開”按鈕時(shí)，彈出“打開”對(duì)話框，選擇圖像文件，并將其顯示在圖像框控件中；單擊“字體”按鈕時(shí)，彈出“字體”對(duì)話框，選擇需要的字體、字形、字號(hào)后，在文本框控件中以指定的字體將文字顯示出來(lái)；單擊“顏色”按鈕時(shí)，彈出“顏色”對(duì)話框，可選擇需要的字體顏色。圖72 題2運(yùn)行界面添加代碼如下：Private Sub Command1_Click() = (*.bmp)|*.bmp|(*.jpg)|*.jpg = 2 = LoadPicture()End SubPrivate Sub Command2_Click() = = = = End SubPrivate Sub Command3_Click() = End SubPrivate Sub Command4_Click()Unload MeEnd Sub3．用ImageList設(shè)置了幾張圖片，程序啟動(dòng)時(shí)，自動(dòng)讀取程序中每一張圖片的Index屬性，填入窗體的ListBox中，從ListBox中選擇任何一張圖片，該圖像就會(huì)顯示在窗體上。運(yùn)行界面如圖73，圖74所示。圖74 題3運(yùn)行界面圖73 題3窗體界面添加代碼如下：Private Sub Form_Load()Dim i As IntegerFor i = 0 To 1 i + 1NextEnd SubPrivate Sub List1_Click()Set = ( + 1).PictureEnd Sub【實(shí)驗(yàn)報(bào)告要求】1. 提前預(yù)習(xí)實(shí)驗(yàn)相關(guān)資料，充分做好實(shí)驗(yàn)準(zhǔn)備工作。2. 如實(shí)記錄實(shí)驗(yàn)中的數(shù)據(jù)。3. 實(shí)事求是地回答相關(guān)問(wèn)題，嚴(yán)禁抄襲。得 分_____________評(píng)閱日期_____________教師簽名_____________實(shí)驗(yàn)八 綜合程序設(shè)計(jì)選課班號(hào)： 序號(hào)： 姓名： 實(shí)驗(yàn)日期： 【實(shí)驗(yàn)?zāi)康摹烤C合運(yùn)用VB語(yǔ)言的語(yǔ)法、算法以及各種控件，編寫較為復(fù)雜的VB程序，能夠?qū)崿F(xiàn)一些簡(jiǎn)單的工程應(yīng)用?！緦?shí)驗(yàn)內(nèi)容】1． 設(shè)計(jì)一個(gè)記事本，要求具有文件、編輯、視圖和格式四項(xiàng)菜單，各菜單內(nèi)容如下所示。文件：新建、打開、關(guān)閉、保存、另存為、退出等。編輯：剪切、復(fù)制、粘貼等。視圖：工具欄和狀態(tài)欄等。格式：字體和顏色等。2．設(shè)計(jì)一個(gè)計(jì)算器，能實(shí)現(xiàn)加、減、乘、除和函數(shù)計(jì)算，要求能進(jìn)行連續(xù)運(yùn)算，其風(fēng)格與Windows系統(tǒng)自帶的計(jì)算器類似。 選做：設(shè)計(jì)一個(gè)簡(jiǎn)易學(xué)生成績(jī)系統(tǒng)，數(shù)據(jù)庫(kù)中包含三張表，一張基本情況表，字段內(nèi)容如表81所示；一張課程表，字段內(nèi)容如表82所示；一張成績(jī)表，字段內(nèi)容如表83所示。要求實(shí)現(xiàn)學(xué)生信息的顯示、添加、刪除和查詢等功能。表81 基本情況表字段名字段類型寬度學(xué)號(hào)文本10姓名文本10性別文本2系別整數(shù)表82 課程表字段名字段類型寬度課程號(hào)文本10課程名文本20學(xué)分整數(shù)表83 成績(jī)表字段名字段類型寬度學(xué)號(hào)文本10課程號(hào)文本10成績(jī)整數(shù)【實(shí)驗(yàn)報(bào)告要求】1. 提前預(yù)習(xí)實(shí)驗(yàn)相關(guān)資料，充分做好實(shí)驗(yàn)準(zhǔn)備工作。2. 如實(shí)記錄實(shí)驗(yàn)中的數(shù)據(jù)。3. 實(shí)事求是地回答相關(guān)問(wèn)題，嚴(yán)禁抄襲。得 分_____________評(píng)閱日期_____________教師簽名_____________