一道VB的简单编程！！在线等！！！急求啊啊啊！！！！！！！

显示全部楼层 · 2011-10-30 10:38:44

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

千问 · 2011-10-30 10:38:44

PrivateSubCommand1_Click()\'Text1.Text票价\'Text2.Text月份\'Text3.Text订票数IfText2.Text=7OrText2.Text=8OrText2.Text=9ThenIfText3.Text=20ThenMsgBox(Text1.Text-Text1.Text*0.15)*Text3.TextElseIfText3.Text=10AndText3.Text20ThenMsgBox(Text1.Text-Text1.Text*0.05)*Text3.TextElseMsgBoxText1.Text*Text3.TextEndIfElseIfText2.Text=12OrText2.Text=6ThenMsgBoxText1.Text*Text3.TextElseIfText3.Text=20ThenMsgBox(Text1.Text-Text1.Text*0.25)*Text3.TextElseIfText3.Text=10AndText3.Text20ThenMsgBox(Text1.Text-Text1.Text*0.15)*Text3.TextElseMsgBoxText1.Text*Text3.TextEndIfEndIfEndSub