全国计算机二级vb上机考试题库(包过)

《全国计算机二级vb上机考试题库(包过)》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、饿一关键字:二维数组,对角线,整除,求和（1）Ifa(i)>=xThenx=a(i)ElseIfa(i)N-k+1ThenIfa(k,N-k+1)Mod3=0ThenCounter=Coun

2、ter+1EndIfEndIfNextlblSecond.Caption=Sum:lblFirst.Caption=Counter***************************************************************************关键字:20行5列二维数组,各行,平均数,最大值（1）Ifnum/2<>Fix(num/2)ThenIfnuma(30)ThenIfa(n)=numThenIfn>30Then（2）Avg=(a(i,2)+a(i,3))/2CaseIs>=85Case60To84EndSe

3、lectText2(n-1)=x(n)综合应用Fori=1To20Sum=0Forj=1To5Sum=Sum+a(i,j)NextAvg=Sum/5Ifi=1ThenMax=AvgElseIfMax

4、.Left=Label1.Left–100（2）Forn=1To9CaseIs>MaxCaseIsa(i,j)ThenMin=a(i,j)NextSum=Sum+MinNextText2=Sum/20***************************************************************************关键字:5*5二维数组,每行最大值,次序（1）CallShowName(Command1

5、)CallShowName(Label1)PrivateSubShowName(cAsControl)Label2.Caption="单击"&Label1.Caption（2）Picture1(k).Visible=FalseTimer1.Enabled=TrueIfi=8Theni=0综合应用b(i)=a(i,1):c(i)=1Forj=2TonIfa(i,j)>b(i)Thenb(i)=a(i,j):c(i)=jEndIfNext*********************************************************************

6、******关键字:字符串,排序（1）n=Len(Text1.Text)b=Asc(Mid(s,i,1))SelectCasebFori=0To2x(i)=a(i)（2）Fori=0ToLa.ListCount-1Lb.AddItemLa.List(i)La.Clear综合应用DoWhileNotEOF(1)s=s&Str(a(i))num=UBound(a)Fori=1Tonum-1Forj=iTonumIfa(i)>a(j)Thent=a(i):a(i)=a(j):a(j)=tEndIfNextNext********************************

7、*******************************************关键字:5行40列二维数组,小于50,求和,平均值（1）IfCheck1(k).Value=1ThenText1.Text=""Command1.Enabled=True（2）a=Val(List1.List(List1.ListCount-2))a=bList1.AddItemc综合应用Fori=1To5Sum=0:Counter=0Forj=1To40Ifa(i,j)<50ThenSum=Sum+a(i,j):Counter=Counter+1End