¿Cómo hacer un conversor de unidades usando vb?

Probablemente entiendo lo que significa el cartel, ¡no sé si es correcto!

El autor parece necesitar escribir las 19 unidades de longitud en la relación una por una y luego convertirlas de acuerdo con el principio de permutación y combinación, la cantidad de códigos debería ser asombrosa.

De hecho, programar no es tan problemático y puedes hacerlo con solo unos pocos códigos.

He escrito un ejemplo simple a continuación, puede ver si cumple con sus condiciones

Por favor, escriba text1(0), text1(1), combo1( en el formulario 0), combo1(1), comando1 tales controles

Dim biaozhun(1) como único, bianliang(1) como único

Subcombo privado1_Click(Índice como entero)

Seleccione Caso Combo1(Index).Text

Caso "Kilómetros"

biaozhun(Index) = 1000

Caso "Cien metros "

biaozhun(Índice) = 100

Caso "metros"

biaozhun(Índice) = 10

Caso "metros"

biaozhun(Índice) = 1

Caso "Decímetro"

biaozhun(Índice) = 0,1

Caso "Centímetro"

biaozhun (Índice) = 0,01

Caso "mm"

biaozhun(Índice) = 0,001

Caso más

MsgBox "Símbolo de unidad incorrecto ", vbOKOnly, "Advertencia"

Combo1(Index).ListIndex = 3

Finalizar selección

Fin Sub

Subcomando privado1_Clic ()

Si IsNumeric(Text1(0).Text) = False Then MsgBox "¡Ingrese un número!", vbOKOnly, "Advertencia": Salir de Sub

bianliang(0) = Val(Texto1(0).Texto)

bianliang(1) = bianliang(0) * biaozhun(0) / biaozhun(1)

Texto1 (1).Texto = Trim(Str(bianliang(1)))

MsgBox "Conversión exitosa", vbOKOnly, "Felicitaciones"

End Sub

Private Sub Form_Load()

Para i = 0 a 1

Combo1(i).AddItem "Kilómetros"

Combo1(i).AddItem "Cientos de Metros"

Combo1(i).AddItem "Diez metros"

Combo1(i).AddItem "Metros"

Combo1(i).AddItem "Puntos Metros"

Combo1(i).AddItem "Centímetros"

Combo1(i).AddItem "Milímetros"

Combo1(i).ListIndex = 3

Siguiente i

Fin del sub