Operación de devolución de datos inversa de Vb

dim String es String, sz() es String, fhz es Long, I es Long, j es Integer

str = List1. texto

sz = Split(str, ","")

fhz = underrun(sz)

Para i = 0 a 2

Si es la opción 1(i). Entonces

Opción 1(i). valor=Verdadero

Otro

Opción 1(i). value = false

Terminará si...

Siguiente i

Para i = 0 a 11

Compruebe1(i). Valor = 0

Siguiente i

Para j = 1 a fhz - 1

Para i = 0 a 11

Si Check1 ( i). Título = sz(j) y luego

Check1(i). Valor = 1

Terminará si...

Siguiente i

Siguiente j

Para i = 0 en Combo1. Recuento de listas: 1

Combo1. ListIndex = i

Si es correcto(Combo1.Text,3) = sz(0) entonces

Salir para...

Terminará si...

Siguiente yo

Conector final