2. 计算机
  3. 执行下面程序，在“输入:”文本框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

admin2019-04-04  45
问题 执行下面程序，在“输入:”文本框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

全国高校计算机二级

相关试题推荐
随机试题
最新回复(0)