编号题目答案1Fori=1To①(Text1.Text)Fori=1ToLen(Text1.Text)1temp2=②temp2=9-temp；temp2=-temp+91Text2.Text=③Text2.Text=y4a=i\①a=i\1004b=(i-a*②)\10b=(i-a*100)\104③Nexti；Next9①=Val(InputBox("请输入一个数"))s(i)=Val(InputBox("请输入一个数"))9Fori=9To0Step②Fori=9To0Step-19Print③Prints(i);；Prints(i)；Printstr(s(i))；PrintCstr(s(i))12ss=Val(①)ss=Val(Text1.Text)；ss=Val(Text1)12h=②h=ss\3600；h=Int(ss/3600)；h=ss\60\6012s=(ss-h*3600)Mod③s=(ss-h*3600)Mod6013Ifa>bThenmax=aElse①Ifa>bThenmax=aElsemax=b13Ifc>maxThen②Ifc>maxThenmax=c13Label3.Caption=CStr(③)Label3.Caption=CStr(max)15Fori=1To①Fori=1To415Forj=1To②Forj=1To515Print③;Print"*";20If①ThenIfx>=10Then；If10<=xThen；Ifx>9Then；Ifx>9Then；If9>xThen20s=4*②s=4*x*0.8；s=4*0.8*x20Label1.Caption=CStr(③)Label1.Caption=CStr(s)22Fori=1To①Fori=1To1022m=②+i*10m=j*8+i*10；m=8*j+i*1024x=Val(①)x=Val(Text1.Text)；x=Val(Text1)24Ifc=②ThenIfc=xThen24③n=126LabelLabel126①Label1.Top=Label1.Top-10026②Label1.Top=Label1.Top+10028b=Val(①)b=Val(Text2.Text)；b=Val(Text2)28If②ThenIfp>=0Then；If0<=pThen；If-1<pThen；Ifp>-1Then28③Else30①=Val(InputBox("请输入x的值"))x=Val(InputBox("请输入x的值"))30②=x+5*ay=x+5*a30③EndIf32a=Val(①)a=Val(Text1.Text)；a=Val(Text1)32②=g*100+shi*10+baib=g*100+shi*10+bai32③=CStr(b)Text2.Text=CStr(b)；Text2=CStr(b)①=Val(InputBox("请输入边长a的36a=Val(InputBox("请输入边长a的值："))值："))s=②(q*(q-a)*(q-b)*(q-36s=sqr(q*(q-a)*(q-b)*(q-c))c))36Print③Prints；PrintStr(s)；PrintCStr(s)38If((yearMod4=0)And(yearMod100If((yearMod4=0)And(yearMod100<>0))Or(yearMod400=0)Then<>0))①(yearMod400=0)Then38Print②Print"是闰年"38Print③Print"不是闰年"ForYiyuan=1To100；ForYiyuan=1To99；ForYiyuan=1To98；ForYiyuan40ForYiyuan=1To①=1To95；ForYiyuan=1To9440Wujiao=100-Wuyuan-②Wujiao=100-Wuyuan-Yiyuan40③EndIf41cost=①cost=x*6.8；cost=6.8*x41②EndIf41Print③Printcost；PrintStr(cost)；PrintCStr(cost)43Fib=①Fib=143②EndIf43S=Fib(③)S=Fib(10)45LabelLabel145TextBoxText1编号题目答案45CommandButtonCommand150CommandButtonCommand150Dima,b,cAs①Dima,b,cAsInteger；Dima,b,cAsLong50②EndIf51Fori=100