Red de conocimientos turísticos - Conocimientos sobre calendario chino - ¿Puede algún experto proporcionar un programa para comparar los tamaños de tres números usando la programación VB?

¿Puede algún experto proporcionar un programa para comparar los tamaños de tres números usando la programación VB?

Private Sub Command1_Click()

a = InputBox("Ingrese el primer número")

b = InputBox("Ingrese el segundo número")

c = InputBox("Ingrese el tercer número")

'Aquí se determina el número más pequeño

Si a lt entonces

Print ""El número más pequeño que ingresó es ""; a

ElseIf b lt; a And b lt c Then

Imprimir ""El número más pequeño que ingresó es ""; b

ElseIf c lt; a And c lt; b Then

Imprimir ""El número más pequeño que ingresó es ""

End If

'Lo siguiente es determinar el número máximo

Si a gt; b y a gt entonces

Imprimir ""El número máximo que has ingresado es ""; a

ElseIf b gt; a And b gt; c Then

Imprime ""El número más grande que ingresaste es "";

ElseIf c gt; a And c gt; b Then

Imprimir ""El número más grande que ingresó es ""

Fin

End Sub También estoy aprendiendo, espero que pueda ayudar al anfitrión.