VB数値が整数の場合それを書いてくださいElseは何も表示しません、どうすればいいですか？

Question

私はこれを持っている

...

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() 

...しかし、プログラムだけで何もしない...私は何ができるの？私を助けてください！！これを達成するための多くの方法がありますが、ユーザー

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 1

使用console.ReadLine、私もこれを達成するために自分のコード内の他の検証をコメントアウト。

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() 

Answer 2

から値を取得する