vb實驗報告5

臺州學院VB程序設計實驗報告實驗五：數(shù) 組班級：12化學師范學號：1232010045姓名：屈王波實驗日期：2013/5/8一、實驗目的和要求1掌握數(shù)組的聲明、數(shù)組元素的引用；2掌握靜態(tài)數(shù)組和動態(tài)數(shù)組的使用差別；3應用數(shù)組解決與數(shù)組有關(guān)的常用問題。二、實驗主要儀器和設備計算機一臺，Windows XP操作系統(tǒng)，Visual Basic環(huán)境。三、實驗內(nèi)容實驗5.1 輸入10個數(shù)給x數(shù)組，找出其中值為最大的元素并將其與第一個元素互換，找出值最小的元素并將其與最后一個元素互換，其他元素不動。如原來：8，7，9，15，0，3，-8，19，31，5輸出：31，7，9，15，0，3，5，19，8，-8實驗5.2 編寫事件過程Command1_Click，完成下列運算：（1）輸入10個數(shù)到整型數(shù)組a；（2）將a(1)各位數(shù)字和賦值到b(1)、a(2)各位數(shù)字和賦值到b(2)、.、a(10)各位數(shù)字和賦值到b(10)；（3）在窗體上以一行輸出a數(shù)組各元素值（保持原輸入值不變）；（4）在窗體上以一行輸出b數(shù)組各元素值。實驗5.3 利用隨機函數(shù)產(chǎn)生30個不同的三位正整數(shù)，打印出這30個數(shù)，然后將它們按從大到小的次序排序，并打印出排序后的結(jié)果。實驗5.4（選做）輸入n后，再輸入n個數(shù)a1,a2,，an,按照下列公式計算s的值并顯示。四、實驗原始紀錄實驗5.1程序的界面設計。程序代碼。 Private Sub Command1_Click() Dim a(1 To 10) As Integer, i As Integer, max As Integer, min As Integer Dim x As Integer, y As Integer a(1) = Val(InputBox(請輸入第1個數(shù)) max = a(1): min = a(1) Print 輸入:; a(1); For i = 2 To 10 a(i) = Val(InputBox(請輸入第 & i & 個數(shù)) Print a(i); If max = a(i) Then min = a(i): y = i Else min = min End If Next i Print Print 輸出:; a(x) = a(1): a(y) = a(10): a(1) = max: a(10) = min For i = 1 To 10 Print a(i); Next iEnd SubPrivate Sub Command2_Click() EndEnd Sub實驗5.2程序的界面設計。程序代碼。Private Sub Command1_Click() Dim a(1 To 10) As Long, b(0 To 10) As Long, i As Long Dim m As Integer, n As Integer, x As Long Print a的值：; For i = 1 To 10 a(i) = Val(InputBox(請輸入第 & i & 個數(shù)) Print a(i); m = Len(a(i) For n = 1 To m4 x = Val(Mid(a(i), n, 1) b(i) = b(i) + x Next n Next i Print Print b的值：; For i = 1 To 10 Print b(i); Next iEnd SubPrivate Sub Command2_Click() EndEnd Sub實驗5.3程序的界面設計。程序代碼。Private Sub Command1_Click() Dim a(1 To 30), i As Long, j As Long Print 隨機數(shù):;: Print For i = 1 To 30 a(i) = Int(Rnd * (999 - 100 + 1) + 100) If i = 11 Or i = 21 Then Print Print a(i); Else: Print a(i); End If Next i For j = 30 To 2 Step -1 For i = 2 To j If a(i - 1) = a(i) Then m = a(i) Else m = a(i - 1) a(i - 1) = a(i) a(i) = m End If Next i a(j) = m Next j Print: Print 從大到小排序：;: Print For i = 1 To 30 If i = 11 Or i = 21 Then Print Print a(i); Else: Print a(i); End If Next i Print Command1.Enabled = FalseEnd SubPrivate Sub Command2_Click() EndEnd Sub實驗5.6（選做）程序的界面設計。程序代碼。Private Sub Command1_Click() Dim n As Long, m As Long Dim v As Single, s As Single, x As Single, y As Single n = Val(InputBox(請輸入n) ReDim a(n) As Long For m = 1 To n a(m) = InputBox(請輸入數(shù)值) x = x + a(n) Next m v = x / n For m = 1 To n y = y + (a(m) - v) 2 Next m s = y 0.5 / n Print sEnd Sub五、實驗結(jié)果