欢迎来到天天文库
浏览记录
ID:42257271
大小:70.00 KB
页数:8页
时间:2019-09-11
《VB上机程序题库》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
1、VB上机程序题库一、1到50相加PrivateSubCommand1_Click()DimaAsInteger,mAsIntegers=0Forn=1To50s=s+nNextnText1.Text=sEndSub二、随机产生13个元素的数组(找出max和min),并分别以逆序和顺序显示在两个标签中(文本框内)Dima(1To13)AsIntegerPrivateSubCommand2_Click()Fori=1To12Forj=i+1To13Ifa(i)>a(j)Thent=a(i):a(i)=a(j)
2、:a(j)=tEndIfNextp=Str(a(1))Fori=2To13p=p&","&Str(a(i))NextLabel2.Caption=LTrim(p)EndSubPrivateSubForm_Load()DimpAsStringRandomizep=""Fori=1To13DoForj=1Toi-1Ifx=a(j)Thenyes=1:ExitForNextLoopWhileyes=1a(i)=xp=p&Str(a(i))NextLabel1.Caption=LTrim(Left(p,Len(p
3、)-1))Label2.Caption=""三、托运行李,重不超过50千克每千克0.25元,超过50不超过100时超过部分0.35每千克,超过100时超过部分每千克0.45,计算托运费PrivateSubCommand1_Click()DimwAsSingle,xAsSinglew=Val(Text1.Text)Ifw<=50Thenx=0.25*wElseIfw<=100Thenx=0.25*50+0.35*(w-50)Elsex=0.25*50+0.35*50+0.45*(w-100)EndIfEnd
4、IfText2.Text=xEndSub四、求两个数中较大数的函数过程,利用该函数求3个数中最大数PrivateSubCommand1_Click()Dima,b,cAsSinglea=Val(Text1.Text)b=Val(Text2.Text)c=Val(Text3.Text)Label1.Caption="最大数是:"&Max(a,Max(b,c))EndSubPrivateFunctionMax(x,yAsSingle)Ifx>yThenMax=xElseMax=yEndIfEndFunctio
5、n五、从1加到100PrivateSubCommand1_Click()Dims,iAsIntegers=0Fori=1To100s=s+iNextiPrintsEndSub六、用formload方式求1到10相加PrivateSubForm_Load()DimtAsSingle,iAsLongShowt=0Fori=1To10Step1t=t+iNextiPrint"总和:"&Str(i)EndSub七、任意数判断奇偶PrivateSubCommand1_Click()DimxAsIntegerx=Va
6、l(Text1.Text)IfxMod2=0ThenLabel1.Caption="偶数"ElseLabel1.Caption="奇数"EndSub八、判断闰年PrivateSubCommand1_Click()DimyAsIntegerDimleapyearAsBooleany=Val(Text1.Text)If(yMod4=0AndyMod100<>0)Or(yMod400=0)Thenleapyear=TrueLabel2.Caption="闰年"Elseleapyear=FalseLabel2.C
7、aption="不是闰年"EndIfEndSub九、求平均数Dima(1To10)AsIntegerPrivateSubCommand1_Click()s=0Fori=1To10a(i)=InputBox("数组元素")s=s+a(i)NextiPrints/10EndSub十、随机数组找最大、最小Dima(1To8)AsIntegerPrivateSubCommand1_Click()DimiAsIntegerFori=1To8a(i)=Int(Rnd*(100-1+1)+1)NextiFori=1To
8、7Forj=i+1To8Ifa(i)>a(j)Thent=a(i):a(i)=a(j):a(j)=tEndIfNextjNextiPrinta(1),a(8)EndSub十一、文本框中100以内7的倍数,求和PrivateSubCommand1_Click()DimiAsInteger,sAsLong,tAsStrings=0:t=0Fori=1To100IfiMod7=0Thens=s+it=t&Str(i)&Chr(13)
此文档下载收益归作者所有