VB如果數字是整數然後寫它否則什麼都不顯示，我該怎麼辦？

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

...但該方案只是什麼也不做......我該怎麼辦？請幫幫我！！

Answer 1

使用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 2

有很多種方法來實現這一獲得價值，我在我的代碼來實現這一以及註釋掉其他驗證。

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