VB设计程序,输入月份和张数,能计算出应付的金额飞机票的标准价格是1000元/张,1月或3~6月,每张打6折;9~11月每张打7折;7,8两个月每张打8折;其他月份每张9折.

VB设计程序,输入月份和张数,能计算出应付的金额飞机票的标准价格是1000元/张,1月或3~6月,每张打6折;9~11月每张打7折;7,8两个月每张打8折;其他月份每张9折.
VB设计程序,输入月份和张数,能计算出应付的金额
飞机票的标准价格是1000元/张,1月或3~6月,每张打6折;9~11月每张打7折;7,8两个月每张打8折;其他月份每张9折.

VB设计程序,输入月份和张数,能计算出应付的金额飞机票的标准价格是1000元/张,1月或3~6月,每张打6折;9~11月每张打7折;7,8两个月每张打8折;其他月份每张9折.
Private Sub Command1_Click()
On Error GoTo Hell
Dim M As Integer '月份
Dim N As Long '张数
Dim R As Integer '折扣
M = InputBox("请输入月份", "月份", 1)
If M > 0 And M < 13 Then
N = InputBox("请输入购买张数", "张数", 1)
If N > 0 Then
R = Choose(M, 6, 9, 6, 6, 6, 6, 8, 8, 7, 7, 7,9)
MsgBox M & "月份飞机票(" & R & "折)" & vbCrLf & N & "张合计:" & (1000 * (N * R / 10)) & "元"
End If
Else
MsgBox "输入错误的月份"
End If
Hell:
End Sub