VB Si le nombre est entier Puis écris-le Sinon, ne montre rien, Comment puis-je faire?

Question

Je ... ce

Dim x As Integer 
    Dim isn As Decimal 
    Dim fsn As Decimal 
    Dim inc As Decimal 

    For m = isn To fsn Step inc 
     Dim r As String = x * m 
     If r.Contains(".") Then 
     Else 
      Console.WriteLine(r) 
     End If 
    Next 
    Console.ReadLine() 

... mais le programme ne vient rien ... Que puis-je faire ?? Aidez-moi, s'il vous plaît!!

Answer 1

utilisation console.ReadLine pour obtenir la valeur de l'utilisateur

Sub Main() 
    Dim x As Integer = Console.ReadLine 
    Dim isn As Decimal = Console.ReadLine 
    Dim fsn As Decimal = Console.ReadLine 
    Dim inc As Decimal = Console.ReadLine 
    For m = isn To fsn Step inc 
     Dim r As Double = x * m 
     Dim r_string As String = r.ToString 
     If r_string.Contains(".") Then 
     Else 
      Console.WriteLine(r) 
     End If 
    Next 
    Console.ReadLine() 
End Sub 

Answer 2

Il y a plusieurs façons d'y parvenir, je commentais d'autres dans mon code de validation pour y parvenir ainsi.

Dim x As Integer 
Dim isn As Decimal 
Dim fsn As Decimal 
Dim inc As Decimal 

For m = isn To fsn Step inc 
    Dim r As String = x * m 
    If Not r = int(r) Then 'If IsNumeric(r) = true AndAlso r.ToString().Contains(".") = true OrElse Math.Floor(value) = Math.Ceiling(value) OrElse Integer.TryParse(number, output) Then 
    Else 
     Console.WriteLine(r) 
    End If 
Next 
Console.ReadLine()