【正文】 mp。 mark(i) Next i Print 平均分 =。 作業(yè)和實(shí)驗(yàn)題目 作業(yè) ： ； 。通過隨機(jī)數(shù)產(chǎn)生 [40 ,100]的成績 aver = aver + mark(i) Next i ReDim Preserve mark(1 To n + 2) 39。 For i = 0 To UBound(a) b(i) = a(i) Next i 注意：賦值號(hào)左邊的數(shù)組只能聲明為Variant的可調(diào)數(shù)組或簡單變量。 – 再在過程中用 ReDim語句定義 帶下標(biāo) 的數(shù)組。 數(shù)組聲明語句格式 1 數(shù)組聲明語句 格式 2 Dim 數(shù)組名 ([下界 To] 上界 [,[下界 To]上界 ]) As 類型 說明：此格式可以自由定義下標(biāo)的下界和上界 。 N ( 1)N ( 2)N ( 3)N ( 4)N ( 5)N ( 6)N ( 7)N ( 8)例如：聲明一維整型數(shù)組 N(8) Dim N%(8) N(8)在內(nèi)存中排列示意圖： 例：從鍵盤隨意輸入 8個(gè)數(shù)，將這 8個(gè)數(shù)從大到小排列輸出。Visual Basic 程序設(shè)計(jì) 目 錄 ? 前言 ? 第 1講 ? 第 2講 ? 第 3講 ? 第 4講 ? 第 5講 ? 第 6講 ? 第 7講 ? 第 8講 ? 第 9講 ? 第 10講 ? 第 11講 ? 第 12講 ? 第 13講 ? 第 14講 ? 第 15講 ? 第 16講 回顧上一講學(xué)習(xí)的內(nèi)容 ? 判斷條件執(zhí)行循環(huán) – While?? wend – Do While?? Loop – Do Until?? Loop – Do ?? Loop While – Do ?? Loop Until 上機(jī)實(shí)驗(yàn)中的問題 ? 求累加和 SUM=SUM+K （ sum的初始值一定是 0） ? 求連乘 SUM=SUM*K （ sum的初始值一定是 1） ? 程序填空題： 特別要注意選擇結(jié)構(gòu)和循環(huán)結(jié)構(gòu)的完整性。 二維數(shù)組的邏輯結(jié)構(gòu) 二維數(shù)組的邏輯結(jié)構(gòu)： 可以看成一個(gè)二維表格或看成一個(gè)矩陣。 例： dim a(2 to 10) as integer dim b(10 to 100) as long dim c(1 to 10 , 11 to 20) as single ? 數(shù)組下界上界的測試函數(shù) LBound(數(shù)組 [,維 ])、 UBound(數(shù)組 [,維 ]) ? 默認(rèn)數(shù)組 – 數(shù)據(jù)類型為 Variant的數(shù)組稱默認(rèn)數(shù)組。 ReDim語句 格式如下： ReDim [Preserve] 數(shù)組名 (下標(biāo) [，下標(biāo) 2? ]) [As 類型 ] 例： Sub Form_Load( ) Dim sArray( ) As Single ? ReDim sArray(4， 8) ? End Sub 動(dòng)態(tài)數(shù)組聲明的幾點(diǎn)說明： (1)Dim、 Private、 Public變量聲明語句是說明性語句，可出現(xiàn)在過程內(nèi)或通用聲明段； ReDim語句是執(zhí)行語句，只