(完整版)VB项目4数组习题答案

D.行 C.Static语句 D.Public语句A。0～100 C.0～99 A.A（0）=2 B.A（1）=-28 C.A（56）=A（-56） D。A(100）=A（0）+A(55) 10.执行重定义数组大小语句ReDimA(UBound（B)）后，A数组的上界为______________。 C.B数组的上界—1D。不确定A.DimA(9）AsSingle={1，2，3，4，5，6，7,8，9,10｝B。DimA(）AsSingle={1,2，3，4,5,6，7,8,9,10｝C.DimA(）AsSingle=｛1，"abc","ccc"，4，5，6,7，8，9,10｝D。DimA（，)AsSingle={1，2,3,4,5，6,7,8,9，10｝ DimA（)AsInteger=｛1,2,3,4，5,6,7｝Fori=0toUBound（A）A（i）=A（i)*A（i)Nexti A。Dima（5)AsInteger={1，2，3，4,5,6｝ B。Dima(1,6）AsInteger={1，2,3,4,5,6｝C.Dima（）AsInteger=｛1,2,3,4，5,6} D.s2=s1.All5。若有语句A=Array(1,2,3，4,5，6,7,8），则A（5)的值是___6_____。PrivateSubButton1_Click(Dima()AsInteger={90，49，23,45,11,45，67，23，68,56｝Dimi,j，n,tempAsIntegern=UBound（a）Fori=0TonLabel1。Text=Label1。Text＆a(i)&vbCrLfNexti

Fori= To(n\2—1)＊2 (2）Forj= （n\2)＊2 Ifa（i）>a（j)Thentemp=a(i): a（i）=a(j): a(j）=tempEndIfNextjNextiFori=0TonLabel2.Text=Label2。Text＆a（i)＆vbCrLfNexti⑵step2

i+2

（n\2)*2PrivateSubButton1_Click（Dima（)AsInteger=｛23，—5,23，-45，11，8,-3,38,—31,15｝Dims1，s2,iAsInteger，xAsSingle Fori= (2）Label1.Text=Label1。Text&a(i)&vbCrLfIf （3) s1=s1+a（i) EndIfNextix=s1/Math。Abs(s2)Label2.Text=x(1)0

（3)a（i）〉0

s2+a(i)PrivateSubButton1_Click（DimA（10）AsInteger，i，bAsIntegerFori=0To10A（i)=Val(InputBox("请输入一个整数"))Nextib=A(10）Fori= （1)A(i+1)=A(i）NextiFori=0To10Ifi（3）4=0ThenLabel1.Text=Label1.Text＆vbCrLfLabel1.Text=Label1。Text&A（i）＆" Nexti9To0Step-1

A(0)=b

PrivateSubButton1_Click(DimA(）AsInteger={1,2，3，4,5,6，7，8,9,10}Dimkey，i，j，nAsIntegern=UBound(A）Fori=0TonIf (1） Forj=i+1Ton(2）Nextj （3)ExitForEndIfNextiIfi>nThenMsgBox（"找不到要删除的元素")A(i）=key

（2)A(j—1)=A(j）

(3)PreserveA(n-1）PrivateSubButton1_Click(Dima（9)AsIntegerDimi,j，imin，tAsIntegerLabel1.Text="原始成绩为:"&vbCrLfFori=1To10 // Fori=0To9a（i）=Int（Rnd（）＊101）Label1.Text＆=a(i）&" "Fori=0To8Forj=9Toi+1 //Forj=9Toi+1step-1Ifa（j）〈a(j—1)Thent=a（i) //t=a(j)a(j)=a（j-1）a(j-1）=tEndIfNextjNextiFori=0To9Label2.Text＆=a(i）&" "NextiPrivateSubButton1_Click（Dima(19）AsChar，i,jAsIntegerLabel1。Text=""Randomize（）Fori=0To19

a（i)=Int(Rnd（）*26+65）//a（i）=Chr（Int（Rnd（）*26+65））Forj=0ToI//Forj=0Toi—1Ifa(i）=a（j）Theni=i-1Fori=0To19Label1.Text＆=Chr（a（i)）&""//Label1。Text&=a(i）＆""PrivateSubButton1_Click(Randomize(）Fori=0To9a(i)=Int(Rnd（）*99+10）//Int（Rnd（)＊90+10)ifi=0 thenmin=a(i）:max=a(i)Ifa(i)<minThen //Elseifa(i）>maxmax=