Πώς να μετατρέψετε Long σε ακέραιους σε Visual Basic

Visual Basic είναι μια γλώσσα προγραμματισμού που αναπτύχθηκε από τη Microsoft . Visual Basic είναι στενά συνδεδεμένη με τη σουίτα παραγωγικότητας γραφείου ? Όλα τα βοηθητικά προγράμματα του Office επιτρέπουν στο χρήστη να αυξήσει την λειτουργικότητα τους, γράφοντας τη δική του Visual Basic προγράμματα . Μεταξύ άλλων τύπων δεδομένων , Visual Basic έχει Ακέραιος και Long . Και οι δύο τύποι περιέχουν ακέραιους αριθμούς , αλλά Long μπορεί να πάρει τιμές από ένα μεγαλύτερο χρονικό διάστημα . Κατά συνέπεια , Long παίρνει περισσότερη μνήμη από Integer . Αν μια τιμή που είναι αποθηκευμένη σε μια μακρά μεταβλητή εντάσσεται στο φάσμα Ακέραιος , μπορείτε να το μετατρέψετε σε Ακέραιος σε Visual Basic προγράμματα σας . Οδηγίες
Η 1

Υπολογίστε τη μέγιστη τιμή που μπορεί να αποθηκευτεί σε ένα Integer , συμπεριλαμβάνοντας τις παρακάτω γραμμές στο πρόγραμμα της Visual Basic σας :

Dim maxInteger As Integer

maxInteger = 2 ^ ( Len ( maxInteger ) * 8-1 ) -1 2

Ελέγξτε αν το Long τιμή που θέλετε να μετατρέψετε σε Ακέραιος ταιριάζει εντός του εύρους των τιμών ένας ακέραιος αριθμός που μπορεί να περιέχει , όπως και στην αυτό το δείγμα κώδικα :

Dim sampleLong Όπως Long

« Υπολόγισε την τιμή της sampleLong

Εάν ( ( sampleLong > maxInteger ) Ή ( sampleLong <- maxInteger - 1 ) ) στη συνέχεια

handleOutOfBounds

End If

Αντικαταστήστε την επίκληση να υποπρόγραμμα " handleOutOfBounds " από τον τρόπο με τον οποίο το πρόγραμμά σας χειρίζεται την υπόθεση της μεγάλης αξίας δεν είναι μετατρέψιμη σε μια ακέραιος
εικόνων 3

Μετατρέψτε το Long τιμή σε ένα Integer , όπως σε αυτό το δείγμα κώδικα : .

Δημ. sampleInteger As Integer

sampleInteger = CInt ( sampleLong )

Μετά την εκτέλεση την επίκληση στην ενσωματωμένη λειτουργία " CInt ( ) " , sampleInteger θα περιέχει την ίδια αξία με sampleLong .
Η
εικόνων