2. 计算机
  3. 设有如下事件过程： Private Sub Command1_Click()Dima 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 T

设有如下事件过程： Private Sub Command1_Click()Dima 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 T

admin2019-04-29  47
问题 设有如下事件过程：
Private Sub Command1_Click()Dima
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+1
End If
Next j
Ifm＞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/a1Up777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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