以下程序的功能是产生 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 有如下语句: 1 a(j) = Int(Rnd * 100) 2 a(p) = Int(Rnd * 100) 3 p = Int(Rnd * 100) 4 x(p) = x(p) + 1 5 x(j) = x(j)+1 6 p = p+1 有两个空,将程序补充完整的正确语句是( )。 A. ①④ B. ②⑤ C. ③⑥ D. ②⑥