VB设计程序,输入月份和张数,能计算出应付的金额
来源:学生作业帮 编辑:搜狗做题网作业帮 分类:综合作业 时间:2024/07/31 09:35:33
VB设计程序,输入月份和张数,能计算出应付的金额
飞机票的标准价格是1000元/张,1月或3~6月,每张打6折;9~11月每张打7折;7,8两个月每张打8折;其他月份每张9折.
飞机票的标准价格是1000元/张,1月或3~6月,每张打6折;9~11月每张打7折;7,8两个月每张打8折;其他月份每张9折.
![VB设计程序,输入月份和张数,能计算出应付的金额](/uploads/image/z/881796-12-6.jpg?t=VB%E8%AE%BE%E8%AE%A1%E7%A8%8B%E5%BA%8F%2C%E8%BE%93%E5%85%A5%E6%9C%88%E4%BB%BD%E5%92%8C%E5%BC%A0%E6%95%B0%2C%E8%83%BD%E8%AE%A1%E7%AE%97%E5%87%BA%E5%BA%94%E4%BB%98%E7%9A%84%E9%87%91%E9%A2%9D)
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 Su
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 Su
VB设计程序,输入月份和张数,能计算出应付的金额
如何设计用vb语言编写一个程序,输入三个数,输出其中的最大数
vb中编写简单程序编写简单程序,随机输入几个数,判断其是偶数还是奇数,然后最后是计算出你所输入的数奇偶数分别的个数
求各位大侠一VB程序其具体目的是:输入三组成绩,然后在点击“cammand”按钮,计算出三组成绩的最大数.
设计一个VB程序,计算整数各位数上的和
设计一个程序,要求输入三个整数,能求出其中最大的数并输出
输入三个整数,请你设计一个程序,求出这三个数的和、乘积和平均数.
c程序 1 设计一个程序,输入123,返回1+2+3也就是三个数的和6,输入-123 也还是三个数的和,是6.
VB程序求1-40之间能被5整除得所有数的和.
VB程序编写一个程序 1-100 之间 同时能被2和5整除的数
用VB写 计算器程序,用户输入运算数和四则运算符号,输出计算结果
使用VB编写设计计算语文、数学、英语这三门课程平均成绩的程序,利用文本框作数据的输入和输出