2. 计算机
  3. 以下程序的功能是产生100个0～99的随机整数，并统计个位上的数字分别是1，2，3，4，5，6，7，8，9，0的数的个数。 Private Suba3() Dim x(1 To 10)As Integer，a(1 To 100)As Integer Dim

以下程序的功能是产生100个0～99的随机整数，并统计个位上的数字分别是1，2，3，4，5，6，7，8，9，0的数的个数。 Private Suba3() Dim x(1 To 10)As Integer，a(1 To 100)As Integer Dim

admin2021-04-07  85
问题 以下程序的功能是产生100个0～99的随机整数，并统计个位上的数字分别是1，2，3，4，5，6，7，8，9，0的数的个数。
Private Suba3()
Dim x(1 To 10)As Integer，a(1 To 100)As Integer
Dim P As Integer，j As Integer
Forj：1 To 100
【    】
P＝a(j)Mod 10
If P＝0 Then P＝10
【    】
Nextj
For i＝1 To 10
    Debug．Printx(j)；
Next j
End Sub
有如下语句：
①a(j)＝Int(Rnd*100)
②a(P)＝Int(Rnd*100)
③p＝Int(Rnd*100)
④x(P)＝x(P)＋1
⑤(j)＝x(j)＋1
⑥p＝p＋1
程序中有两个空，将程序补充完整的正确语句是(    )。
选项 A、①④
B、②⑤
C、③⑥
D、②⑥
答案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)Mod10计算出该整数的个位数字存储在p中，之后利用x(p)＝x(p)＋1将该个位数字加1后存储在数组x(p)中，因此空行内应填入a(j)＝Int(Rnd*100)与x(p)＝x(p)＋1。故选择A选项。
转载请注明原文地址:https://kaotiyun.com/show/CVSp777K
本试题收录于： 二级Access题库NCRE全国计算机二级分类
0

二级Access

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)