天庭清洁工网盘:简单的vb题

来源：百度文库编辑：高考问答时间：2024/04/29 17:42:41

?<Private 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 - mark ?<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
为什么是Private Sub Form_Click()和Mod的类型不匹配

看看我的就知道了
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

不过最后不要忘记加分哦

简单的vb题一个简单的vb编程题！！！救救急救，一条简单的vb题~~~~~~~~~ 请教一个简单的VB编程题... 一条很简单的VB题。。。。。简单的VB问题~~~~ 简单的VB问题 VB简单的问题?? VB的简单问题！ VB的简单问题

天庭清洁工 网盘:简单的vb题

天庭清洁工网盘:简单的vb题