2. 计算机
  3. 有下面事件过程： Private Sub Command1_Click( ) Dim a(20)As Integer，n(5)As Integer Dim m As Integer．num As Integ

有下面事件过程： Private Sub Command1_Click( ) Dim a(20)As Integer，n(5)As Integer Dim m As Integer．num As Integ

admin2020-08-10  14
问题 有下面事件过程：
    Private Sub Command1_Click(  )
          Dim a(20)As Integer，n(5)As Integer
          Dim m As Integer．num As Integer
          Randomize
          For k=1 To 20
        a(k)=Int(Rnd*5)+1
        Print a(k)；
        n(a(k))=n(a(k))+1
          Next k
          Print
          m=n(1)
    num=1
          For k=2 To 5
        If n(k)＞m Then
          m=n(k)
          num=k
        End If
          Next k
          Print m，num
    End Sub
    此事件过程运行时会出现2行输出，如果第一行输出是：
    4 2 4 1 4 1 4 5 3 2 5 5 1 4 2 3 4 3 4 2
    则第2行的输出是(        )。   
选项 A、5    3
B、7    4
C、3    5
D、4    7   
答案B
解析 在程序过程中定义了两个数组a和n，同时定义了两个整型变量m和num，程序中Randomize的功能是可以消除一个应用程序不断重复使用随机数时，同一序列的随机数会重复出现的情况。程序进入第一个For循环中，将会产生20个[1，5]区间的整数，并将产生的随机数存放到数组a中。语句“n(a(k))=n(a(k))+1”的功能是对产生的[1，5]区间的每个数进行计数统计，并将个数存储到数组n中，接下来的第二个For循环的功能是对区间[1，5]中的每个整数的个数求最大值，并将个数最多的整数进行输出。题目中产生的20个[1，5]区间的整数的个数依次为n(1)=3；n(2)=4；n(3)=3；n(4)=7；n(5)=3，可以得知整数4生成的次数最多，为7次。故程序最终输出7和4，B选项正确。本题选择B选项。
转载请注明原文地址:https://kaotiyun.com/show/wSHp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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