< asp : Button ID = " Button1 " runat = "server " Text = " knap" />
< /form>
2 p første skal vi oprette en variabel , som vil holde den heltal indsamlet fra TextBox1 inde knap klik begivenheden.
Beskyttet Sub Button1_Click ( ByVal afsender som Object , ByVal e som System.EventArgs ) Handles Button1.Click
Dim NumberGrade As Integer
NumberGrade = TextBox1.Text
End Sub
3
Derefter vil vi skabe hver af vores fem case muligheder baseret på det besluttet nummer intervaller.
Beskyttet Sub Button1_Click ( ByVal afsender Som Object , ByVal e Som System.EventArgs ) Handles Button1.Click
Dim NumberGrade As Integer
NumberGrade = TextBox1.Text < br >
Select Case NumberGrade
sag 90 Til 100
Response.Write ( "A")
sag 80 til 89
svar. Skriv ( "B")
sag 70 til 79
Response.Write ( "C")
Case 60 Til 69
Response.Write ( "D")
Case er <60
Response.Write ( "F" )
End Vælg
End Sub
< br > 4
nu kan vi teste vores sag erklæring ved at indtaste et nummer. For eksempel, hvis tallet " 87 " er indgået TextBox1 og Button1 der klikkes , vil den resulterende værdi blive vist : Hej
"B"
5
De eneste hele tal , der vil ikke håndteres med ovennævnte tilfælde erklæring er dem større end 100 . For at tilføje en handler til disse numre , kan du bruge Case Else erklæring ved afslutningen , hvilket vil håndtere alt indgået den tekstboks, der ikke falder ind under dine angivne intervaller.
Beskyttet Sub Button1_Click ( ByVal afsender Som objekt , ByVal e Som System.EventArgs ) Handles Button1.Click
Dim NumberGrade As Integer
NumberGrade = TextBox1.Text
Vælg Case NumberGrade
Case 90 til 100
Response.Write ( "A")
sag 80 til 89
Response.Write ( "B")
Case 70 Til 79
Response.Write ( "C")
Case 60 Til 69
Response.Write ( "D")
Case er <60
Response.Write ( "F" )
Case Else
Response.Write ("Not et gyldigt tal grade" )
End Select < br >
End Sub
i ovenstående eksempel, hvis tallet " 237 " indtastes i tekstfeltet , vil følgende blive vist: " Ikke et gyldigt tal lønklasse. "
< br >