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

《青島科技大學(xué)VB實驗五.doc》由會員分享，可在線閱讀，更多相關(guān)《青島科技大學(xué)VB實驗五.doc（6頁珍藏版）》請在裝配圖網(wǎng)上搜索。

實驗五 數(shù)組應(yīng)用程序設(shè)計（3個學(xué)時） 一 、實驗?zāi)康? 1. 掌握數(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 Explicit Option Base 1 Private Sub Form_Click() Dim score(10) As Single, sum As Single Dim i As Integer For i = 1 To 10 score(i) = Val(InputBox("請輸入第" & i & "個學(xué)生的數(shù)學(xué)成績")) sum = sum + score(i) Next i Print "學(xué)生的數(shù)學(xué)成績是：" For i = 1 To 10 Print score(i), If i Mod 5 = 0 Then Print Next i Print Print "數(shù)學(xué)平均分是：" & sum / 10 Print "高于平均分的分?jǐn)?shù)：" For i = 1 To 10 If score(i) > sum / 10 Then Print score(i) Next i End Sub 2）將運行結(jié)果的界面截下來粘貼在下面： 3）調(diào)試過程記錄（錯誤情況及改正方法） 2. 設(shè)有一個66的方陣，其中的元素是隨機(jī)產(chǎn)生的10 - 99 之間的兩位整數(shù)。 分別求出主對角線和次對角線上元素之和，以及方陣中最小的元素的值和位置。 要求： 程序運行后，單擊“產(chǎn)生”按鈕時，輸出方陣。單擊“計算”按鈕時，輸出對角線元素之和，以及最小元素的值與位置。 1）代碼設(shè)計如下 Option Explicit Option Base 1 Dim a(6, 6), i%, j%, s%, sum% Private Sub Command1_Click() Cls Randomize For i = 1 To 6 For j = 1 To 6 s = Int(Rnd * (99 - 10 + 1) + 10) a(i, j) = s Print a(i, j); Next j Print Next i End Sub Private Sub Command2_Click() Dim min, p%, q% For i = 1 To 6 For j = 1 To 6 If i = j Then sum = sum + a(i, j) End If Next j Next i Print "主對角線的元素之和：" & sum For i = 1 To 6 For j = 1 To 6 If i + j = 7 Then sum = sum + a(i, j) End If Next j Next i Print "次對角線的元素之和：" & sum min = a(1, 1): p = 1: q = 1 For 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 & "位置為：" & "（" & p; "，"; q; "）" End Sub Private Sub Form_Load() Command1.Caption = "產(chǎn)生" Command2.Caption = "計算" End Sub 2）將運行結(jié)果的界面截下來粘貼在下面： 3）調(diào)試過程記錄（錯誤情況及改正方法） 3．隨機(jī)輸入N個數(shù)據(jù)存放在一個數(shù)組中，N由用戶指定。當(dāng)單擊“輸出” 按鈕時，將輸入的數(shù)據(jù)輸出到一個標(biāo)簽中，當(dāng)單擊“排序”按鈕時，將按由大到小的順序排序后顯示在另一個標(biāo)簽中。 1）代碼設(shè)計如下 Option Explicit Dim arr() As Integer, n As Integer Private Sub Command1_Click() Dim i As Integer, j As Integer n = Val(InputBox("請輸入數(shù)組元素個數(shù)", "元素個數(shù)輸入")) ReDim arr(n) As Integer Label1.Caption = "待排序數(shù)組元素為：" For i = 1 To n arr(i) = Val(InputBox("請輸入第" & i & "個數(shù)組元素的值", "輸入數(shù)組元素")) Label2.Caption = Label2.Caption & "" & arr(i) n Private Sub Command2_Click() Dim i As Integer, j As Integer, p As Integer, t As Integer, k As Integer For 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 = arr(i): arr(i) = arr(p): arr(p) = t End If Next i Print Label3.Caption = "數(shù)組排序后順序為：" For i = 1 To n Label4.Caption = Label4.Caption & "" & arr(i) Next i End Sub Private Sub Form_Load() Command1.Caption = "輸出" Command2.Caption = "排序" Label1.Caption = "" Label2.Caption = "" Label3.Caption = "" Label4.Caption = "" End Sub 2）將運行結(jié)果的界面截下來粘貼在下面 3）調(diào)試過程記錄（錯誤情況及改正方法） 4． 使用控件數(shù)組設(shè)計如圖所示簡易計算器，能夠?qū)崿F(xiàn)基本的四則運算。設(shè)計的初始界面如圖一所示，運行結(jié)果如圖二所示。（選作實驗） 圖一 圖二