求利润

验目的：计算一定金额的所需缴纳的个人所得税

实验原理：采用了select case n .

Private Sub Command1_Click()
Dim m As Single, s As Single
Dim n As Single, y As Single
m = Text1.Text
n = m - 800

Select Case n
Case Is < 500
s = 0.05
Case Is < 2000
s = 0.1
Case Is < 5000
s = 0.15
Case Is < 20000
s = 0.2
Case Is < 40000
s = 0.25
Case Is < 60000
s = 0.3
Case Is < 80000
s = 0.35
Case Is < 100000
s = 0.4
Case Else
s = 0.45
End Select

y = s * n
Text2.Text = y

End Sub

Private Sub Command2_Click()
Text1.Text = ''
Text2.Text = ''
End Sub

个人心得体会：case 1 这样的不可以写成case1 关键字检验可以通过不同颜色来辨别。Text1.Text = ''
可以采取这样的方式来清楚原来的数据。