首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设有如下事件过程: 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)
admin
2020-04-18
23
问题
设有如下事件过程:
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全国计算机二级
相关试题推荐
窗体上有一个名称为Text1的文本框,一个名称为Command1的命令按钮。以下程序的功能是从顺序文件中读取数据:PrivateSubCommandl_Click()DimslAsString,s2AsStringO
以下不属于VisualBasic数据文件的是
设窗体上有2个直线控件Linel和Line2,若使两条直线相连接,需满足的条件是
窗体上有一个名称为Commandl的命令按钮,一个名称为Textl的文本框,其Text属性值为“VBProgramming”。运行程序后,选中其中的“VB”,并执行如下事件过程:PrivateSubCommandl_Click()
在窗体上画一个命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()a$=InputBox("请输入一个二进制数"):n=Len(a$)Fori=1TonDec=Dec*2+_
编写如下程序:PrivateSubCommand1Click()DimmAsInteger,nAsIntegexn=2Form=1To3
随机试题
甲状腺功能亢进症患者,查体发现心率比脉率多,称为
常规观察的肝静脉系统包括
一患者行上颌前部根尖下刮治术,术后应采用的包扎方法是
下列各项中,除哪项外均属八正散的组成药物()
川乌除祛风除湿外,又能
关于模板拆除施工安全的基本要求的说法,正确的有()。
甲卷烟厂和其客户乙卷烟批发公司均为增值税一般纳税人。甲卷烟厂生产的A牌卷烟不含税调拨价为120元/标准条。2013年3月,甲卷烟厂和乙卷烟批发公司有关生产经营情况如下:(1)甲卷烟厂:从烟丝生产企业购进烟丝,取得增值税专用发票,注明价款140万元、增
阅读下面这首诗,写一篇500字左右的鉴赏评论文章。寄黄几复宋.黄庭坚我居北海君南海,寄雁传书谢不能。桃李春风一杯酒,江湖夜雨十年灯。持家但有四立壁,治病不蕲三折肱。想得读书头已白,隔溪猿哭瘴溪藤。
设随机变量X与Y相互独立同分布,其中P{X=i}=,i=1,2,3令U=max(X,Y),V=min(X,Y).判断U,V是否相互独立,若不相互独立,计算U,V的相关系数.
OneofthemostinterestingparadoxesinAmericatodayisthatHarvardUniversity,theoldestinstitutionofhigherlearningin
最新回复
(
0
)