计算机一级成绩学校统计,成绩统计一个班现有N个学生,该本刚参加完全国计算机一级考试,并已知道成绩,先要求统计这个班这门考试成绩的分布情况.注：N...

共回答了20个问题采纳率：90%

Private Sub Command1_Click()

Me.Cls

Dim a As Integer, b As Integer, c As Integer, d As Integer, e As Integer

Dim 成绩() As String

成绩 = Split(InputBox("每两个成绩用空格分开!", "请输入成绩"), " ")

For I = 0 To UBound(成绩)

If Val(成绩(I)) < 60 Then

e = e + 1

ElseIf Val(成绩(I)) >= 60 And Val(成绩(I)) < 70 Then

d = d + 1

ElseIf Val(成绩(I)) >= 70 And Val(成绩(I)) < 80 Then

c = c + 1

ElseIf Val(成绩(I)) >= 80 And Val(成绩(I)) < 90 Then

b = b + 1

Else

a = a + 1

End If

Next I

Print "A:" & a & " " & Format(Int(a / (UBound(成绩) + 1) * 100), "00") & "%" '

Print "B:" & b & " " & Format(Int(b / (UBound(成绩) + 1) * 100), "00") & "%"

Print "C:" & c & " " & Format(Int(c / (UBound(成绩) + 1) * 100), "00") & "%"

Print "D:" & d & " " & Format(Int(d / (UBound(成绩) + 1) * 100), "00") & "%"

Print "E:" & e & " " & Format(Int(e / (UBound(成绩) + 1) * 100), "00") & "%"

End Sub

'输入成绩的时候别弄错了,两两之间用空格分开 只能用1个空格隔开

1年前

追问

8

你发在"百度知道 > 电脑/网络 > 程序设计 > VB " 里面的啊亲