青島科技大學(xué)VB實驗五

1、實驗五 數(shù)組應(yīng)用程序設(shè)計（3個學(xué)時）一 、實驗?zāi)康?. 掌握數(shù)組的聲明、數(shù)組元素的引用。2. 掌握靜態(tài)數(shù)組和動態(tài)數(shù)組的使用差別。3. 應(yīng)用數(shù)組解決與數(shù)組有關(guān)的常用算法問題。4. 學(xué)會使用控件數(shù)組設(shè)計程序。 二 、實驗內(nèi)容1. 輸入10個學(xué)生的成績，并將成績輸出到窗體上，每行5個。計算并顯示平均分?jǐn)?shù)，然后將高于平均分的分?jǐn)?shù)輸出到窗體上。1）代碼設(shè)計如下Option ExplicitOption Base 1Private Sub Form_Click()Dim score(10) As Single, sum As SingleDim i As IntegerFor i = 1 To 10 sc

2、ore(i) = Val(InputBox("請輸入第" & i & "個學(xué)生的數(shù)學(xué)成績") sum = sum + score(i)Next iPrint "學(xué)生的數(shù)學(xué)成績是："For i = 1 To 10 Print score(i), If i Mod 5 = 0 Then PrintNext iPrintPrint "數(shù)學(xué)平均分是：" & sum / 10Print "高于平均分的分?jǐn)?shù)："For i = 1 To 10 If score(i) > sum

3、/ 10 Then Print score(i)Next iEnd Sub2）將運(yùn)行結(jié)果的界面截下來粘貼在下面：3）調(diào)試過程記錄（錯誤情況及改正方法）2. 設(shè)有一個6×6的方陣，其中的元素是隨機(jī)產(chǎn)生的10 - 99 之間的兩位整數(shù)。 分別求出主對角線和次對角線上元素之和，以及方陣中最小的元素的值和位置。 要求：程序運(yùn)行后，單擊“產(chǎn)生”按鈕時，輸出方陣。單擊“計算”按鈕時，輸出對角線元素之和，以及最小元素的值與位置。1）代碼設(shè)計如下Option ExplicitOption Base 1Dim a(6, 6), i%, j%, s%, sum%Private Sub Command1_

4、Click()ClsRandomizeFor i = 1 To 6For j = 1 To 6 s = Int(Rnd * (99 - 10 + 1) + 10) a(i, j) = s Print a(i, j);Next jPrintNext iEnd SubPrivate Sub Command2_Click()Dim min, p%, q%For i = 1 To 6For j = 1 To 6 If i = j Then sum = sum + a(i, j) End IfNext jNext iPrint "主對角線的元素之和：" & sumFor i

5、= 1 To 6For j = 1 To 6 If i + j = 7 Then sum = sum + a(i, j) End IfNext jNext iPrint "次對角線的元素之和：" & summin = a(1, 1): p = 1: q = 1For i = 1 To 6 For j = 1 To 6 If a(i, j) < min Then min = a(i, j): p = i: q = j Next j Next i Print "最小元素的值與位置：" & min & "位置為：&quo

6、t; & "（" & p; "，" q; "）"End SubPrivate Sub Form_Load()Command1.Caption = "產(chǎn)生"Command2.Caption = "計算"End Sub2）將運(yùn)行結(jié)果的界面截下來粘貼在下面：3）調(diào)試過程記錄（錯誤情況及改正方法）3隨機(jī)輸入N個數(shù)據(jù)存放在一個數(shù)組中，N由用戶指定。當(dāng)單擊“輸出” 按鈕時，將輸入的數(shù)據(jù)輸出到一個標(biāo)簽中，當(dāng)單擊“排序”按鈕時，將按由大到小的順序排序后顯示在另一個標(biāo)簽中。 1）代碼設(shè)計如下 Op

7、tion ExplicitDim arr() As Integer, n As IntegerPrivate Sub Command1_Click()Dim i As Integer, j As Integern = Val(InputBox("請輸入數(shù)組元素個數(shù)", "元素個數(shù)輸入")ReDim arr(n) As IntegerLabel1.Caption = "待排序數(shù)組元素為："For i = 1 To narr(i) = Val(InputBox("請輸入第" & i & "個數(shù)

8、組元素的值", "輸入數(shù)組元素")Label2.Caption = Label2.Caption & "" & arr(i)nPrivate Sub Command2_Click()Dim i As Integer, j As Integer, p As Integer, t As Integer, k As IntegerFor i = 1 To n p = i For j = i + 1 To n If arr(j) > arr(p) Then p = j Next j If p <> i Then t =

9、 arr(i): arr(i) = arr(p): arr(p) = t End IfNext iPrintLabel3.Caption = "數(shù)組排序后順序為："For i = 1 To nLabel4.Caption = Label4.Caption & "" & arr(i)Next iEnd SubPrivate Sub Form_Load()Command1.Caption = "輸出"Command2.Caption = "排序"Label1.Caption = ""Label2.Caption = ""Label3.Caption = "&