100元素的一维数组中,存放0-100的成绩,分别统计>=90,80~89,70~79,60~69,不及格的个数.VB语言哦
来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/25 10:12:25
100元素的一维数组中,存放0-100的成绩,分别统计>=90,80~89,70~79,60~69,不及格的个数.VB语言哦
100元素的一维数组中,存放0-100的成绩,分别统计>=90,80~89,70~79,60~69,不及格的个数.VB语言哦
100元素的一维数组中,存放0-100的成绩,分别统计>=90,80~89,70~79,60~69,不及格的个数.VB语言哦
Private Sub Command1_Click()
Dim i As Integer
Dim Num9 As Byte, Num8 As Byte, Num7 As Byte, Num6 As Byte, Numbad As Byte
Dim arrayList(100) As Single
For i = 0 To 99
arrayList(i) = FormatNumber(100 * Rnd(), 1) '随机产生100个0到100的分数
Next
For i = 0 To 99
Select Case arrayList(i)
Case Is >= 90
Num9 = Num9 + 1 '分数90及以上的
Case 80 To 89
Num8 = Num8 + 1 '分数80到89的
Case 70 To 79
Num7 = Num7 + 1 '分数70到79的
Case 60 To 69
Num6 = Num6 + 1 '分数60到69的
Case Is < 60
Numbad = Numbad + 1
End Select
Next
MsgBox "统计结果:" & vbCrLf & "90分及以上的:" & Num9 & "人" & vbCrLf & _
"80-89分的:" & Num8 & "人" & vbCrLf & _
"70-79分的:" & Num7 & "人" & vbCrLf & _
"60-69分的:" & Num6 & "人" & vbCrLf & _
"不及格的:" & Numbad & "人", vbOKOnly, "统计完成"
End Sub
VB6下测试通过.