vb程序设计教程第三版实验E.doc

Private Sub Form_click() Dim a(9) As Integer s = 0 Max = 30 Min = 100 For i = 0 To 9 Randomize a(i) = Int(Rnd * 71 + 30) If a(i) Max Then Max = a(i) If a(i) Min Then Min = a(i) s = s + a(i) Print a(i); Next i Print Print Max=; Max, Min=; Min, Avg=; s / 10 Print End Sub Private Sub Form_click() Dim a() a = Array(56, 78, 98, 88, 76, 78) For i = LBound(a) To UBound(a) Print String(Int(a(i) / 5), ◆); a(i) Print Next i End Sub Option Base 1 Dim a(20) As Integer Private Sub Command1_Click() For i = 1 To 20 Randomize a(i) = Int(Rnd * 101) Picture1.Print a(i); Print If i Mod 4 = 0 Then Picture1.Print Next i End Sub Private Sub Command2_Click() For i = 1 To 20 Select Case a(i) Case 0 To 59 n = n + 1 Case 60 To 69 b = b + 1 Case 70 To 79 c = c + 1 Case 80 To 89 d = d + 1 End Select Next i Picture2.Print 分数在0︿59的人数有; n Picture2.Print 分数在60︿69的人数有; b Picture2.Print 分数在70 ︿ 79的人数有; c Picture2.Print 分数在80 ︿89的人数有; d Picture2.Print 分数在90 ︿100的人数有; 20 - n - d - b - c End Sub Private Sub Form_click() Dim a(9) As Integer Print Tab(2); 排序前, For i = 0 To 9 a(i) = Int(Rnd * 90 + 10) Print a(i); Next i For n = 0 To 8 nmax = n For m = n + 1 To 9 If a(m) a(nmax) Then nmax = m Next m t = a(nmax): a(nmax) = a(n): a(n) = t Next n Print Print Tab(2); 排序前, For i = 0 To 9 Print a(i); Next i End Sub Private Sub Form_click() Dim a(9) As Integer Print Tab(2); 排序前, For i = 0 To 9 a(i) = Int(Rnd * 90 + 10) Print a(i); Next i For n = 8 To 0 Step -1 For m = 0 To n If a(m) a(m + 1) Then t = a(m + 1): a(m + 1) = a(m): a(m) = t Next m Next n Print Print Tab(2); 排序前, For i = 0 To 9 Print a(i); Next i End Sub Dim A(3, 3), B(3, 3) As Integer Private Sub Command1_Click() For i = 0 To 3 For j = 0 To 3 Randomize A(i, j) = Int(Rnd * 90 + 10) If i = j Then Picture1.Print Tab(j * 5); A(i, j); Next j Next i End Sub Private Sub Command2_Click() For i = 0 To 3 For j = 0 To 3 Randomize B(i, j) = Int(Rnd * 900 + 100) If j = i Then Picture2.Print Tab(6 * j); B(i, j); Next j Next i End Sub Private Sub Command3_C