loading
以下程序的功能是产生 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
程序中有两个空，将程序补充完整的正确语句是
A) ①④
B) ②⑤
C) ③⑥
D) ②⑥
【解析】数组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正确。
内置计算函数 Sgn 的功能是
A) 返回数值表达式值的符号值
B) 返回表达式的平方根
C) 返回表达式值的整数部分
D) 返回表达式值的绝对值
【解析】Sgn()函数返回数值表达式的符号值。若数值表达式的值小于0，则函数返回-1；若数值表达式的值等于0，则函数返回0；若数值表达式的值大于0，则函数返回1。因此选项A正确。
已知\产品表\（产品编码，产品名称，单价），另有\新产品表\（产品编码，产品名称，单价）。如果根据产品编码，一件产品只在\新产品表\中出现，则要将该产品追加到\产品表\中；如果一件产品在\产品表\和\新产品表\中同时出现，则用\新产品表\中的单价修改\产品表\中相应产品的单价。为实现上述功能要求，应使用的方法是
A) 更新查询
B) 追加查询
C) 生成表查询
D) 编VBA程序
【解析】根据题目描述，若产品编码只在\新产品表\中出现，需要追加至\产品表\，可用追加查询；若产品编码在\产品表\和\新产品表\中同时出现，需要修改\产品表\中相应产品的单价，