神马品牌网微信支付开发案例:简单得vb题
来源：百度文库 编辑：神马品牌网 时间：2024/05/03 11:41:12
?<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的类型不匹配
我也没学过c语言。
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的类型不匹配
我也没学过c语言。
您似乎把C语言的语句混进来了吧？？
如果您想结果表示在对话框里的话，应该用MSGBOX语句，不是PRINT