05 Apr
2023
Сміхуйочки:
Sub AskForBonus(ByVal e As EmpType)
Select Case (e)
Case EmpType.Contractor
Console.WriteLine("You already get enough cash...")
Case EmpType.Grunt
Console.WriteLine("You have got to be kidding...")
Case EmpType.Manager
Console.WriteLine("How about stock options instead?")
Case EmpType.VicePresident
Console.WriteLine("VERY GOOD, Sir!")
End Select
End Sub