P28.以下程序的功能是产生100个0~99的随机整数,并统计个位上的数字分别是1,2,3,4,5,6,7,8,9,0的数的个数 Private Sub a3() Dim x(1 To10)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 有如下语句: 1a(j)=Int(Rnd*100) 2a(p)=Int(Rnd*100) 3p=Int(Rnd*100) 4x(p)=x(p)+1 5x(j)=x(j)+1 6p=p+1 有两个空,将程序补充完整的正确语句是