下面的程序产生100个0～99的随机整数，并统计个位上的数字分别是1，2，3，4，5，6，7，8，9，0的数的个数。 Private Su

下面的程序产生100个0～99的随机整数，并统计个位上的数字分别是1，2，3，4，5，6，7，8，9，0的数的个数。

Private Sub a3()

Dim x(1 To 10)As Integer,a(1 To 100)As Integer

Dim P As Integer,j As Integer

For j=1 To 100

a(j)=______

P=a(j)Mod 10

If P=0 Then P=10

______

Next j

For j=1 To 10

Debug.Print x(j);

Next j

End Sub