编号题目1Fori=1To①(Text1.Text)1temp2=②1Text2.Text=③4a=i\①4b=(i-a*②)\104③9①=Val(InputBox("请输入一个数"))9Fori=9To0Step②9Print③12ss=Val(①)12h=②12s=(ss-h*3600)Mod③13Ifa>bThenmax=aElse①13Ifc>maxThen②13Label3.Caption=CStr(③)15Fori=1To①15Forj=1To②15Print③;20If①Then20s=4*②20Label1.Caption=CStr(③)22Fori=1To①22m=②+i*1024x=Val(①)24Ifc=②Then24③26Label26①26②28b=Val(①)28If②Then28③30①=Val(InputBox("请输入x的值"))30②=x+5*a30③32a=Val(①)32②=g*100+shi*10+bai32③=CStr(b)36①=Val(InputBox("请输入边长a的值："))36s=②(q*(q-a)*(q-b)*(q-c))36Print③38If((yearMod4=0)And(yearMod100<>0))①(yearMod400=0)Then38Print②38Print③40ForYiyuan=1To①40Wujiao=100-Wuyuan-②40③41cost=①41②41Print③43Fib=①43②43S=Fib(③)45Label45TextBox45CommandButton50CommandButton50Dima,b,cAs①50②51Fori=100To①51c=②51③54Dimh,x,y①Single54Let②=Val(Text2.Text)54LetText3.Text=③60①r,sAsSingle60r=Val(②)60T2.Text=③63DimyesAs①63Letyes=②63③68a=①68b=②68Text1.Text=③68Text2.Text=④71a=Val(①)71If②=0Then71Label1.③="偶数"71④74Fori=-3To①74Forj=1To3-②74Print③77s=①77DoWhiles②77y=③77s=s*④80tz=①80Forts=1To②80tz=③*280Print"最初共有桃子"&④82CommandButton82TextBox82①=Text1.Text84①84②86①86②87Fori=①87②87Print"total:"&③89①89②89Text3.Text=③91①91②91③=Int(Rnd*1000)94Fori=1To①94Forj=②94Ifa(i)③a(j)Then94④96Forx=①To67998Step1096Print②96③99①=InputBox("请输入您的体重：")99If②>25Then99If③Then102If①Then102②102Text1.Text=③104CaseIs①104CaseIs②104③108If①=3Then108If②Then108Print③114a=①114s=②114b=③116s=s+①116i=②116Print"s="&③117s=s+①117N=②117Print"N="&CStr(③)119①119DoWhile②119p=p*③119n=④120L=0.7*①120H=②120Print③122T=①122S2=②*T122Print③124s=①124If②Then124Print③175S=①175S=②+S(n-1)175Sum=S(③)178Fac=①178Fac=a*②(a-1)178S=Fac(3)+Fac(③)+Fac(7)181max=①181If②Then181min=③182Print③182Forj=9ToiStep①182cj(j)=②183Pi=①183Pi=Pi+②183t=③183Pi=Pi*④595Fori=2To100Step①595s=②595Next③596r=Val(①)596c=pi*②596③=CStr(c)597s=①597p=②597s=③598t=Val(①)598If②Then598③599s=①599n=②599LoopWhiles③500600Cj=Val(①)600IfCj②60Then600IfCj>=60③Then601n=①601s=②601s=③602①602p=p*②602n=③603Fori=1To①Step1603a=②603Text1.Text=CStr(③)604s=①604Fori=1To②Step1604s=③6