[说明] 编写一工资调整程序。若基本工资大于等于800元，工资增加20%，若小于800元大于 600元，则工资增加15%，若小于600元则工资增加10%。要求在文本框Text1 中增加某职工的基本工资，单击“计算”按钮，在标签框Label1中输出增加后的工资。
Private Sub Command1_ Click( )
Dim x As Integer, y As Single
(1)
Select Case x
Case Is ＞ = 800
y=x*1.2
Case Is ＞ = 600
y=x, 1.5
(2)
y=x*1.1
(3)
Label1. Caption = y
(4)
Private Sub Command2_ Click()
Unload Me
End Sub