VB filtra datos con múltiples condiciones

Guarde los datos anteriores en un archivo Txt y colóquelo en el directorio raíz D:.

El código es el siguiente.

==============================

Opción explícita

Private Sub Form_Click()

Atenuar s como cadena, a(10, 2) como byte, i como byte

Abrir "d：\1.txt" para entrada Como 1

Hacer hasta EOF(1)

Entrada de línea #1, s

a(i, 0) = Val(Split(s)(0) ))

a( i, 1) = Val(División(s)(1))

a(i, 2) = Val(División(s)(2))

i = i 1

Bucle

Dim inp Como cadena, b(2) Como único, j Como byte, suma Como único, min Como único, minj As Byte

min = 10000

b(0) = Val(InputBox("El primer dato, si es *, ingresa 0", , 0))

b(1) = Val( InputBox("El segundo dato, si es *, ingresa 0", , 0))

b(2) = Val(InputBox("El tercero datos, si son *, ingrese 0", , 0))

Para j = 0 To i - 1

suma = IIf(b(0), Abs(a( j, 0) - b(0)), 0) IIf(b(1), Abs(a(j, 1) - b(1)), 0) IIf(b(2), Abs(a(j, 2) - b(2)), 0)

Si suma lt min; Entonces min = suma: minj = j

Imprimir "El que mejor cumple con los requisitos es " amp; minj 1 amp; "Datos:" amp; a(minj, 0) amp; "," amp; a(minj, 1) amp; "," amp; a(minj, 2 )

Cerrar

End Sub

La prueba pasó con (10, *, 15.2), (50.5, *, 22.3).