有下面事件过程: Private Sub Command1_Click() Dim a(20)As Integer,n(5)As Integer Dim m As Integer,Bum As Integer Randomi

admin2017-07-28  25

问题 有下面事件过程:
    Private Sub Command1_Click()
    Dim a(20)As Integer,n(5)As Integer
    Dim m As Integer,Bum 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 Fhen
    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://jikaoti.com/ti/May0FFFM
0

随机试题
最新回复(0)