Δημιουργήστε το όνομα υπορουτίνα . Κάθε υπο χρειάζεται ένα όνομα . Οι υπορουτίνες ονόματα , αλλά είναι επίσης ορίζεται ως « ιδιωτικό » ή «δημόσια ». Ιδιωτικός υποπρογράμματα είναι προσβάσιμα μόνο μέσα στην τάξη αρχείο . Δημόσια υποπρογράμματα είναι προσβάσιμη από οπουδήποτε στον κώδικά σας . Το παρακάτω δείχνει πώς μπορείτε να δημιουργήσετε μια υπορουτίνα :
Public Sub ExponentSub ( ) End Sub 2
Προσθήκη παραμέτρων για υπορουτίνα σας . Οι παράμετροι πέρασε από τον κώδικά σας στην υπορουτίνα . Αυτές οι παράμετροι χρησιμοποιούνται για να κάνουν τους υπολογισμούς . Σε αυτό το παράδειγμα , το « ExponentSub " υπορουτίνα κάνει εκθετική υπολογισμούς. Απαιτεί έναν αριθμό βάσης και ο αριθμός των φορών που ο αριθμός βάσης πολλαπλασιάζεται . Ο παρακάτω κώδικας ορίζει τις παραμέτρους για την υπορουτίνα :
Public Sub ExponentSub ( base_number As Integer , raise_number As Integer ) End Sub
εικόνων 3
Προσθέστε τις δηλώσεις υπολογισμού με την υπορουτίνα . Οι δηλώσεις του υπορουτίνα είναι κάθε σύνολο οδηγιών που ολοκληρώνει τους υπολογισμούς σας . Ο κώδικας που ακολουθεί σας δείχνει πώς να θέσω ένα αριθμό και τον υπολογισμό εκθετική αξία του :
Public Sub ExponentSub ( base_number As Integer , raise_number As Integer ) Dim συνολικά Όπως Integertotal = base_number ^ raise_numberEnd Sub
Η 4
Καλέστε υπορουτίνα σας . Τώρα που η υπορουτίνα έχει δημιουργηθεί , μπορείτε να καλέσετε στον κώδικά σας . Το παρακάτω σας δείχνει πως να στείλετε την εκτέλεση στην υπορουτίνα :
Call ExponentSub ( 10 , 8 )
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα