[说明] 编写一工资调整程序。若基本工资大于等于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