Έχετε κολλήσει με τις έννοιες της "Λειτουργίας" στο VB; Εάν Ναι, διαβάστε αυτόν τον οδηγό για να μάθετε τις λεγόμενες κατασκευές της "Λειτουργίας" στο παράδειγμα του VB.
Βήματα
Βήμα 1. Τι είναι η λειτουργία;
- Χρησιμοποιήστε μια διαδικασία συνάρτησης όταν πρέπει να επιστρέψετε μια τιμή στον κώδικα κλήσης.
- Η ίδια η συνάρτηση έχει έναν τύπο και η συνάρτηση θα επιστρέψει μια τιμή στην υπορουτίνα κλήσης με βάση τον κώδικα που περιέχει.
Βήμα 2. Πώς να δηλώσετε τη λειτουργία;
- Μπορείτε να ορίσετε μια διαδικασία λειτουργίας μόνο σε επίπεδο λειτουργικής μονάδας. Αυτό σημαίνει ότι το πλαίσιο δήλωσης για μια συνάρτηση πρέπει να είναι κλάση, δομή, λειτουργική μονάδα ή διεπαφή και δεν μπορεί να είναι αρχείο προέλευσης, χώρος ονομάτων, διαδικασία ή μπλοκ.
- Μια συνάρτηση δηλώνεται με τον ίδιο ακριβώς τρόπο όπως μια υπορουτίνα, εκτός από τη χρήση της λέξης -κλειδιού "Λειτουργία" αντί για "Υπο".
- Προεπιλεγμένες διαδικασίες συνάρτησης για πρόσβαση στο κοινό. Μπορείτε να προσαρμόσετε τα επίπεδα πρόσβασής τους με τους τροποποιητές πρόσβασης.
Βήμα 3. Πώς να καλέσετε τη λειτουργία;
- Καλείτε μια διαδικασία συνάρτησης χρησιμοποιώντας το όνομα της διαδικασίας, ακολουθούμενο από τη λίστα ορίσματος σε παρένθεση, σε μια έκφραση.
- Μπορείτε να παραλείψετε τις παρενθέσεις μόνο εάν δεν παρέχετε ορίσματα. Ωστόσο, ο κωδικός σας είναι πιο ευανάγνωστος εάν συμπεριλαμβάνετε πάντα τις παρενθέσεις.
- Μια συνάρτηση μπορεί επίσης να κληθεί χρησιμοποιώντας τη δήλωση κλήσης, στην οποία περίπτωση η τιμή επιστροφής αγνοείται.
- Για να επιστρέψετε μια τιμή, αντιστοιχίστε μια τιμή του κατάλληλου τύπου στο όνομα της συνάρτησης, σαν να ήταν μεταβλητή.
Σύνταξη
Δήλωση
[τροποποιητής πρόσβασης] [τροποποιητές διαδικασίας] [Κοινόχρηστο] Όνομα συνάρτησης [(Of typeparamlist)] [(λίστα παραμέτρων)] [Ως returntype] [δηλώσεις] [Λειτουργία εξόδου] [δηλώσεις] Τερματική συνάρτηση
Κλήση
'Χωρίς κλήση Function_Name ()' Με κλήση Function_Name ()
Παράδειγμα
Ένα παράδειγμα συνάρτησης που προσθέτει δύο αριθμούς φαίνεται παρακάτω
Προσθήκη ιδιωτικής συνάρτησης (ByVal x Ως ακέραιος, ByVal y ως ακέραιος) Ως ακέραιος Dim Res ως ακέραιος Res = x + y Προσθήκη = Res Λειτουργία τερματισμού Ιδιωτική υποδιαμόρφωση_ φόρτωση () Dim a As Integer Dim b As Integer Dim c As Integer a = 32 b = 64 c = Προσθήκη (α, β) MsgBox ("Το άθροισμα είναι:" & γ) Τέλος υπο