单选题 以下程序的功能是产生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
______
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有如下语句：
①a(j)=Int(Rnd*100)
②a(p)=Int(Rnd*100)
③p=Int(Rnd*100)
④x(p)=x(p)+1
⑤x(j)=x(j)+i
⑥p=p+1
程序中有两条下划线，将程序补充完整的正确语句是______。