问个vb的题目，谁能帮帮我~
编写程序，其功能是产生100个[30，90]范围内的随机数，统计个位上的数字a的数的个数要求1.两次运行，产生的随机数不能一样
2.统计个数来用函数或过程，a由主程序提供
谢谢啊~我不是很懂
如果我没读错题，这个应该能基本满足你的要求
Option Base 1Dim x%(100)
Private Sub Form_Load()
Form1.AutoRedraw = True
Dim a%
a = Val(InputBox("请输入需要统计的个位数", "输入"))
Randomize
For i = 1 To 100
x(i) = Int(61 * Rnd + 30)
Print x(i);
If i Mod 10 = 0 Then Print
Next
Call total(a)
End Sub
Private Sub total(a%)
Dim sum%
sum = 0
For i = 1 To 100
If x(i) Mod 10 = a Then
sum = sum + 1
End If
Next i
Print "这100个数中个位为" & a & "的数有" & sum & "个"
End Sub