为某航空公司设计程序,根据月份和订票张数决定票价的优惠率。假设优惠规定如下: (1) 在旅游的旺季7~9月份,如果订票数超过20张,票价优惠15%,20张以下,优惠5%; (2) 在旅游的淡季1~5月份、10月份、11月份,如果订票数超过20张,票价优惠30%,20张以下,优惠20%; (3) 其他情况一律优惠10%。 Private Sub Command1_Click() Dim m As Integer, n As Integer, r As Integer 'm保存月份,n保存票的数量,r保存优惠率 m = Val(Text1.Text) n = Val(Text2.Text) __________ Case Is <= 5, 10, 11 If n __________ If n Case Else r = 10 End Select Label4.Caption = " 所订机票的优惠率为:" & Str(r) & "%" End Sub