Visual Basic, Nummernbereich in IF-Anweisungen

Question

Wie würde ich diese Zeile von C# in Visual Basic schreiben. Ich versuche, eine Eingabe vom Benutzer zu erhalten und ein Ergebnis zu liefern, wenn die Eingabe zwischen einen Zahlenbereich fällt.

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

} 

Dies ist der Code, den ich bisher habe.

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

So:

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

Answer 2

Für Reference See this.

Diese Dim Hb As String = txtInput1.Text ist in VBA nicht zulässig und ich nehme an, txtInput1 ist eine benannte Referenz auf einen Zellbereich.

Sie haben, es zu schreiben, wie unten Dim Hb As String: Hb = txtInput1.Text

Auch dieses Dim HbInt As Integer = Integer.Parse(Hb) ist nicht richtig, auch

Der richtige Weg wäre:

Dim HbInt As Integer: HbInt = CInt(Hb)

So ist der Code für Ihre Notwendigkeit wäre:

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

Nur erweitern auf die Antwort von @NewGuy Ich würde lieber die Select Case-Anweisung verwenden, um die angegebene Anzahl zu bewerten. Dies ermöglicht mehr Optionen:

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