2求出所有的水仙花数.水仙花数是指3位的正整数,其各位数字的立方和等于该正整数本身.例如,407=4*4*4+0*0*0+7*7*7

　　在窗体上画2个Command控件,和3个text控件双击打开代码窗口,复制下面：

　　PrivateSubCommand1_Click()

　　DimaAsInteger

　　DimbAsInteger

　　DimcAsInteger

　　Fora=1To9

　　Forb=0To9

　　Forc=0To9

　　If(a*a*a+b*b*b+c*c*c)=(a*100+b*10+c)ThenPrinta*100+b*10+c

　　Nextc

　　Nextb

　　Nexta

　　EndSub

　　3机票优惠,某航空公司规定在7-9月份,如果订票数超过20张,则票价优惠15%;如果超过10张,则票价优惠5%;在1-5月份,10月和11月份,如果订票数超过20张,则票价优惠25%;如果超过10张,则票价优惠15%.设计程序,可以输入票价,月份和订票数,并显示出所需要的金额.

　　PrivateSubCommand2_Click()

　　'text1是月份

　　'text2是数量

　　'text3是票价

　　iftext1.text>6andtext1.text19thenmsgbox"您的票价是:"&text3.text*0.85*text2.text&"元"

　　iftext2.text>9andtext2.text0andtext1.text19thenmsgbox"您的票价是:"&text3.text*0.75*text2.text&"元"

　　iftext2.text>9andtext2.text