阅读以下说明和Visual Basic 码,将应填入(n)处的字名写在的对应栏内 [说明] 编写一工资调整程序。若基本工资大于等于800元,工资增加20%,若小于800元大于 600元,则工资增加15%,若小于600元则工资增加10%。要求在文本框Tex

admin2009-02-15  27

问题 阅读以下说明和Visual Basic 码,将应填入(n)处的字名写在的对应栏内
[说明] 编写一工资调整程序。若基本工资大于等于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

选项

答案x=Val(Text1, Text) Case Else End Select End Sub

解析
转载请注明原文地址:https://jikaoti.com/ti/tPi7FFFM
0

最新回复(0)