Private Sub Form_Click()RandomizeDim max As IntegerDim min As IntegerDim sum As IntegerDim cj(19) As IntegerDim a(4) As IntegerPrint "20名同学的成绩如下："For i = 0 To 19cj(i) = Int(Rnd * 101)Print c 展开
Private Sub Form_Click()RandomizeDim max As IntegerDim min As IntegerDim sum As IntegerDim cj(19) As IntegerDim a(4) As IntegerPrint "20名同学的成绩如下："For i = 0 To 19cj(i) = Int(Rnd * 101)Print cj(i);If i = 9 Then PrintNextPrintmax = 0min = 100For i = 0 To 19If max <cj(i) Then max = cj(i)If min >cj(i) Then min = cj(i)sum = sum + cj(i)Select Case cj(i)Case 90 To 100a(0) = a(0) + 1Case 80 To 89a(1) = a(1) + 1Case 70 To 79a(2) = a(2) + 1Case 60 To 69a(3) = a(3) + 1Case Elsea(4) = a(4) + 1End SelectNextPrintPrint "最高分:"&maxPrint "最低分:"&minPrint "平均分:"&sum / 20PrintPrint "90~100分的人数 "&a(0)Print "80~89分的人数 "&a(1)Print "70~79分的人数 "&a(2)Print "60~69分的人数 "&a(3)Print "0~59分的人数 "&a(4)Printalign cj()PrintEnd SubPrivate Sub align(b() As Integer)For i = LBound(b) To UBound(b) For j = i + 1 To UBound(b) If b(j) >b(i) Then t = b(j) b(j) = b(i) b(i) = t End If Next jNext iPrint "从大到小排列："For m = LBound(b) To UBound(b)Print b(m);If m = 9 Then PrintNextPrintEnd Sub 收起
