在VB6中使用Val（）函數進行比較失敗？

Question

Dim HHs As String 
HHs = Mid("2345", 1, 2) 

If Val(HHs) > 23 Then 
"Log the Error that needs to be logged" 
End If 

上述代碼未通過驗證。 這似乎是一個非常簡單的問題 任何想法爲什麼？

Answer 1

如果HHs尚未聲明（和你沒有使用Option Explicit），或者你還沒有分配一個值HHs，然後Val(HHs)永遠是0 ....

因此，Val(HHs) > 23將永遠是False。

看起來你可能犯了一個錯字，並打算使用HHe？

Answer 2

的代碼按預期方式工作：如果條件爲假，因爲纈氨酸（HHS）爲23。

Option Explicit 

Private Sub CommandTest_Click() 
    Dim HHs As String 
    HHs = Mid("2345", 1, 2) 

    If Val(HHs) > 23 Then 
     MsgBox "Log the Error that needs to be logged" 
    End If 
End Sub