Hola chicos, buenas a todos.

Mirar tengo un problema con un programa que me piden, y no se ni por donde cojerlo la verdad... a ver si vosotros podeis echarme una mano.

El programa pide lo siguiente:

Escribe un programa que tome 2 numeros e indique si son enteros introducidos por el usuario mediante el teclado y los escriba en una etiqueta de mayor a menor separados por guiones.

__________________________________

Bien, yo he usado este codigo para hacerlo, pero me piden otra manera mas rapida y con menos codigo de hacer el ejercicio.

Ahi va lo mio(Programando el boton command):

Dim a
Dim b
a = Text1.Text
b = Text2.Text
If Val = Round Then
Label3.Caption = Text1.Text & " es entero"
Else
Label3.Caption = Text1.Text & " no es entero"
End If
If Val = Round Then
Label4.Caption = Text2.Text & " es entero"
Else
Label4.Caption = Text2.Text & " no es entero"
End If
If a > b Then
Label5.Caption = a & " - " & b
Else
Label5.Caption = b & " - "

Gracias de antemano y saludos.

No se no se. Para saber si un número es entero o decimal hay muchas formas. Supongo que la mas corta es
Y lo demás yo lo veo bien....más no se puede reducir....como no lo pongas en una sola linea......
Saludos.
P.D. C@ss¡@n¡ te ha contestado mientras yo escribia el mensaje.....y después de ver su respuesta (por cierto, muy completa maquina ) te puntualizo que es preferible que utilices la función int a la cint, ya que esta ultima convierte el número al tipo integer, con sus limitaciones en su rango númerico (de -32.768 a 32.767) mientras que int acepta un rango bastante superior (creo que tipo double). No he convertido el número ya que pides poco código, y como lo convierte el vb automaticamente pues ala.