Visual Basic, диапазон номеров в операторах IF

Question

Как бы написать эту строку C# в визуальном базовом. im, пытаясь получить вход от пользователя и предоставить результат, учитывая, что входной сигнал падает между диапазоном чисел.

if int(>65 || <=73) 
{ 

} 

Это код, который я имею до сих пор.

Dim Hb As String = txtInput1.Text 

If IsNumeric(Hb) Then 
      Dim HbInt As Integer = Integer.Parse(Hb) 
     Else 
      Output("The Hb value needs to be numeric") 
     End If 

Answer 1

Как это:

If HbInt > 65 And HbInt <= 73 Then 
... 
End If 

Answer 2

Для Reference See this.

Этот Dim Hb As String = txtInput1.Text не разрешен в vba, и я предполагаю, что txtInput1 является именованной ссылкой на диапазон ячеек.

Вы должны написать его, как показано ниже Dim Hb As String: Hb = txtInput1.Text

Кроме того, этот Dim HbInt As Integer = Integer.Parse(Hb) не прав, а

Правильный путь будет:

Dim HbInt As Integer: HbInt = CInt(Hb)

Поэтому код для вашего необходимо будет:

Sub NumRange() 

Dim Hb As String: Hb = txtInput1.Text 

if IsNumeric(Hb) then 
    Dim HbInt As Integer: HbInt = CInt(Hb) 

    if HbInt > 65 And HbInt <=73 then 
     Do things...... 
    Else 
     Msgbox "Number Entered is out of Range" 
    End if 

Else 
    Msgbox "Invalid Input." 
End if 


End Sub 

Answer 3

Просто расширяя ответ, предоставленный @NewGuy. Я бы предпочел использовать оператор Select Case для оценки предоставленного номера. Это позволит больше вариантов:

Option Explicit 

Sub tmpTest() 

Dim strHB As String 

strHB = InputBox("Give me a number between 1 and 100", "Your choice...") 

If IsNumeric(strHB) Then 
    Select Case CLng(strHB) 
    Case 66 To 73 
     MsgBox "You picked my range!" 
    Case 1 To 9 
     MsgBox "One digit only? Really?" 
    Case 99 
     MsgBox "Almost..." 
    Case Else 
     MsgBox "You selected the number " & strHB 
    End Select 
Else 
    MsgBox "I need a number and not this:" & Chr(10) & Chr(10) & " " & strHB & Chr(10) & Chr(10) & "Aborting!" 
End If 

End Sub