编写VB程序。随机生成100个三位正整数，并统计其中大于500、小于等于500和大于等于900的数字的个数。

编写VB程序。随机生成100个三位正整数，并统计其中大于500、小于等于500和大于等于900的数字的个数。

Private Sub Command1_Click()
Dim i, n, a, b, c
For i = 1 To 100
Randomize
n = Int(Rnd * 900) + 100
If n > 500 Then a = a + 1
If n <= 500 Then b = b + 1
If n > 900 Then c = c + 1
Next
Print "大于500的个数:"; a; "小于等于500的个数:"; b; "大于900的个数:"; c
End Sub

运行测试通过，希望对你有帮助。不好意思看错了，我以为产生900个数，呵呵。
Private Sub Command1_Click()
Dim a(998) As Integer
Dim i As Integer
Dim m, n, k As Integer
m = n = k = 0
For i = 0 To 998
a(i) = Int(Rnd * 900 + 100)
Next i
For i = 0 To 998
If a(i) <= 500 Then
m = m + 1
ElseIf a(i) >= 900 Then
n = n + 1
End If
Next i
k = 900 - m
Print "小于等于500的数为"; m; "大于等于900的数为"; n; "大于500的数为"; k
End Sub

1.100个三位正整数可以出现重复的吗？
2. 是只用统计这三类数字的个数呢，还是说同时也提取出来具体有哪些数字？
这两点还请LZ明示，完了我上代码！

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息