计算机二级Access单项选择7

以下程序的功能是产生 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程序

【解析】根据题目描述，若产品编码只在\新产品表\中出现，需要追加至\产品表\，可用追加查询；若产品编码在\产品表\和\新产品表\中同时出现，需要修改\产品表\中相应产品的单价，