2. 计算机
  3. 以下程序的功能是产生 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

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

admin2015-07-01  32
问题 以下程序的功能是产生 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
解析 数组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正确。
转载请注明原文地址:https://kaotiyun.com/show/ongp777K
本试题收录于： 二级Access题库NCRE全国计算机二级分类
0

二级Access

NCRE全国计算机二级

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