Sub ConvertirUnidades() Dim valor As Double Dim unidadOrigen As String Dim unidadDestino As String Dim resultado As Double valor = InputBox("Ingrese el valor a convertir:") unidadOrigen = InputBox("Ingrese la unidad de origen:") unidadDestino = InputBox("Ingrese la unidad de destino:") Select Case unidadOrigen Case "cm" Select Case unidadDestino Case "m" resultado = valor / 100 Case "mm" resultado = valor * 10 Case Else resultado = valor End Select Case "m" Select Case unidadDestino Case "cm" resultado = valor * 100 Case "mm" resultado = valor * 1000 Case Else resultado = valor End Select Case "mm" Select Case unidadDestino Case "cm" resultado = valor / 10 Case "m" resultado = valor / 1000 Case Else resultado = valor End Select Case Else resultado = valor End Select MsgBox "El resultado de la conversión es: " & resultado End Sub

#include <iostream>
    using namespace std;
    int main()
    {
      cout << "Hola Mundo";
      return 0;
    }