1 Ανοίξτε το Microsoft Word. 2
Κάντε κλικ στο " Εργαλεία ", " Macro " και στη συνέχεια κάντε κλικ στο " Visual Basic ". Είστε τώρα στο πρόγραμμα επεξεργασίας VB .
Εικόνων 3
Κάντε κλικ στο " Εισαγωγή ", " ενότητα ". Είστε τώρα σε μια λειτουργική μονάδα κώδικα προγραμματισμού
Η 4
Πληκτρολογήστε ή αντιγράψτε και επικολλήστε τις παρακάτω επιμέρους διαδικασίες στη λειτουργική μονάδα κώδικα : .
BinaryToDecimal Public Function ( Binary As String ) Όπως Long
Dim n Όπως Long
Dim s As Integer
Για s = 1 Για να Len ( Binary )
n = n + ( Mid ( Binary , Len ( Binary ) - s + 1 , 1 ) * ( 2 ^ _
( s - 1 ) ) )
Επόμενο s
BinaryToDecimal = n
End Function
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα