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
.