100元素的一维数组中,存放0-100的成绩,分别统计>=90,80~89,70~79,60~69,不及格的个数.VB语言哦
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/21 20:05:24
![100元素的一维数组中,存放0-100的成绩,分别统计>=90,80~89,70~79,60~69,不及格的个数.VB语言哦](/uploads/image/z/1961397-45-7.jpg?t=100%E5%85%83%E7%B4%A0%E7%9A%84%E4%B8%80%E7%BB%B4%E6%95%B0%E7%BB%84%E4%B8%AD%2C%E5%AD%98%E6%94%BE0-100%E7%9A%84%E6%88%90%E7%BB%A9%2C%E5%88%86%E5%88%AB%E7%BB%9F%E8%AE%A1%3E%3D90%2C80%7E89%2C70%7E79%2C60%7E69%2C%E4%B8%8D%E5%8F%8A%E6%A0%BC%E7%9A%84%E4%B8%AA%E6%95%B0.VB%E8%AF%AD%E8%A8%80%E5%93%A6)
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下测试通过.