首页 /编程语言和算法/VB6/ASP
 VB6 一个Select Cas的简单例子
2024年12月7日 15:14

新建From1(窗体),新建Command1(按钮CommandButton),代码:

Private Sub Command1_Click()
    Debug.Print Bonus(3, 100)
    Debug.Print Bonus(9, 100)
End Sub

Private Function Bonus(performance, salary)
    Select Case performance
        Case 1
            Bonus = salary * 0.1
        Case 2, 3
            Bonus = salary * 0.09
        Case 4 To 6
            Bonus = salary * 0.07
        Case Is > 8
            Bonus = 100
        Case Else
            Bonus = 0
    End Select
End Function

运行结果:

 9 
 100


 
全部回复(0)
首页 | 电脑版 |