中科新闻网天龙八部镜湖在哪钓鱼:大家看看我这条VB语应该怎么改
来源：百度文库 编辑：中科新闻网 时间：2024/05/10 07:51:25
随机产生20个学生的成绩并显示.统计各个分数段人数,即0-59 60-69 70-79 80-89 90-100
我是这样写的
Private Sub Form_Click()
Dim mark() As Integer, i%, n%, j%
n = 20
ReDim mark(1 To 20)
For i = 1 To 20
mark(i) = Int(Rnd * 101)
Next
j = mark(i) \ 10
Select Case j
Case 0 To 5
mark(5) = mark(5) + 1
Case 9 To 10
mark(9) = mark(9) + 1
Case 6 To 8
mark(j) = mark(j) + 1
End Select
可是这样写不对
请教一下我错在哪了 正确的应该怎么做
我是这样写的
Private Sub Form_Click()
Dim mark() As Integer, i%, n%, j%
n = 20
ReDim mark(1 To 20)
For i = 1 To 20
mark(i) = Int(Rnd * 101)
Next
j = mark(i) \ 10
Select Case j
Case 0 To 5
mark(5) = mark(5) + 1
Case 9 To 10
mark(9) = mark(9) + 1
Case 6 To 8
mark(j) = mark(j) + 1
End Select
可是这样写不对
请教一下我错在哪了 正确的应该怎么做
计算各段人数用select case
最后应该是end case 啊
不好意思。我随便写的。结果是对的。你可以修改修改
Private Sub Form_Click()
Dim mark(20) As Integer
For i = 1 To 20
mark(i) = Int(Rnd * 101)
'Print mark(i)
Select Case mark(i)
Case Is < 60
Print " 分数在0~59的:" & mark(i)
Case Is > 59 < 70
Print "分数在60~69的:" & mark(i)
Case Is > 69 < 80
Print "分数在60~69的:" & mark(i)
Case Is > 79 < 90
Print "分数在60~69的:" & mark(i)
Case Is > 89 < 100
Print "分数在60~69的:" & mark(i)
End Select
Next
End Sub
楼上会不会啊！
他的
end select
是完全正确的。楼上的会不会啊？
没有时间详细看。