2. 计算机
  3. 设有如下事件过程： Private Sub Commandl＿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=UB

设有如下事件过程： Private Sub Commandl＿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=UB

admin2013-11-29  16
问题 设有如下事件过程：
    Private Sub Commandl＿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)
    Next i
    Print b    End Sub
    运行程序，输出是(     )。
选项 A、2
B、3
C、5
D、9
答案B
解析 本题程序中内层For循环是统计具有相同值元索的个数，外层循环的功能则是，对数组中的所有元素进行统计，找出第1个具有相同值的元素个数最多的那个元素值。数组组中元素值为3的元素有5个，元素值为5的元素有5个，元素值为6的元素为3个，元为9的元素有1个。因此第1个具有相同元素值的最多个的元素值是3。
转载请注明原文地址:https://kaotiyun.com/show/2WQp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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