< asp: Button- ID = " Button1 " runat = "server" Text = "Button" />
< /form>
2
zuerst müssen wir , um eine variable wird das halten Sie die ganze Zahl von TextBox1 in der Schaltfläche Click-Ereignis versammelt.
Protected Sub Button1_Click (ByVal sender As Object, ByVal e As System.EventArgs ) Handles Button1.Click
Dim NumberGrade As Integer
NumberGrade = TextBox1.Text
End Sub
3
nächstes erstellen wir jedem unserer fünf Fall Möglichkeiten auf der Basis entschieden Zahl reicht .
Protected Sub Button1_Click (ByVal sender As Object, ByVal e As System.EventArgs ) Handles Button1.Click
Dim NumberGrade As Integer
NumberGrade = TextBox1.Text
Select Case NumberGrade
Fall 90 bis 100
Response.Write ( "A")
Behälter 80 bis 89
Reaktionszeit . Write ( "B")
Rechtssache 70 bis 79
Response.Write ( "C")
Rechtssache 60 bis 69
Response.Write ( "D")
Fall <60
Response.Write ( "F")
End Select End Sub
< br > 4
Jetzt können wir unsere Case-Anweisung durch Eingabe einer Zahl zu testen. Zum Beispiel, wenn die Zahl "87" in TextBox1 eingegeben und Button1 geklickt wird, wird der resultierende Wert angezeigt werden :
"B"
5
nur ganze Zahlen, wird nicht direkt über die oben genannten Fall sind solche Anweisung größer als 100 ist. Um einen Handler für diese Zahlen zu addieren , können Sie die Case Else -Anweisung am Ende verwenden, welches alles in das Textfeld ein , die nicht innerhalb Ihrer angegebenen Bereiche fallen eingegebenen behandeln.
Protected Sub Button1_Click (ByVal sender As Object, ByVal e As System.EventArgs ) Handles Button1.Click
Dim NumberGrade As Integer
NumberGrade = TextBox1.Text
Select Case NumberGrade
Fall 90 bis 100
Response.Write ( "A")
Behälter 80 bis 89
Response.Write ( "B")
Rechtssache 70 To 79
Response.Write ( "C")
Rechtssache 60 bis 69
Response.Write ( "D")
Fall <60
Response.Write ( "F")
Case Else
Response.Write ( " Not a valid Zahl grade" )
End Select
End Sub
