ejemplo de vb

Cree 3 nuevos cuadros de texto y dos botones de comando, simplemente cópielos directamente. El código es el siguiente:

Private Sub Command1_Click()

Dim a As Long, b As Long, c. As Long, e As Long, f As Long, d As Long, g As String

a = Val(Text1.Text) 'Convierte cadena en número.

b = Val(Texto2.Texto)

c = Val(Texto3.Texto)

d = a - b: e = b - c: f = a - c

If d gt; = 0 And e gt; = 0 Entonces 'Use la declaración If para hacer un juicio.

g = a amp; " " amp; b amp; " " amp; c 'Agrega salida separada por espacios, donde amp se usa para concatenar las cadenas.

ElseIf d gt; = 0 And e lt; = 0 And f gt; = 0 Entonces '¡Determina la relación lógica entre los 3 números!

g = a amp; " " amp; c amp; " " b

ElseIf d gt;= 0 And e lt;= 0 And f lt;= 0

g = c amp; " " amp; a amp; " " b

ElseIf d lt; /p>

g = b amp; " " amp; a amp " " amp; c

ElseIf d lt; p>

g = b amp; " " amp.c amp; " " amp; a

ElseIf d lt; c amp; " " amp; b amp; " " amp; a

End If

MsgBox "El orden de los tres números es:" g 'Función de salida. ¡Se utiliza para generar cadenas!

End Sub

Private Sub Command2_Click()

End 'End Sub

End Sub

Tú también Puede cambiar el nombre del control para optimizar la interfaz o agregar un botón de comando para borrar el trabajo. Por ejemplo

Subcomando privado3_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Fin del subtítulo