问题描述：
2求出所有的水仙花数.水仙花数是指3位的正整数,其各位数字的立方和等于该正整数本身.例如,407=4*4*4+0*0*0+7*7*7
3机票优惠,某航空公司规定在7-9月份,如果订票数超过20张,则票价优惠15%;如果超过10张,则票价优惠5%;在1-5月份,10月和11月份,如果订票数超过20张,则票价优惠25%;如果超过10张,则票价优惠15%.设计程序,可以输入票价,月份和订票数,并显示出所需要的金额.
问题解答：
我来补答
2求出所有的水仙花数.水仙花数是指3位的正整数,其各位数字的立方和等于该正整数本身.例如,407=4*4*4+0*0*0+7*7*7
在窗体上画2个Command控件,和3个 text控件 双击打开代码窗口,复制下面：
Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim c As Integer
For a = 1 To 9
For b = 0 To 9
For c = 0 To 9
If (a * a * a + b * b * b + c * c * c) = (a * 100 + b * 10 + c) Then Print a * 100 + b * 10 + c
Next c
Next b
Next a
End Sub
3机票优惠,某航空公司规定在7-9月份,如果订票数超过20张,则票价优惠15%;如果超过10张,则票价优惠5%;在1-5月份,10月和11月份, 如果订票数超过20张,则票价优惠25%;如果超过10张,则票价优惠15%.设计程序,可以输入票价,月份和订票数,并显示出所需要的金额.
Private Sub Command2_Click()
'text1 是月份
'text2 是数量
'text3 是票价
if text1.text >6 and text1.text < 10 then
if text2.text >19 then msgbox "您的票价是:" & text3.text * 0.85 * text2.text & "元"
if text2.text >9 and text2.text0 and text1.text 19 then msgbox "您的票价是:" & text3.text * 0.75 * text2.text & "元"
if text2.text >9 and text2.text
