Introduccion A La Programaciòn.

Public Class Form1

Private Sub Form_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim a, b, c, i As Integer

Dim mayor, medio, menor As Integer

a = InputBox("Dame tu primer numero :")

b = InputBox("Dame tu segundo numero :")

c = InputBox("Dame el tercer numero :")

If a > b And a > c Then

mayor = a

Else

If a < b And a < c Then

menor = a

Else

If a > b And a < c Or a < b And a > c Then

medio = a

End If

End If

End If

If b > a And b > c Then

mayor = b

Else

If b < a And b < c Then

menor = b

Else

If b > a And b < c Or b < a And b > c Then

medio = b

End If

End If

End If

If c > a And c > b Then

mayor = c

Else

If c < a And c < b Then

menor = "c"

Else

If c > a And c < b Or c < a And c > b Then

medio = c

End If

End If

End If

MsgBox("El numero mayor es: " & mayor & vbCrLf & "El numero medio es: " & medio & vbCrLf & "El numero menor es: " & menor)

End Sub

End Class

...