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

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

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

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

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

5、n 答：正確（3） Dim a%2,3 答： VB 中數(shù)組下標用圓括號，應(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. 程序運行時顯示 “下標越界 ”可以產(chǎn)生的錯誤有哪幾種情況？答：引用的下標超出上界或下界。

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.利用隨機數(shù)生成兩個矩陣（數(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） 將兩個矩陣相加結(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)計 C 矩陣中最大值和下標。（5） 以下三級形式顯示A 矩陣、上三角形式顯示B 矩陣。（ 6） 將 A 矩陣第一行與第三行對應(yīng)元素交換位置，既第一行元素放到；第三行元素放到第一行。（ 7） 求 A 矩陣兩條對角線元素之和。（8） 將 A 矩陣按列的次序把元素放到一維數(shù)組D 中，顯示結(jié)果。6.聲明一個

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

11、Int(Rnd * 10 + 1 產(chǎn)生1,10 的隨機數(shù)For j = 1 To n a(i中有n 個字符c = Chr(Int(Rnd * 26 + 97 隨機產(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)容，而列表框可一下選擇多個項目。8.列表框或組合框中選定的項目、總項目數(shù)的屬性分別是什么？答：被選中的項目屬性是Text ，總項目數(shù)目的屬性是ListCount 。9.簡述自定義類型與自定義變量的區(qū)別。答：一個類型可以有N 個變量。自定義類型表示

13、如同Integer、 Single 等類型名；自定義變量根據(jù)該類型分配所需的內(nèi)存空間，存儲各種元素數(shù)據(jù)。10.自定義一個職工類型，包含職工號、姓名、工資。聲明一個職工類型的動態(tài)數(shù)組。輸入 n 個職工的數(shù)據(jù)；要求按工資遞減的順序排序，并顯示排序的結(jié)果，每個職工一行顯示三項信息。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.