建立一个命令按钮在将下面的代码复制进去就可以了Private Sub Command1_Click()Dim i%, j%i = Val(InputBox("请输入月份", "输入月份"))If i = 9 ThenMsgBox "月份超出范围!", vbExclamation, "提示"Exit SubEnd Ifj = Val(InputBox("请输入票数", "输入票数"))If i >= 7 And i = 20 Then
Print i; "月份"; j; "票", "优惠15%"
Else
Print i; "月份"; j; "票", "优惠5%"
End IfEnd IfIf i >= 1 And i = 20 Then
Print i; "月份"; j; "票", "优惠30%"
Else
Print i; "月份"; j; "票", "优惠20%"
End IfEnd IfEnd Sub |