Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Kliknite na kartu " Vývojár " , kliknite na " Visual Basic " a kliknite na " Vložiť " menu . Kliknite na " modul " vložiť nový kód modulu
2
Začnite vytvorením konania čiastkové pomocou nasledujúci kód : .
Private Sub CaseSwitch ( )
3
Vytvorte tri premenné zadaním nasledujúce riadky kódu :
Dim employeePerf As Integer
Dim plat ako mena
Dim bonus ako mena
stránka 4
definovať hodnoty pre mzdy a employeePerf premenných :
plat = 75000
employeePerf = 3
5
pomocou select case na určiť bonusovú čiastku na základe výkonnosti zamestnancov a ich základný plat .
Select Case employeePerf
Prípad 1
Bonus = plat * 0.1
prípad 2 , 3
Bonus = mzda * 0,09
Case 4 až 6
Bonus = mzda * 0,07
Case Is > 8
bonus = 100
Case Else
bonus = 0
End Select
6
Zobraziť bonusovú čiastku pomocou okna Immediate .
Debug.Print Bonus
7
Ukončenie postupu zadaním " End Sub " . Stlačením tlačidla " F5 " spustiť kód .
Copyright © počítačové znalosti Všetky práva vyhradené