UC知道帮忙做四个VB程序
来源：百度知道 编辑：UC知道 时间：2024/05/23 16:14:19
1、编程实现打印输出所有的两位数。
2、计算公民应纳个人所得税。这里将个人所得税具体计算问题理想化，假设以1000元作为标准，1000~1999的税率为5%，2000~4999的税率为10%，5000~9999的税率为25%，10000~19999的税率为40%，20000以上的税率为45%。
3、编写一个程序，输出2000-2080年之间的所有闰年（闰年就是能被4整除但不能被100整除的年份，但能被400整除的也是闰年）
4、为铁路编写计算运费的程序。
假设铁路托运行李，规定每张客票托运费的计算方法是：
行李重量不超过 50 kg时，每千克0.25元；超过 50 kg而不超过 100 kg时，其超过部分每千克0.35元；超过 100 kg时，其超过部分每千克0.45元。 用 If…Then…ElseIf语句实现。
要考试了。。。。。。
需要的话我还能加分 1楼的 不知道是我太笨还是你VB太高级了 我运行不了。。。。。
2、计算公民应纳个人所得税。这里将个人所得税具体计算问题理想化，假设以1000元作为标准，1000~1999的税率为5%，2000~4999的税率为10%，5000~9999的税率为25%，10000~19999的税率为40%，20000以上的税率为45%。
3、编写一个程序，输出2000-2080年之间的所有闰年（闰年就是能被4整除但不能被100整除的年份，但能被400整除的也是闰年）
4、为铁路编写计算运费的程序。
假设铁路托运行李，规定每张客票托运费的计算方法是：
行李重量不超过 50 kg时，每千克0.25元；超过 50 kg而不超过 100 kg时，其超过部分每千克0.35元；超过 100 kg时，其超过部分每千克0.45元。 用 If…Then…ElseIf语句实现。
要考试了。。。。。。
需要的话我还能加分 1楼的 不知道是我太笨还是你VB太高级了 我运行不了。。。。。
1
dim i as integer
for i =10 to 99
printer.print i
next
2
function t (x as double) as double
dim y as double
if x >20000 then
y=(x-20000)*0.45
y=y+t(20000)
elseif x > 10000 then
y = (x -10000)* .4
y = y + t(10000)
elseif x >5000 then
y = (x - 5000)*0.25
y = y + t(5000)
elseif x >2000 then
y = (x -2000)*0.10
y = y + t(2000)
else if x >1000 then
y = (y -1000)*0.05
endif
t = y
end function
用法: msgbox t(123456)
3
dim i as integer
dim s as string
for i = 2000 to 2080
if (i mod 400 =0) or (i mod 4 =0 and i mod 100 <>0 )then s = s & vbcrlf & i
next
msgbox s
4
同2题 ，不重复，只是数据区别
要求加分 ：)
4个才20分
。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。