首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
执行下面程序,在“输入:”文本框Text1中输入“12,3,5,18,9”后单击“输入数组”按钮Command1,则数组元素a(2)的值是 (3) ,在单击“数组处理”按钮Command2后数组元素a(2)的值变为 (4) 。 OptionE
执行下面程序,在“输入:”文本框Text1中输入“12,3,5,18,9”后单击“输入数组”按钮Command1,则数组元素a(2)的值是 (3) ,在单击“数组处理”按钮Command2后数组元素a(2)的值变为 (4) 。 OptionE
admin
2019-04-04
82
问题
执行下面程序,在“输入:”文本框Text1中输入“12,3,5,18,9”后单击“输入数组”按钮Command1,则数组元素a(2)的值是 (3) ,在单击“数组处理”按钮Command2后数组元素a(2)的值变为 (4) 。
OptionExplicitOptionBase1
Dima() AsInteger ’定义模块级数组
PrivateSubCommand1_Click() ’输入数组
DimiAsInteger,stAsString,jAsIntegerst=Text1.Text
DoUntilInStr(st,",") =0i=InStr(st,",")
j=j+1
ReDimPreservea(j)
a(j)=Val(Left(st,i-1))
st=Right(st,Len(st)-i)
Loop
ReDimPreservea(j+1)
a(j+1)=stEndSub
PrivateSubCommand2_Click() ’数组处理
DimiAsInteger,tAsInteger,jAsIntegerFori=2ToUBound(a)
Ifa(i)>a(1) Thent=a(i)
Forj=iTo2Step-1a(j)=a(j-1)
Nextj
a(1)=tEndIf
Nexti
Fori=1ToUBound(a)
Text2.Text=Text2.Text&Str(a(i))
Nexti
EndSub
选项
答案
(3) 3 (4) 12
解析
转载请注明原文地址:https://kaotiyun.com/show/9IhZ777K
0
全国高校计算机二级
相关试题推荐
[A]Shopkeepersareyourfriends[B]Remembertotreatyourself[C]Sticktowhatyouneed[D]Livelikeapeasant[E]Balanceyourd
2005年11月23日慧通笔试题:写一函数判断某个整数是否为回文数,如12321为回文数。可以用判断入栈和出栈是否相同来实现(略微复杂些),这里是将整数逆序后形成另一整数,判断两个整数是否相等来实现的。
ASP.NET能在那些系统中运行?
将联系人“王龙”添加到“学校”的组内。
设置本地连接属性禁止网络连接。
在Google搜索中使用or查询“辽宁”,“高校”。
对当前阅读的邮件设置最大的文字。
在【安全中心】窗口中,将windows防火墙的日志记录大小限制设置为1024KB。
利用"开始"菜单的"运行"选项,启动"计算器"应用程序,计算器应用程序的标识为:c:\windows\system32\calc.exe(在"打开"中直接填写标识名)。
关于MIDI文件与WAV文件的叙述正确的是______A.WAV文件比MIDI文件占用的存储空间大B.多个WAV文件可以同时播放,而多个MIDI文件不能同时播放C.MIDI文件的扩展名为.MIDD.MIDI文件的优点是可以重现自然声音
随机试题
患者,男,35岁。间断喘息发作5年,无明显季节性,发作以夜间为著。发作时口服β受体激动剂症状可明显缓解。近日喘息再次发作,行肺功能检查示,FEV占预计值的84%,FEV1/FVC82%。为明确诊断,应首先进行的检查是
在Word中,按______键可实现“插入”方式与“改写”方式的相互转换。
简述新时代党的建设的方针。
机体各种功能活动所消耗的能量中,最终不能转化为体热的是
关于酒剂与酊剂的叙述,正确的是()。
私人储蓄的两个来源是()。
也许监管部门已经习惯了让媒体跑在前面,自己在后__________,在舆论压力下被动执法,这样的监管从根本上是对违法企业的__________,企业自然有恃无恐。填入划横线部分最恰当的一项是:
下列关于企业合并与分立的说法不正确的是()
下列算法中,不属于进程调度算法的是
Somedoctorsaretakinganunusualnewapproachtocommunicatebetterwithpatients—theyareletting【C1】______readthenotestha
最新回复
(
0
)