这个是用VB6.0编写的小程序,主要用来计算分别在老的和新的税率下所扣税的金额。而且本程序可以从扣税金额反推出个人的税前收入。(文章最后附有最新税率表哦 ^_^) 以下是程序的界面预览:
把下面用横线限定起来的内容复制一下,然后新建个txt文本文档,取名为” 个人扣税计算器.txt”,再把复制的东西粘贴进去,然后把后缀名”.txt”改成”.frm”保存,最后用VB6.0打开就可以啦!
VERSION 5.00
Begin VB.Form Form1
Caption = "个人扣税计算器"
ClientHeight = 8520
汽车座套广告 ClientLeft = 60
ClientTop = 450
ClientWidth = 10260
Icon = "个人扣税计算器.frx":0000
LinkTopic = "Form1"
ScaleHeight = 8520
ScaleWidth = 10260
StartUpPosition = 3 '窗口缺省
Begin VB.TextBox t1
BackColor = &H00C0E0FF&
BeginProperty Font
Name = "楷体_GB2312"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 735
Index = 3
Left = 4560
Locked = -1 'True
MultiLine = -1 'True
TabIndex = 12
Top = 7680
Width = 5595
End
Begin VB.TextBox t1
BackColor = &H00C0E0FF&
BeginProperty Font
Name = "楷体_GB2312"
Size = 15.75
Charset = 134
Weight = 700
红豆杉提取物
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 735
Index = 2
Left = 4560
Locked = -1 'True
MultiLine = -1 'True
TabIndex = 11
Top = 6900
光电限位开关 Width = 5595
End
Begin VB.TextBox t1
BackColor = &H00DCE0FA&
BeginProperty Font
Name = "楷体_GB2312"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 975
Index = 1
Left = 900
MultiLine = -1 'True
TabIndex = 10
Top = 7440
Width = 3555
End
Begin VB.CommandButton Command2
Caption = "反推计算"
BeginProperty Font
Name = "楷体_GB2312"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
ruu EndProperty
Height = 1515
Left = 120
TabIndex = 8
Top = 6900
Width = 735
End
Begin VB.TextBox t1
BackColor = &H00FFFFC0&
BeginProperty Font
Name = "楷体_GB2312"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1575
Index = 0
Left = 60
MultiLine = -1 'True
TabIndex = 1
Top = 840
Width = 10095
End
Begin VB.TextBox t2
BackColor = &H00C0FFFF&
BeginProperty Font
潮湿1V2
Name = "楷体_GB2312"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
彩井盖 Strikethrough = 0 'False
EndProperty
Height = 1095
Index = 0
Left = 60
Locked = -1 'True
MultiLine = -1 'True
TabIndex = 3
Top = 3420
Width = 10095
End
Begin VB.TextBox t2
BackColor = &H00FFC0C0&
BeginProperty Font
Name = "楷体_GB2312"