单选题 以下程序的功能是产生 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 jEnd 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程序中有两个空，将程序补充完整的正确语句是
【正确答案】 A
【答案解析】解析：数组a[1-100]分别用于存储100个随机整数，x[1-10]分别用于存储个位上数字是1，2，3，4，5，6，7，8，9，0的数的个数，Rnd 函数返回大于或等于 0且小于1的随机值，Int函数用于取整。程序利用For j = 1 To 100进行100次循环，每次循环利用Int(Rnd * 100)产生一个0-99的随机整数存储在数组a(j)中，之后利用a(j) Mod 10计算出该整数的个位数字存储在p中，之后利用x(p) = x(p) + 1将该个位数字加1后存储在数组x(p)中，因此空行内应填入a(j) = Int(Rnd * 100)与x(p) = x(p) + 1。因此选项A正确。