Aprire Microsoft
2
Clicca su "Strumenti " di Word . "Macro" e quindi fare clic su " Visual Basic ". Ora siete nell'editor di VB .
3
Fare clic su " Inserisci ", "Modulo" . Si è ora in un modulo di codice di programmazione
4 Tipo
o copiare e incollare le seguenti procedure sub nel modulo di codice : .
Public Function BinaryToDecimal ( Binary As String ) As Long
Dim n As Long
Dim s As Integer
Per s = 1 To Len ( Binary ) per
n = n + ( Mid ( Binary , Len ( Binary ) - s + 1 , 1 ) * ( 2 ^ _
( s - 1) ) ) per
Successivo s
BinaryToDecimal = n
End Function
Programmazione © www.354353.com