Visual Basic - 函数来检查数字是否是二进制的

Question

我的代码新手和即时通讯使用此代码。看起来，我总是从这个函数得到真实的响应。我究竟做错了什么 ？

Private Function binary() As Boolean 
    Dim number, temp As Integer 
    Dim status As Boolean 
    TextBox1.Text = number 
    status = True 

    While (True) 
     If (number = 0) Then 
      Exit While 
     Else 
      temp = number Mod 10 
      If (temp > 1) Then 
       status = False 
       Exit While 
      End If 
      number = number/10 
     End If 
    End While 

    Return status 

End Function 

Answer 1

你有你的分配方式不对周围：

TextBox1.Text = number 

有了这个，number将始终为0，其初始值，所以你While循环立即退出，每一次。它应该是：

number = Convert.ToInt32(TextBox1.Text) 

或者更好的是，在把它作为参数传递给函数：

Private Function binary(number as Integer) As Boolean 
    Dim temp As Integer 
    Dim status As Boolean 

    status = True 

    While (True) 
     If (number = 0) Then 
      Exit While 
     Else 
      temp = number Mod 10 
      If (temp > 1) Then 
       status = False 
       Exit While 
      End If 
      number = number/10 
     End If 
    End While 

    Return status 
End Function 

然后：

Dim isBinary as Boolean 
isBinary = binary(Convert.ToInt32(TextBox1.Text))