选择题   以下程序的功能是产生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)+1
    ⑥p=p+1
    程序中有两个空，将程序补充完整的正确语句是______。