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

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

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

Private Function Bonus(performance, salary)
    If performance = 1 Then
        Bonus = salary * 0.1
    ElseIf performance = 2 Then
        Bonus = salary * 0.09
    ElseIf performance = 3 Then
        Bonus = salary * 0.07
    Else
        Bonus = 0
    End If
End Function

运行结果:

 70 
 0


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