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