查人人中国名人网山东省外文书店进口部:vb编程问题
来源：百度文库 编辑：查人人中国名人网 时间：2024/04/27 23:34:59
利用selext case 语句编程实现统计单科各分数段(90-100,80-89,70-79,60-69,0-59)的学生的人数,要求:不用输入学生人数,可以假设学生人数已知,如果不用的话可以省略.
Dim Count90_100 as Integer
Dim Count80_89 as Integer
Dim Count70_79 as Integer
Dim Count60_69 as Integer
Dim Count0_59 as Integer
Select Case Score
Case 0 To 59
Count0_59 = Count0_59 + 1
Case 60 To 69
Count60_69 = Count60_69 + 1
Case 70 To 79
Count70_79 = Count70_79 + 1
Case 80 To 89
Count80_89 = Count80_89 + 1
Case 90 To 100
Count90_100 = Count90_100 + 1
End Select
dim C9 As Integer
dim C8 As Integer
dim C7 As Integer
dim C6 As Integer
dim C0 As Integer
Dim a As Integer
Dim score As Integer
a = score / 10
Select Case a
Case 9, 10
C9 = C9 + 1
Case 8
C8 = C8 + 1
Case 7
C7 = C7 + 1
Case 6
C6 = C6 + 1
Case Else
C0 = C0 + 1
End Select