2. 计算机
  3. 设有如下事件过程： Private Sub Command l_Click()Dim a a=Array(3，5，6，3，2，6，5，3，5，4，3，9，4，5，6，3，5) x=0 n=UBound(a)

设有如下事件过程： Private Sub Command l_Click()Dim a a=Array(3，5，6，3，2，6，5，3，5，4，3，9，4，5，6，3，5) x=0 n=UBound(a)

admin2020-04-18  14
问题 设有如下事件过程：
    Private Sub Command l_Click()Dim a
        a=Array(3，5，6，3，2，6，5，3，5，4，3，9，4，5，6，3，5)
        x=0 n=UBound(a)
        For i=0 To n
              m=0
              For j=0 To n
                   If a(i)=a(j)Then
                           m=m+l
                   End If
              Next j
              If m＞x Then
                   x=m：b=a(i)
              End If
         Next i
         Print b
    End Sub
    运行程序，输出是
选项 A、2   
B、3   
C、5
D、9
答案B
解析 本题是一个二重循环，外循环从0循环到n，也就是遍历整个数组；在内循环中统计数组中和a(i)相同的数组元素的个数放到m中，内循环结束后判断m是不是比x大，如果比x大的话让m成为新的x，并且把当前数组元素放到b中，其本质是求出重复次数最多的数字，x保存重复次数，b保存该数字。
转载请注明原文地址:https://kaotiyun.com/show/HZTp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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