首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
执行下面程序,在“输入:”文本框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
80
问题
执行下面程序,在“输入:”文本框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
全国高校计算机二级
相关试题推荐
如果字符串一的所有字符按其在字符串中的顺序出现在另外一个字符串二中,则字符串一称之为字符串二的子串。注意,并不要求子串(字符串一)的字符必须连续出现在字符串二中。请编写一个函数,输入两个字符串,求它们的最长公共子串,并打印出最长公共子串。例如:输入两个
把个人的信息进行设置,显示图片“火箭发射”,与其他人共享网络摄像机功能。
把D:下的图片文件夹进行网络共享但是其他网络用户只能读取。
把D:下的流行音乐文件夹进行共享但是文件仅可供本地用户使用。
设置拨号连接属性卸载Qos数据包计划程序。
在【安全中心】窗口中,设置Windows防火墙,允许“文件和打印机共享”。
在即时通讯工具MSN中,通过菜单栏中的【高级搜索】菜单命令,查找MSN的PublicName为“john”,Gender(性别)为“Male”,Iocation为“Australia”(澳大利亚),其余选项不加限制的MSN用户。
在即时通讯工具MSN中,通过菜单栏中的【高级搜索】命令,在MSN用户中查找符合以下条件的MSN用户:姓氏为ny,年龄范围为25—29,其余保持默认。
用“绘制表格”功能制作好表格后,我们要改变表格单元格高度,宽度时,正确的说法是()A.只能改变一个单元格的高度B.只能改变整个列宽C.只能改变整个行高D.以上三项说法都不正确
在Excel中,下列区域表示中错误的是______A.a1#d4B.a1.d5C.a1>d4D.a1:d4
随机试题
甲从乙商场购买丙厂生产的彩电一台,使用中荧光屏爆炸造成人身伤害,受害人甲因此()
最保险的止血方式是
最易导致免疫耐受的抗原注射途径是
崔某虚构“卢氏县药都中药材种子种苗贸易部”,在根本没有任何中药材种子种苗,也未经广告管理部门审核的情况下,擅自通过《故事大观》、《农民致富之友》等刊物刊发中药材种植等含虚假内容的广告,并私自印制种植宣传小报向种植户邮寄散发,误导消费者,骗取他人财物。从20
点电荷+q和点电荷一q相距30cm,那么,在由它们构成的静电场中()。[2011年真题]
按现行企业会计准则规定,下列说法中正确的有()。
简述学前教育与社会经济的关系。
平原是绝对高度低于200米、相对高度小于50米的平缓陆地,是陆地地貌最基本的类型之一,世界大部分人口均居住在平原地区。世界上最大的平原是()。
WhenwasTwainborn?
WhatWilltheWorldBelikeinFiftyYears?A)Thisweeksometopscientists,includingNobelPrizewinners,gavetheirvisionof
最新回复
(
0
)