使用VB为某航空公司计算票价的优惠率的程序.假设优惠规定如下:
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/10/01 12:19:49
使用VB为某航空公司计算票价的优惠率的程序.假设优惠规定如下:
为某航空公司计算票价的优惠率.假设优惠规定如下:(1)在旅游的旺季7~9月份,如果订票数超过20张,票价优惠15%,20张以下,优惠5%; (2)在旅游的淡季1~5月份、10月份、11月份,如果订票数超过20张,票价优惠30%,20张以下,优惠20%; (3)其他情况一律优惠10%.试设计程序,根据月份和订票数决定票价的优惠率 提示:涉及多分支.用Select case 语句.
为某航空公司计算票价的优惠率.假设优惠规定如下:(1)在旅游的旺季7~9月份,如果订票数超过20张,票价优惠15%,20张以下,优惠5%; (2)在旅游的淡季1~5月份、10月份、11月份,如果订票数超过20张,票价优惠30%,20张以下,优惠20%; (3)其他情况一律优惠10%.试设计程序,根据月份和订票数决定票价的优惠率 提示:涉及多分支.用Select case 语句.
Private Sub Form_Click() Me.Cls Print "优惠率为:" Select Case Combo1 Case 7 To 9 If Text1 < 20 Then Print "5%" Else Print "15%" End If Case 1 To 5, 10, 11 If Text1 > 20 Then Print "30%" Else Print "20%" End If Case Else Print "10%" End Select End Sub Private Sub Form_Load() For i = 1 To 12 Combo1.AddItem i, i - 1 Next i End Sub Private Sub Text1_Change() Text1 = Val(Text1) End Sub
满意请采纳
满意请采纳
某公园的门票价格规定如下:票价每人10元,40人以上(包含40人)享受团体优惠,其中40~59人全部成员九折优惠,60人
某森林公园的门票规定如下:40人以下没人10元,40人以上享受团体优惠,其中40~80人九折优惠,80人以上八折
某园林的门票规定如下:40人以下每人10元,40人以上享受团体优惠,其中40~80人9折优惠,80人以上8折优惠,乙两班
某园林的门票规定如下:40人以上每人10元,40人以上享受团体优惠,其中40到80人九折优惠,80人已上八折优惠,某校七
某超市对顾客实行优惠购物,规定如下
某超市在春节期间对顾客实行优惠,规定如下:
某超市在五一期间对顾客实行优惠,规定如下,少于200元 不予优惠
光华超市对顾客实行优惠购物,优惠规定如下:
某旅游景点的门票价格及优惠办法如下表:
某旅游景点的门票价格及优惠办法如下:人数1-49人每人票价12元 人数50-99人每人票价10元 人数100人以上每
VB程序计算VB计算:假设目前房价为4000元每平方米,每年上涨百分之三;大学毕业生的起点月薪是1500元,每年增长百分
父亲、儿子、女儿准备外出旅行,咨询时了解到,甲旅行社规定:大人买一张全票,两个孩子的费用可按全票价的一半优惠;乙旅行社规