使用VB为某航空公司计算票价的优惠率的程序.假设优惠规定如下:
来源:学生作业帮 编辑:搜搜考试网作业帮 分类:综合作业 时间:2024/07/10 23:29:52
使用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 语句.
![使用VB为某航空公司计算票价的优惠率的程序.假设优惠规定如下:](/uploads/image/z/17895062-38-2.jpg?t=%E4%BD%BF%E7%94%A8VB%E4%B8%BA%E6%9F%90%E8%88%AA%E7%A9%BA%E5%85%AC%E5%8F%B8%E8%AE%A1%E7%AE%97%E7%A5%A8%E4%BB%B7%E7%9A%84%E4%BC%98%E6%83%A0%E7%8E%87%E7%9A%84%E7%A8%8B%E5%BA%8F.%E5%81%87%E8%AE%BE%E4%BC%98%E6%83%A0%E8%A7%84%E5%AE%9A%E5%A6%82%E4%B8%8B%EF%BC%9A)
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元,每年增长百分
父亲、儿子、女儿准备外出旅行,咨询时了解到,甲旅行社规定:大人买一张全票,两个孩子的费用可按全票价的一半优惠;乙旅行社规