3.3课后第九题——设计一个个人纳税计算程序-优快云博客

本文介绍了如何使用Visual Basic (VB) 编写一个简单的税率计算程序。通过编写“计算”和“清除”按钮的单击事件，实现了输入薪资并根据不同的薪资范围计算相应税率的功能。

首先建立应用程序界面与设置对象属性，然后编写程序代码；

首先编写“计算”按钮的单击事件：

Private Sub Command1_Click()
   Dim M As Single, N As Single, S As Single, Y As Single
   M = Val(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.SetFocus
   Text1.Text = ""
   Text2.Text = ""
End Sub
最后顺利运行程序。

心得体会：今天学了Select case语句，用起来感觉很方便，可以实现多分支选择，不过这当然只适用于编写选择类的程序；还有一开始没编写“清除”的单击事件，后来通过运行时发现了这一问题，改善后觉得用起来方便多了；另外再看例题时看到“Text1.Setfocus”这句话不明白,问了老师以后明白了，在本题编写“清除”事件时，可以用“Setfocus”,也可不用，如按上文写的“Text1.SetFocus”,则在运行程序时，光标会首先定位在“Text1”中，其实“SetFocus”顾名思义极为“设置焦点”。感觉这节课学的挺不错的，算是学到了不少东西，小开心、、、嘻嘻