第9章实验答案..docVIP

实验9-1 随机产生20个学生的成绩，统计各分数段的人数。即0～5960～6970～7980～8990～100Picture1中显示，统计结果在Picture2中显示，如图9-6所示。 图9-6 程序运行界面 Dim mark(19) As Integer Private Sub Command1_Click() Dim i% Picture1.Cls For i = 0 To 19 mark(i) = Int(Rnd * 101) If i Mod 5 = 0 Then Picture1.Print Picture1.Print mark(i) Space(2); Next i End Sub Private Sub Command2_Click() Dim s(5 To 9) As Integer Randomize Picture2.Cls For i = 0 To 19 k = mark(i) \ 10 Select Case k Case 0 To 5 0~59分的人数 s(5) = s(5) + 1 Case 9 To 10 90~100分的人数 s(9) = s(9) + 1 Case 6 To 8 存放其他3个分数段的人数，根据k对应获得 s(k) = s(k) + 1 End Select Next i For i = 5 To 9 Picture2.Print s(; i; )的人数有; s(i); 个 Next i End Sub 实验9-2 随机生成10个2位数整数，然后按照从小到大的顺序排列，并显示排列结果（运行界面如图9-7所示）。 Private Sub Command1_Click() Dim a(10) As Integer Randomize Dim i%, j%, t% Picture1.Print 随机生成的数： For i = 0 To 9 a(i) = Int(Rnd * 90 + 10) Next i For i = 0 To 9 Picture1.Print a(i); Spc(2); If (i + 1) Mod 5 = 0 Then Picture1.Print Next i Picture1.Print Picture1.Print 排序后的数据显示如下： For i = 0 To 8 For j = 0 To 8 - i If a(j) a(j + 1) Then t = a(j): a(j) = a(j + 1): a(j + 1) = t End If Next j Next i For i = 0 To 9 Picture1.Print a(i); Spc(2); If (i + 1) Mod 5 = 0 Then Picture1.Print Next i End Sub 实验9-3 找一个n?m的二维数组的“鞍点”。“鞍点”是指它在本行中数值最大，在本列中数值最小。也可能在一个数组中找不到鞍点。输出鞍点的行、列号，如无鞍点则输出“无鞍点”。这里假设n=4，m=4，数组各元素的值为45、46、34、12、56、75、78、47、12、94、56、30、77、57、79、80。 Private Sub Form_Click() Dim n As Integer, m As Integer, s As Integer Dim a() As Single, sum As Single n = InputBox(输入n) m = InputBox(输入m) ReDim a(n, m) For I = 1 To n For j = 1 To m a(I, j) = InputBox(a( I , j )=) Print a(I, j); Next j Print Next I Print Num, Row, Column For I = 1 To n big = a(I, 1) For j = 1 To m If big = a(I, j) Then big = a(I,