首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设有如下事件过程: 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
20
问题
设有如下事件过程:
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$变量的内容是()。
下面四个选项,不是窗体属性的是()。
从键盘上输入一个实数nu,利用字符串函数对该数进行处理,如果输出的内容不是字符End,则程序输出的内容是()。nu=InputBox("nu=")n$=Str$(nu)p=InStr(n$,".")ifp>0Th
设在窗体上有一个名称为Command1的命令按钮,并有以下事件过程:PrivateSubCommand1_Click() StaticbAsVariant b=Array(1,3,5,7,9)EndSub
有以下程序:SubsubP(b()AsInteger) Fori=1To4 b(i)=2*i NextiEndSubPrivateSubCommand1_Click()Dim
下面程序的运行结果是______。程序的功能是_______。PublicFunctionmyfun(m,n)Dowhilem>n Dowhilem>n:m=m-n:Loop DoWhilen
软件设计包括软件的结构、数据接口和过程设计,其中软件的过程设计是指
在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:DimSWAsBooleanFunctionfunc(XAsInteger)AsInteger IfX<20Then Y=X
下列程序运行时,若输入123,输入对话框的提示信息是______。PrivateSubCommand1_Click()X1=InputBox("请输入") MsgBox(X1)EndSub
以下关于多窗体的叙述中,正确的是
随机试题
尿中自细胞增多并伴大量扁平上皮细胞可见于
使NO、PGI2等增加可增加血中HDL,减轻冠脉病变
债权人的撤销权,()。
国家产生的主要标志有()。
下列属于公文必备的基本组成部分有()
课外活动是教育学理论的特定范畴。()
549是甲、乙、丙、丁4个数的和。如果甲数加上2,乙数减少2,丙数乘以2,丁数除以2以后,则4个数相等。求4个数各是多少?()
Mr.Reeceisinterestingoldman.Mr.Reeceworked【C1】______afarm.Heandhiswife【C2】______alotofthingsandtheyhadsomec
Whenaninventionismade,theinventorhasthreepossiblecoursesofactionopentohim:hecangivetheinventiontothewhole
Hechainsmokeslikeachimney______,hehasdevelopedaconstantcough.
最新回复
(
0
)