江苏省高校等考(CCT)二级(VF)模拟试卷1
试卷名称:江苏省高校等考(CCT)二级(VB)模拟试卷1
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
您可能感兴趣的题目
相关试卷
江苏省高校等考(CCT)二级(VF)模拟试卷1
江苏省高校等考(CCT)二级(C语言)模拟试卷1
江苏省高校等考(CCT)二级(C++)模拟试卷1
江苏省高校等考(CCT)二级(VB)模拟试卷1
江苏省高校等考(CCT)二级(Office 高级应用)模拟试卷1
江苏省高校等考(CCT)二级(FORTRAN90程序设计)模拟试卷1
高校等考(二级)模拟试卷3
高校等考(二级)模拟试卷2
高校等考(二级)模拟试卷1