vb编程问题，小弟急需知道

来源：百度知道 编辑：UC知道 时间：2024/05/17 06:04:27
某航空公司规定在旅游的旺季7～9月份，如果订票数超过20张，票价优惠15%，20张以下，优惠5%；在旅游的淡季1～5月份、10月份、11月份，如果订票数超过20张，票价优惠30%，20张以下，优惠20%；其他时间一律优惠2%设计程序。编程实现由文本框输入订票月份和张数后按回车键在图形框中输出原票价，优惠价，优惠金额。

新建工程,2个文本框:text1和text2, 1个PICBOX:Picture1

Private Sub Command1_Click()
Picture1.Cls
Dim m As Integer '月份
Dim num As Integer '票数
Dim ch As Long '单价
Dim Sum As Long '总价格
ch = 100'假设单价为100元
If Not IsNumeric(Text1) Or Val(Text1) <= 0 Or Val(Text1) > 12 Then
Text1 = "": Text1.SetFocus: MsgBox "月份必须为1-12的数字", vbCritical, "Sorry": Exit Sub
End If
If Not IsNumeric(Text2) Or Val(Text2) <= 0 Then
Text2 = "": Text2.SetFocus: MsgBox "张数必须为大于0的数字", vbCritical, "Sorry": Exit Sub
End If
num = Val(Text2)
m = Val(Text1)
Sum = ch * num
Select Case m
Case 7 To 9
If num > 20 Then
Sum = Sum * 0.85
ElseIf num <= 20 Then
Sum = Sum * 0.95
End If
Case 1, 2, 3, 4, 5, 10, 11
If num > 20 Then
Sum = Sum * 0.7
ElseIf num <= 20 Then
Sum