带星号的程序代码总结.docxVIP

3输入三个数逆序显示m=thisform.text1.valuea=int(m/100)b=int(mod,100)/10)c=mod(m,10)n=100*c+10*b+athisform.label2.caption=结果为：+str(n,3)4求圆面积显示在标签中r=thisform.text1.values=pi()*r*rthisform.label2.caption=该圆的面积为：+str(s,3)5逆序显示加messageboxm=thisform.text1.valuea=int(m/100)b=int(mod,100)/10)c=mod(m,10)n=100*c+10*b+athisform.label2.caption=结果为：+str(n,3)5逆序显示加messageboxx=thisform.text1.valueif x=100 and x=999 and int(x)=x x1=int(x/100) x2=int(mod(x,100)/10)x3=mod(x,10) y=x3*100+x2*10+x1 thisform.label2.caption=结果为：+str(y,3) else messagebox(入的不是一个三位自然数，请重新输入！) thisform.text1.value=0 thisform.text1.setfocus endif6圆面积messagebox显示r=thisform.text1.values=pi()*r*rmessagebox(圆面积=+str(s,3),0)8判断能否构成三角形a=thisform.text1.valueb=thisform.text2.valuec=thisform.text3.valueif a+bc and a+cb and b+cal=(a+b+c)/2area=sqrt(l*(l-a)*(l-b)*(l-c))thisform.text4.value=round(area,1)elsemessagebox(不能构成三角形,请重新输入！)thisform.text1.value=0thisform.text2.value=0thisform.text3.value=0thisform.text4.value=0thisform.text1.setfocusendif9判断是否是闰年D=thisform.text1.valueY=year(d)If y/4=int(y/4) and y/100int(y/100) or int(y/400)=y/400Y1=”是”ElseY1=”不是”Endif Thisform.label2.caption=y110比较大小双分支a=thisform.text1.valueb=thisform.text2.valueif abthisform.text3.value=aelsethisform.text3.value=bendif11单分支A=thisform.text1.valueB=thisform.text2.valueIf abA=bendifThisform.text3.value =a12输入两个数按从大到小输出A=thisform.text1.valueB=thisfor.text2.valueIf abC=aA=bB=cendifThisform.text1.value=a Thisform.text2.value=b13输入三个数按从小排列A=thisform.text1.valueB=thisform.text2.valueC=thisform.text3.valueIf abT=aA=bB=tIf acT=aA=cC=tIf bcT=bB=cC=tEndifEndifEndifThisform.text1.value=aThisform.text2.value=bThisform.text3.value=c14季节m=val(thisform.text1.value)do case case m=3 or m=4 or m=5 s=春季case m=6 or m=7 or m=8 s=夏季 case m=9 or m=10 or m=11 s=秋季 case m=12 or m=1 or m=2 s=冬季 endcase thisform.label1.caption=该季节为：+s15计算1+100s=0i=1do while i=100s=s+ii=i+1enddoThisform.text1.value=s16计算N!P=1FOR I=1 T0 THISFORM.TEXT1.VALUEP=p*iEndforThisf