Como transformar de base de 2 a base de 10 y viceversa

En la base 2 sólo se pueden tener 2 dígitos, los cuales son: 0 y 1.

Se puede tener un número como 101011. Primero se empieza de derecha a izquierda.
1

1

0

1

0

1

Luego, el primer dígito multiplica a 2^0 es decir multiplica a 1
el segundo a 2^1 = 2
el tercero a 2^2 = 4
el cuarto a 2^3 = 8

el quinto a 2^4 = 16

el sexto a 2^5 = 32

Gracias a esto tendremos lo siguiente:

1 X 1 = 11 X 2 = 2
0 X 4 = 0
1 X 8 = 8

0 x 16 = 0

1 x 32 = 32

La suma de estos srea:  1 + 2 + 0 + 8 + 0 + 32= 43
Y esto quiere decir que el número 101011 en base 2 equivale al numero 43 en base 10.

Para transformar de base de 10 a base de 2 se hace lo siguiente:

50 en base 2

50/2 -> cociente = 25, resto = 0

25/2 -> cociente = 12, resto = 1

12/2 -> cociente = 6, resto = 0

6/2 -> cociente = 3, resto = 0

3/2 -> cociente = 1, resto = 1

1/2 -> cociente = 0, resto = 1

Así que 50 en base 2 es los restos sacados, de abajo arriba: 110010

IF .... THEN ....  else …… END IF

Con esta sentencia de control se puede hacer que el programa tome decisiones a partir de una condición que se expresara al inicio de este.

En el caso de que la condición sea cierta Visual basic ejecutara unas líneas de programa, si la condición no se cumple, Visual ejecutara otras líneas de programa diferentes.

EJEMPLO:

Dim number, digits As Integer
Dim myString As String
number = 53
If number < 10 Then
    digits = 1
ElseIf number < 100 Then
    digits = 2
Else
    digits = 3
End If
If digits = 1 Then myString = "One" Else myString = "More than one"