首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设有如下事件过程: Private Sub Command1_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=0To n m=0 For j=0To
设有如下事件过程: Private Sub Command1_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=0To n m=0 For j=0To
admin
2016-09-19
57
问题
设有如下事件过程:
Private Sub Command1_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=0To n
m=0
For j=0To 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
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/CdLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
可以用InputBox函数产生“输入对话框”。若执行下列语句st$=InputBox("请输入字符串","字符串对话框","字符串")当用户输入完毕,按“确定”按钮后,st$变量的内容是()。
执行以下程序段后,x的值为()。DimxAsInteger,iAsIntegerx=0Fori=20To0Step-2 x=x+i\5Nexti
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click() DimaAsInteger,sAsInteger a=8 s=1 Do
设计两CheckBox,一个显示粗体,一个显示斜体,通过对CheckBox的选择,在一个文本框中显示相应效果的文本,完成下列程序。PrivateSubForm_Load()Check1.Caption="显示粗体"Check2.
下列程序运行后的输出结果是FunctionFun(n)x=n*nFun=x一11EndFunctionPrivateSubCommand1_Click()Fork=1To2Y=Fun(k
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Crick()DimIAsInteger,nAsIntegerForj=0T
若要获得组合框中输入的数据,可使用的属性是
以下关于多窗体的叙述中,正确的是
要想不使用Shift或Ctrl键就能在列表框中同时选择多个项目,则应把该列表框的MultiSelect属性设置为()。
下列关于控件焦点的叙述中正确的是()。
随机试题
12型链条式抽油机的优点有哪些?
投资业务的会计核算控制制度设计主要包括哪些内容?
母亲要求儿子从小就努力学外语,儿子说:“我长大又不想当翻译,何必学外语。”儿子的回答与下面哪项有同样的逻辑错误?()
丸剂的特点是
患者左下第一前磨牙三天来遇冷食痛,刺激去除后疼痛持续十数秒后消失。查见该牙近中边缘嵴略透暗色,探诊龋深,未发现穿髓孔。为诊断应选用的检查方法是
根据《遥感影像公开使用管理规定(试行)》,公开使用的影像地面分辨率不得优于()m。
甲公司为上市公司,该公司内部审计部门在对其2016年度财务报表进行内审时,对以下交易或事项的会计处理提出疑问:(1)2016年3月31日,甲公司与丙公司签订合同,自丙公司购买不需安装的设备供管理部门使用,合同价款为6000万元,该设备当日运抵甲公司并投入
企业同其债务人的关系体现的是债务与债权的关系。()
Listentothefollowingpassage.Altogetherthepassagewillbereadtoyoufourtimes.Duringthefirstreading,whichwillbe
若市场处于反向市场,多头投机者应()。
最新回复
(
0
)