设计vb程序计算税率

代码：

Private Sub Command1_Click()

Dim n As Single, w As Single

Dim s As Single, m As Single

n = Val(Text1.Text)

w = n - 500

Select Case w

    Case Is <= 500

        s = 0.05

    Case Iw < 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 Is > 100000

        s = 0.45

    End Select

    m = w * s

    Text2.Text = m

End Sub

Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

End Sub

心得体会：通过老师的讲解，明白了Select Case结构，并根据课本上的程序，自己慢慢的编出了合适的程序，感觉慢慢的懂得了一些编程技巧。