2. 计算机
  3. 设有如下事件过程： Private Sub Command 1 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 i=0

设有如下事件过程： Private Sub Command 1 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 i=0

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

二级VB

NCRE全国计算机二级

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