Programación Vb Programación 1001vb

Private sub Cmd1_Click()

Dim S(3) es una cadena, n es un número entero

Dim i es un número entero, k es un entero

k = 1

Para i = 1 a 3

S(i) = Mid(Text1, k, 4)' toma el k-ésimo bit de Text1 Cuatro cadenas, es decir, cuando i = 1, k = 1, saque 101 y asigne el valor S (65438). Cuando i=2 y k=6, saque 0101 y asigne S(2)=0101; cuando i=3 y k=11, saque 0110 y asigne S(3)=0110.

k = k 5

Llamar a Transform(n, S(i))'Llamar al subproceso de transformación.

Texto 2 = texto ampn ampvbCrLf

Siguiente i

Conector final

Subconversión privada (n es un número entero, S es un carácter String)

Dim k es un número entero, I es un número entero, L es un número entero

L = Len(S)' toma la longitud de la cadena S(i), en De hecho, cada vez que son las 4.

Si val (mid (s, 1, 1)) = 1, entonces toma 1 carácter de 1 bit de la cadena S(i) y conviértelo en un valor numérico para que pueda compararse con 1 Comparar. Si es igual, N =-(2 (l

n = -(2 ^ (L - 1))

Otro

n = 0

Terminaría si...

For i = 2 to L

K = Mid(S,I,1)' en la siguiente declaración de S(i ) Tome 1 carácter del segundo, tercero y cuarto bits de la cadena para el cálculo, obtenga un valor n al final del ciclo y regrese al programa principal

n = n k * 2 ^. (L - i): Depuración. Imprimir k; n

Siguiente I

Conector final

Si no comprende, puede agregar una impresión de depuración. declaración al programa (como Debug. Print k se agrega en la penúltima línea del programa; n) Abra la ventana inmediata en el menú Ver en VB, haga clic en "Paso a paso" en el menú de depuración, luego haga clic en botón "Procesar" y luego presione F8 para depurar