1 Κάντε κλικ στην καρτέλα "Προγραμματιστής " , κάντε κλικ στο " Visual Basic " και κάντε κλικ στο μενού "Εισαγωγή" . Κάντε κλικ στο " Ενότητα " για να εισάγετε μια νέα λειτουργική μονάδα κώδικα 2
Ξεκινήστε με τη δημιουργία μιας διαδικασίας υπο χρησιμοποιώντας τον ακόλουθο κώδικα : .
Private Sub CaseSwitch ( )
Η
3
Δημιουργήστε τρεις μεταβλητές , πληκτρολογώντας τις παρακάτω γραμμές κώδικα :
Dim employeePerf As Integer
Dim μισθό As Currency
Dim Bonus As Currency
Φτηνές 4
Ορίστε τιμές για τον μισθό και τις μεταβλητές employeePerf :
μισθός = 75000
employeePerf = 3
5
Χρησιμοποιήστε τη δήλωση select υπόθεση καθορίσει το ποσό του μπόνους με βάση την απόδοση του υπαλλήλου και βασικό μισθό τους .
Select Case employeePerf
Περίπτωση 1
bonus = μισθός * 0,1
περίπτωση 2 , 3
Bonus = μισθός * 0,09
υπόθεση 4 έως 6
Bonus = μισθός * 0,07
υπόθεση είναι > 8
bonus = 100
Case Else
bonus = 0
End Select
Η 6
Εμφανίστε το ποσό του μπόνους χρησιμοποιώντας το παράθυρο άμεσης παρακολούθησης .
Debug.Print Bonus
Η
7 Ολοκληρώστε τη διαδικασία, πληκτρολογώντας " End Sub ". Πατήστε το πλήκτρο " F5 " για να εκτελέσετε τον κώδικα .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα