使用VB为某航空公司计算票价的优惠率的程序.假设优惠规定如下：为某航空公司计算票价的优惠率.假设优惠规定如下：（1）在旅游的旺季7～9月份,如果订票数超过20张,票价优惠15％,20张以下

Question

使用VB为某航空公司计算票价的优惠率的程序.假设优惠规定如下：
为某航空公司计算票价的优惠率.假设优惠规定如下：（1）在旅游的旺季7～9月份,如果订票数超过20张,票价优惠15％,20张以下,优惠5％； （2）在旅游的淡季1～5月份、10月份、11月份,如果订票数超过20张,票价优惠30％,20张以下,优惠20％； （3）其他情况一律优惠10％.试设计程序,根据月份和订票数决定票价的优惠率 提示：涉及多分支.用Select case 语句.

Answer 1

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
满意请采纳