milka
29 de Enero del 2004

Ayuda con este problema
Escribir un programa que solicite al usurio introducir dos numeros, si el primer numero introducido es mayor que el segundo numero, el programa debe imprimir el mensaje"El primer numero es el mayor"en caso contrario el programa debe escribir el mensaje "El primer numero es el mas pequeño"considere el caso que ambos numeros sean iguales e imprima el correspondiente mensaje.

sdemingo
29 de Enero del 2004

Private Sub Command1_Click()

If Trim(Text1.Text) = "" Or Trim(Text2.Text) = "" Then
MsgBox "Introduzca los números", vbInformation
Exit Sub
Else
If Not IsNumeric(Text1.Text) Or Not IsNumeric(Text2.Text) Then
MsgBox "Debe introducir valores numéricos", vbInformation
Exit Sub
Else
If CDbl(Text1.Text) > CDbl(Text2.Text) Then
MsgBox "El numero A es mayor que el número B", vbInformation
ElseIf CDbl(Text1.Text) < CDbl(Text2.Text) Then
MsgBox "El numero B es mayor que el número A", vbInformation
Else
MsgBox "Los dos números son iguales", vbInformation
End If
End If
End If

End Sub

salu2
sdemingo
http://boards.melodysoft.com/sdemingo

ojeador
29 de Enero del 2004

va en serio la pregunta???