vb 程序设计教程(机械工业出版社)习题答案 实验6-2).docVIP

实验6-2 习题3 程序 Dim a%(10), i%, b%(10) Private Sub Command1_Click() For i = 1 To 10 a(i) = Int(Rnd * 26) + 65 Picture1.Print Chr(a(i)); ; Next i End Sub Private Sub Command2_Click() For i = 1 To 10 b(i) = a(11 - i) Picture2.Print Chr(b(i)); ; Next i End Sub 截图 习题4 程序 Dim a%(1 To 4, 1 To 5), i%, j% Private Sub Command1_Click() For i = 1 To 4 For j = 1 To 5 a(i, j) = Int(Rnd * 90) + 10 Picture1.Print a(i, j); Next j Picture1.Print Next i End Sub Private Sub Command2_Click() Dim sum%, c%, b% sum = 0 c = 0 b = 0 For i = 1 To 4 For j = 1 To 5 If a(i, j) sum Then sum = a(i, j) c = i b = j End If Next j Next i Print 最大元素是第; c; 行第; b; 列的; sum End Sub 截图 习题5 程序 Dim a%(1 To 10, 1 To 10), i%, j% Private Sub Command1_Click() For i = 1 To 10 For j = 1 To 10 a(i, j) = Int(Rnd * 90) + 10 Picture1.Print a(i, j); Next j Picture1.Print Next i End Sub Private Sub Command2_Click() Dim n%, b%(9) For n = 1 To 9 b(n) = 0 Next n For i = 1 To 10 For j = 1 To 10 Select Case a(i, j) Case 10 To 19 b(1) = b(1) + 1 Case 20 To 29 b(2) = b(2) + 1 Case 30 To 39 b(3) = b(3) + 1 Case 40 To 49 b(4) = b(4) + 1 Case 50 To 59 b(5) = b(5) + 1 Case 60 To 69 b(6) = b(6) + 1 Case 70 To 79 b(7) = b(7) + 1 Case 80 To 89 b(8) = b(8) + 1 Case Else b(9) = b(9) + 1 End Select Next j Next i Print 10-19的数的个数、20-29的数的个数、……、90-99的数的个数分别是 For n = 1 To 9 Print b(n); Next n End Sub