几道vb题~~帮忙作下

来源：百度知道 编辑：UC知道 时间：2024/05/23 19:31:12
第一题：

现要求编写一程序，在文本框text1中输入工资或薪金总额，单击command1命令按钮，将求得的个人所得税输出在文本框text2中。
假定某单位薪金总值不超过42000元，薪金的起征点为2000。
如果输入数据超过42000，则文本框Text2中显示汉字“出错”（不包括引号）
题目中的变量要求采用变体类型或Double类型。

42000元以下的工资、薪金部分的税率如下所示。
级数 全月应纳税所得额 税率 公式（设总额为x）
1 不超过500元 5% (x-2000)*0.05
2 超过500元至2000元的部分 10% 500*0.05+(x-2000-500)*0.1
3 超过2000元至5000元的部分 15% 500*0.05+1500*0.1+(x-2000-2000)*0.15
4 超过5000元至20000元的部分 20% 500*0.05+1500*0.1+3000*0.15+(x-2000-5000)*0.2
5 超过20000元至40000元的部分 25% 500*0.05+1500*0.1+3000*0.15+15000*0.2+(x-2000-20000)*0.25

第二题：

判断一个三位整数是否为水仙花数：满足数X = 数X个位、十位、百位的立方和。如： 153 = 1*1*1 + 5*5*5 + 3*3*3 是水仙花数，而152则不是。要求在文本框text1中输入一个三位整数，在标签Label1中显示 "是"或 "不是" 。点击命令按钮Command1运行。

有做好的发邮箱可以~~~直接留言也可
lovewangruibo@163.com
262394110@qq，com
做好的要frm的~~~谢啦谢啦谢啦！！！！！！

第一题如下（主要是一个SELECT CASE 的应用 公式是直接复制你的）
Private Sub Command1_Click()
dim gz as double
gz=text1.text
if gz>42000 then
text2.text="出错"
else
select case true
case gz<=500
text2.text=5% (gz-2000)*0.05
case gz>500 and gz<=2000
text2.text=10% 500*0.05+(gz-2000-500)*0.1
case gz>2000 and gz<=5000
text2.text=15% 500*0.05+1500*0.1+(gz-2000-2000)*0.15
case gz>5000 and gz<=20000
text2.text= 20% 500*0.05+1500*0.1+3000*0.15+(gz-2000-5000)*0.2
case else
text2.text=25% 500*0.05+1500*0.1+3000*0.15+15000*0.2+(gz-2000-20000)*0.25
endcase
endif
end sub
第二题（这题主要是MID函数的应用 mid(字符串，i,j) 从字符串的第i位开始取j长度的一段，所以先要把X转化为字符型，取完后再转化为数值型）
Private Sub Command1_Click()
dim x as integer
dim a,b,c as integer
x=val(text1.text)
a=val(mid(str(x),1,1)) 取出百位数
b=val(mid(str(x),2,1)) 取出十位数
c=val(mid(str(x),3,1)) 取出个位数
if x=a*a*a+b*b*b+c