3.3课后第九题——设计一个个人纳税计算程序

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

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

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”顾名思义极为“设置焦点”。感觉这节课学的挺不错的，算是学到了不少东西，小开心、、、嘻嘻