Entonces el mas apropiado seria el Ordenamiento burbuja.
Un saludo.
Un saludo.
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú
Private Sub Form_Click()
Dim x, y, z
x = InputBox("")
y = InputBox("")
z = InputBox("")
If x > y Then
If x > z Then
If y > z Then
Print x, y, z
Else
Print x, z, y
End If
Else
If z > y Then Print z, x, y
End If
Else
If y > z Then
If z > x Then
Print y, z, x
Else
Print y, x, z
End If
Else
Print z, y, x
End If
End If
End Sub
If Text1 = "hola" Then
MsgBox "osii"
else
MsgBox "oNoo"
End If
'Name App.Path & "\Hola.txt" As App.Path & "\" & Day(Now) & "-" & Month(Now) & "-" & Year(Now) & " " _
'& Hour(Now) & "." & Minute(Now) & "." & Second(Now) & ".txt"