Introduccion A La Programaciòn.
Enviado por thepacoo99 • 23 de Mayo de 2015 • 671 Palabras (3 Páginas) • 106 Visitas
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
...