vb實(shí)驗(yàn)E數(shù)組和自定義類型

1、試驗(yàn) E 數(shù)組和自定義類型一、實(shí)驗(yàn)?zāi)康?. 掌握數(shù)組的聲明、數(shù)組元素的引用。2. 掌握固定長度數(shù)組和動(dòng)態(tài)數(shù)組的使用差別。3. 掌握數(shù)組常用的操作和常用算法。4. 掌握列表框和組合框的使用。5. 掌握自定義類型及數(shù)組的使用。二、實(shí)驗(yàn)內(nèi)容1. 隨機(jī)產(chǎn)生 30100（包括（ 30、 100）的 10 個(gè)正整數(shù)，求最大值、最小值、平均值，并顯示整個(gè)數(shù)組的值和結(jié)果。2. 已知 6 個(gè)學(xué)生的成績，通過數(shù)組賦初值的方法，利用String 函數(shù)，以每5 分為一個(gè) “”顯示，并顯示學(xué)生的成績。3. 隨機(jī)產(chǎn)生 20 個(gè)學(xué)生的成績，統(tǒng)計(jì)各分?jǐn)?shù)段人數(shù)。即059、6069、7079、8089、90100，并顯示結(jié)果。產(chǎn)

2、生的數(shù)據(jù)在Picture1顯示，統(tǒng)計(jì)結(jié)果在Picture2顯示。4. 隨機(jī)產(chǎn)生10 個(gè) 2 位數(shù)，按從大到小遞減的順序排列，并顯示排序結(jié)果。5參照教材例5.3，在通用聲明段聲明兩個(gè)數(shù)組，利用隨機(jī)函數(shù)形成如下兩個(gè)數(shù)組：A=， B=要求：以下三角形式顯示A 數(shù)組、上三角形式顯示B 數(shù)組。求 A 數(shù)組主對角線元素之和和B 數(shù)組副對角線元素之和。6. 輸入整數(shù) n，顯示出具有 n 行的楊輝三角形。圖 E.5 顯示 n=8 的效果。7. 設(shè)計(jì)一個(gè)選課的運(yùn)行界面如圖 E.6 所示。它包含 2 個(gè)列表框，左邊為已開設(shè)的課程名稱，通過 Form_Load 事件加入，并按拼音字母排序；當(dāng)單擊某課程名稱后，將該課

3、程加入到右邊列表框，并在左邊列表框中刪除該課程。當(dāng)右邊課程數(shù)已滿5門時(shí)，不允許再加入。8. 窗體上建立一個(gè)簡單組合框，在組合框的文本框輸入數(shù)字字符，按回車鍵后加入到組合框的列表框內(nèi)，如圖E. 8 所示；單擊 “交換 ”按鈕，將列表框中最小值項(xiàng)目和第0 個(gè)項(xiàng)目交換；最大值項(xiàng)目與最后項(xiàng)目交換。9. 提供在窗體上顯示的以漢字開頭的字體名稱，并顯示該名稱所對應(yīng)的字體樣式。10. 自定義類型數(shù)組的應(yīng)用。要求：自定義一個(gè)職工數(shù)據(jù)類型，包含職工號、姓名、工資三項(xiàng)內(nèi)容。在通用聲明段聲明一個(gè)職工類型的數(shù)組，可存放5 個(gè)職工的數(shù)據(jù)。窗體中設(shè)計(jì) 3 個(gè)標(biāo)簽、 3 個(gè)文本框、 2 個(gè)命令按鈕和 1 個(gè)圖形框，文本框中

4、分別輸入職工號、姓名、工資；當(dāng)單擊 “新增 ”按鈕時(shí)，將文本框輸入的內(nèi)容添加到數(shù)組的當(dāng)前元素中；當(dāng)單擊 “排序 ”按鈕時(shí)，將輸入的內(nèi)容按工資遞減的順序排列，并在圖形框顯示。程序運(yùn)行界面如圖 E.11 所示。習(xí)題五1、 在 VB6.0 中，數(shù)組的下界默認(rèn)為 0，用什么語句可以重新定義數(shù)組的默認(rèn)下界？答：指定數(shù)組的默認(rèn)下界Option Base 12、 要分配存放 12 個(gè)元素的整型數(shù)組，下列數(shù)組聲明（下界若無，按默認(rèn)規(guī)定）哪些符合要求？（ 1） n=12Dim a(1 To n As Integer答： Dim 語句中的下標(biāo)只能是常量，不能是變量。（ 2） Dim a%(n=11ReDim a(

5、n 答：正確（3） Dim a%2,3 答： VB 中數(shù)組下標(biāo)用圓括號，應(yīng)為（）（4） Dim a(1,1,2 As Integer 答：正確（ 5） Dim a%(10ReDim a(1 To 12 答：正確（ 6） Dim a!(ReDim a(3,2 As Integer 答： ReDim 語句可改變維數(shù)但不可以改變類型（ 7） Dim a%(2,3 答：正確（8） Dim a(1 to3 1 to 4 As Integer答：缺少逗號Dim a(1 to 3,1 to 4 As Integer3. 程序運(yùn)行時(shí)顯示 “下標(biāo)越界 ”可以產(chǎn)生的錯(cuò)誤有哪幾種情況？答：引用的下標(biāo)超出上界或下界。

6、4. 已知下面的數(shù)組聲明，寫出它的數(shù)組名，數(shù)組類型，維數(shù)，各維的上下界，數(shù)組的大小，并按行的順序列出各元素。Dim a(-1 to 2,3, As Single答：數(shù)組名： a(-1 to 2,3 ,數(shù)組類型： Single，維數(shù)： 2 維，各維的上下界：-1 to 2, 0 to 3 或1 to 3,組的大?。?16, 按行的順序列出各元素：（-1,0）（ -1,1）（ -1,2）（ 0,0）（ 0,1）（ 0,2）（ 1,0），（ 1,2）（ 2,0），（ 2,1）（ 2,2）5.利用隨機(jī)數(shù)生成兩個(gè)矩陣（數(shù)據(jù)不一定相同，前者3070 范圍，后者101135）。35 67 52 50 103

7、 115 125 10133 47 66 39 133 127 132 135A= 47 56 66 41 B= 111 103 134 11830 69 55 38 123 109 113 130要求：（1） 將兩個(gè)矩陣相加結(jié)果放入C 矩陣中。Dim A(1 To 4, 1 To 4 As Integer, B(1 To 4, 1 To 4 As IntegerDim C(1 To 4, 1 To 4 As IntegerPrivate Sub Command1_Click(Dim i As Integer, j As IntegerFor i = 1 To 4For j = 1 To 4R

8、andomizeA(i, j = Int(30 + Rnd * 41Me.Picture1.Print A(i, j;RandomizeB(i, j = Int(101 + Rnd * 35Me.Picture2.Print B(i, j;Next jMe.Picture1.PrintMe.Picture2.PrintNext iEnd SubPrivate Sub Command2_Click(Dim i As Integer, j As IntegerMe.Picture3.ClsFor i = 1 To 4For j = 1 To 4C(i, j = A(i, j + B(i, jMe.

9、Picture3.Print C(i, j;Next jMe.Picture3.PrintNext iEnd Sub（3） 將 A 矩陣轉(zhuǎn)置。For i = 1 To 4For j = 1 To 4C(i, j = A(j, iMe.Picture3.Print C(i, j;Next j（4） 統(tǒng)計(jì) C 矩陣中最大值和下標(biāo)。（5） 以下三級形式顯示A 矩陣、上三角形式顯示B 矩陣。（ 6） 將 A 矩陣第一行與第三行對應(yīng)元素交換位置，既第一行元素放到；第三行元素放到第一行。（ 7） 求 A 矩陣兩條對角線元素之和。（8） 將 A 矩陣按列的次序把元素放到一維數(shù)組D 中，顯示結(jié)果。6.聲明一個(gè)

10、一維字符類型數(shù)組，有20 個(gè)元素，每個(gè)元素最多放10 個(gè)字符，要求：（1）由隨機(jī)數(shù)形成小寫字母構(gòu)成的數(shù)組，每個(gè)元素的字符個(gè)數(shù)由隨機(jī)數(shù)產(chǎn)生，范圍110.（2）要求將生成的數(shù)組分4 行顯示，規(guī)定每個(gè)元素寬度為10。（ 3）顯示生成的字符數(shù)組中字符最多的元素。答：一維字符數(shù)組Dim a(1 To 20 As StringPrivate Sub Command1_Click( (1 隨機(jī)產(chǎn)生字符串Dim i As Integer, j As Integer, n As Integer, c As String * 1RandomizeFor i = 1 To 20a(i = 將第i 個(gè)元素清空n =

11、Int(Rnd * 10 + 1 產(chǎn)生1,10 的隨機(jī)數(shù)For j = 1 To n a(i中有n 個(gè)字符c = Chr(Int(Rnd * 26 + 97 隨機(jī)產(chǎn)生字母97 是字母a 的ASCII碼a(i = a(i + cNext jNext iEnd SubPrivate Sub Command2_Click( (2Dim i As IntegerFor i = 1 To 20輸出字符串Print Tab(i - 1 Mod 5 * 11; a(i;If i Mod 5 = 0 Then PrintNext iEnd SubPrivate Sub Command3_Click( (3 最

12、長的字符串Dim i As Integer, imax As Integerimax = 1For i = 2 To 20If Len(a(i Len(a(imax Thenimax = iEnd IfNext iPrint 最長的字符串：; a(imaxEnd Sub7.簡述列表框和組合框的異同處。答：列表框和組合框都是存放字符串的，但組合框可輸入內(nèi)容，而列表框可一下選擇多個(gè)項(xiàng)目。8.列表框或組合框中選定的項(xiàng)目、總項(xiàng)目數(shù)的屬性分別是什么？答：被選中的項(xiàng)目屬性是Text ，總項(xiàng)目數(shù)目的屬性是ListCount 。9.簡述自定義類型與自定義變量的區(qū)別。答：一個(gè)類型可以有N 個(gè)變量。自定義類型表示

13、如同Integer、 Single 等類型名；自定義變量根據(jù)該類型分配所需的內(nèi)存空間，存儲各種元素?cái)?shù)據(jù)。10.自定義一個(gè)職工類型，包含職工號、姓名、工資。聲明一個(gè)職工類型的動(dòng)態(tài)數(shù)組。輸入 n 個(gè)職工的數(shù)據(jù)；要求按工資遞減的順序排序，并顯示排序的結(jié)果，每個(gè)職工一行顯示三項(xiàng)信息。Private Type zgnum As Stringname As Stringgz As SingleEnd TypeDim a( As zgPrivate Sub Command1_Click(Dim n As Integern = Val(InputBox(輸入職工人數(shù)nReDim a(nFor i = 1 To na(i.num = InputBox(請輸入工號a( = InputBox(請輸入姓名a(i.gz = Val(InputBox(請輸入工資Next iFor i = 1 To nFor j = n To i + 1 Step -1If a(i.gz a(j.gz Thenb = a(i.