神仙贵妇膏哪个牌子好:vb 编程 哪里错了??

来源:百度文库 编辑:神马品牌网 时间:2024/04/29 00:34:15
Public Sub Form_Click()
Dim mark(1 To 20) As Integer, i%, j%
Dim s(5 To 9) As Integer

For i = 1 To 20
mark(i) = Int(Rnd * 101)
j = (mark(i) - mark(i) Mod 10) / 10
Next i

Select Case j
Case 0 To 5
s(5) = s(5) + 1
Case 9 To 10
s(9) = s(9) + 1
Case 6 To 8
s(j) = s(j) + 1
End Select

Print "0-59="; s(5); "60-69="; s(6); "70-79="; s(7); "80-89="; s(8); "90-100="; s(9)
End Sub

但结果只有一s(j)被记录
如0-59=0 60-69=1 70-79=0 80-89=0 90-100=0