VB６制作一个简单小程序（税收计算）

教程所需文件均发布在百度云__见文末

1.安装VB6

1. 解压文件VB 6.0
2. 双击key. reg进行注册表写入
3. 只需双击该软件,非下方说明均默认,安装路径看自己
4. 产品ID如下
5. 这里选择典型安装
   
   5.要有耐心,中间会有一次重启,最后会提示安装MSDN,不需要安装他(因为下面用不到)

2.安装完成开始制作

1.打开该软件,桌面可能没有,去开始那里找.
2.打开之后:参考视频(在百度云)
3.代码:

Private Sub Command1_Click()
    Dim y As Double
    y = Val(Text1.Text) - 5000
    If y < 0 Then
        Text2.Text = "免征"
    ElseIf y < 3000 Then
        Text2.Text = (y - 0) * 0.03
    ElseIf y < 12000 Then
        Text2.Text = (y - 3000) * 0.1 + 90
    ElseIf y < 25000 Then
        Text2.Text = (y - 12000) * 0.2 + 90 + 900
    ElseIf y < 40000 Then
        Text2.Text = (y - 25000) * 0.25 + 90 + 900 + 2600
    ElseIf y < 60000 Then
        Text2.Text = (y - 35000) * 0.3 + 90 + 900 + 2600 + 2500
    ElseIf y < 85000 Then
        Text2.Text = (y - 55000) * 0.35 + 90 + 900 + 2600 + 2500 + 6000
    Else
        Text2.Text = (y - 80000) * 0.45 + 90 + 900 + 2600 + 2500 + 6000 + 8750
    End If
End Sub

亲试可以,本人在win7环境下操作

百度云连接:
链接: https://pan.baidu.com/s/1P5L8BSBo90-gvmGYgfnagA 提取码: 37mn 复制这段内容后打开百度网盘手机App，操作更方便哦