VB程序,随机产生20个学生的成绩,并显示.统计各分数段人数,即0~59,60~69,70~79,8

Question

20个学生的成绩也要显示出来

Answer 1

Private Sub Command1_Click()

  Dim a(20) As Integer

  Cls

  c1 = 0: c2 = 0: c3 = 0: c4 = 0: c5 = 0: c6 = 0

  Randomize

  Print "20个成绩："

  For i = 1 To 20

    a(i) = Int(Rnd * 101)

    Print a(i);

    If i Mod 10 = 0 Then Print

  Next i

  For i = 1 To 20

    If a(i) = 100 Then

      c1 = c1 + 1

    Else

      If a(i) > 89 Then

        c2 = c2 + 1

      Else

        If a(i) > 79 Then

          c3 = c3 + 1

        Else

          If a(i) > 69 Then

            c4 = c4 + 1

          Else

            If a(i) > 59 Then

              c5 = c5 + 1

            Else

              c6 = c6 + 1

            End If

          End If

        End If

      End If

    End If

  Next i

  Print: Print "统计结果："

  Print "  100分："; c1

  Print "90~99分："; c2

  Print "80~89分："; c3

  Print "70~79分："; c4

  Print "60~69分："; c5

  Print " 0~59分："; c6

End Sub

或者换一种写法（运行效果完全一样）：

Private Sub Command1_Click()

  Dim a(20) As Integer

  Dim cj(5 To 10) As Integer

  Cls

  Randomize

  Print "20个成绩："

  For i = 1 To 20

    a(i) = Int(Rnd * 101)

    Print a(i);

    t = a(i) \ 10

    If t < 5 Then t = 5

    cj(t) = cj(t) + 1

    If i Mod 10 = 0 Then Print

  Next i

  Print: Print "统计结果："

  Print "  100分："; cj(10)

  Print "90~99分："; cj(9)

  Print "80~89分："; cj(8)

  Print "70~79分："; cj(7)

  Print "60~69分："; cj(6)

  Print " 0~59分："; cj(5)

End Sub

Answer 2

'添加窗体Form1,按钮Command1,然后添加如下代码:
Private Sub Command1_Click()
Dim s(19), a(4), i, temp As Integer
Me.AutoRedraw = True
Cls
For i = 0 To 19
Randomize
s(i) = Int(Rnd * 101)
temp = Int(s(i) / 10)
If temp = 10 Then
a(4) = a(4) + 1
ElseIf temp < 5 Then
a(0) = a(0) + 1
Else
a(temp - 5) = a(temp - 5) + 1
End If
Print s(i)
Next
Print
Print "各分数段人数分别是：" & Join(a, " ")
End Sub本回答被网友采纳