vb實(shí)驗(yàn)報(bào)告5

臺(tái)州學(xué)院VB程序設(shè)計(jì)實(shí)驗(yàn)報(bào)告實(shí)驗(yàn)五：數(shù) 組班級(jí)：12化學(xué)師范學(xué)號(hào)：1232010045姓名：屈王波實(shí)驗(yàn)日期：2013/5/8一、實(shí)驗(yàn)?zāi)康暮鸵?掌握數(shù)組的聲明、數(shù)組元素的引用；2掌握靜態(tài)數(shù)組和動(dòng)態(tài)數(shù)組的使用差別；3應(yīng)用數(shù)組解決與數(shù)組有關(guān)的常用問題。二、實(shí)驗(yàn)主要儀器和設(shè)備計(jì)算機(jī)一臺(tái)，Windows XP操作系統(tǒng)，Visual Basic環(huán)境。三、實(shí)驗(yàn)內(nèi)容實(shí)驗(yàn)5.1 輸入10個(gè)數(shù)給x數(shù)組，找出其中值為最大的元素并將其與第一個(gè)元素互換，找出值最小的元素并將其與最后一個(gè)元素互換，其他元素不動(dòng)。如原來(lái)：8，7，9，15，0，3，-8，19，31，5輸出：31，7，9，15，0，3，5，19，8，-8實(shí)驗(yàn)5.2 編寫事件過程Command1_Click，完成下列運(yùn)算：（1）輸入10個(gè)數(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ù)組各元素值。實(shí)驗(yàn)5.3 利用隨機(jī)函數(shù)產(chǎn)生30個(gè)不同的三位正整數(shù)，打印出這30個(gè)數(shù)，然后將它們按從大到小的次序排序，并打印出排序后的結(jié)果。實(shí)驗(yàn)5.4（選做）輸入n后，再輸入n個(gè)數(shù)a1,a2,，an,按照下列公式計(jì)算s的值并顯示。四、實(shí)驗(yàn)原始紀(jì)錄實(shí)驗(yàn)5.1程序的界面設(shè)計(jì)。程序代碼。 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(請(qǐng)輸入第1個(gè)數(shù)) max = a(1): min = a(1) Print 輸入:; a(1); For i = 2 To 10 a(i) = Val(InputBox(請(qǐng)輸入第 & i & 個(gè)數(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實(shí)驗(yàn)5.2程序的界面設(shè)計(jì)。程序代碼。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(請(qǐng)輸入第 & i & 個(gè)數(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實(shí)驗(yàn)5.3程序的界面設(shè)計(jì)。程序代碼。Private Sub Command1_Click() Dim a(1 To 30), i As Long, j As Long Print 隨機(jī)數(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實(shí)驗(yàn)5.6（選做）程序的界面設(shè)計(jì)。程序代碼。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(請(qǐng)輸入n) ReDim a(n) As Long For m = 1 To n a(m) = InputBox(請(qǐng)輸入數(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五、實(shí)驗(yàn)結(jié)果