VB程序题，在线等 5点半前做好 加分

朋友,你的分太吸引人了...呵呵
我想得你的分...就关于这个问题得你的二百分,好像太简单了.呵呵,所以...你放心..你如果还有什么问题,尽管问...我尽力回答,,,如果我不能回答,我也非常愿意与你一起寻找答案,一起研究,学习!

朋友,你试过了没.............行吗????
如果你有其它问题,我一并帮你解决算了...
呵呵,,,买一送N个问题哟(好像是打广告)..哈哈

朋友,,,分给偶吧,呵呵,偶好像最快呢,这题很简单....哈哈,主要看谁手快,,,,,
......你复制我的代码,试试../

我来..马上就搞定,,,三分钟,等我..分给我,哈哈

'需要控件: Command1 , Command2, Command3
Dim A(100) As Long
Private Sub Command1_Click()
For i = 1 To 100
A(i) = Int(Rnd() * 100) Mod 100
If A(i) < 10 Then A(i) = A(i) + 10
Print A(i);
If (i Mod 10) = 0 Then Print
Next i
End Sub

Private Sub Command2_Click()
Dim S1, S2, S3 As Long
For i = 1 To 100
If A(i) < 40 Then S1 = S1 + 1
If A(i) >= 40 And A(i) < 70 Then S2 = S2 + 1
If A(i) >= 70 Then S3 = S3 + 1
Next i
MsgBox "小于等于40的个数为:" & S1 & vbCrLf & "小于40~70之间的个数为:" & S2 &