VF期末重点代码题.doc

《VF期末重点代码题.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、r=thisform.text1.values=pi()*r^2thisform.text2.value=sx=thisform.text1.valuea=mod(x,10)b=int(mod(x,100)/10)c=int(x/100)y=a*100+b*10+cthisform.label2.caption="结果为："+str(y)r=thisform.text1.values=pi()*r^2thisform.label2.caption="圆面积为："+str(s,5,2)x=thisform.text1.valueifx>=100andx<=999

2、a=mod(x,10)b=int(mod(x,100)/10)c=int(x/100)y=a*100+b*10+cthisform.label2.caption="结果为："+str(y)elsemessagebox("不是三位自然数！")endifr=thisform.text1.values=pi()*r^2messagebox("圆面积为"+str(s,5,2))a=thisform.text1.valueb=5*(a-32)/9thisform.text2.value=round(b,1)a=thisform.text1.valueb=thisform

3、.text2.valuec=thisform.text3.valuel=(a+b+c)/2ifa+b>canda+c>bandb+c>as=sqrt(l*(l-a)*(l-b)*(l-c))thisform.text4.value=round(s,1)elsemessagebox("不能构成三角形，重新输入！")thisform.text1.value=0thisform.text2.value=0thisform.text3.value=0thisform.text1.setfocusendifd=thisform.text1.valuey=year(d)i

4、fy/4=int(y/4)andy/100<>int(y/100)orint(y/400)=y/400thisform.label2.caption="是"elsethisform.label2.caption="不是"endifa=thisform.text1.valueb=thisform.text2.valueifa>bthisform.text3.value=aelsethisform.text3.value=bendifa=thisform.text1.valueb=thisform.text2.valueifa

5、text3.value=aa=thisform.text1.valueb=thisform.text2.valueifa

6、bt=aa=bb=tendififa

7、1fori=1tons=s*in=thisform.text1.values=1dowhilen>=1s=s*nn=n-1enddothisform.text2.value=sendforthisform.text2.value=ss=0fori=1to100step2s=s+iendforthisform.text1.value=sn=thisform.text1.values=0fori=1tons=s+i^2endforthisform.text2.value=ss=1n=1f=1dowhile1/f>=0.f=f*ns=s+1/fn=n+1enddot

8、hisform.text1.value