< /asp : TextBox >
< asp : Button ID = " Button1 " runat = " server " Text = " Button " />
2
Först måste vi skapa en variabel , som kommer att hålla heltal samlats från TextBox1 inne knappen click-händelsen .
Protected Sub Button1_Click ( ByVal avsändare As Object , ByVal e som System.EventArgs ) Handtag Button1.Click
Dim NumberGrade As Integer
NumberGrade = TextBox1.Text
End Sub
3
Därefter kommer vi att skapa alla våra fem fall möjligheter utifrån beslutade antalet intervall .
Protected Sub Button1_Click ( ByVal avsändare As Object , ByVal e Som System.EventArgs ) Handtag Button1.Click
Dim NumberGrade As Integer
NumberGrade = TextBox1.Text
Select Case NumberGrade
Case 90 till 100
Response.Write ( " A " ) katalog
mål 80 till 89
Response . Skriv ( "B" ) katalog
mål 70 Till 79
Response.Write ( "C" ) katalog
mål 60 Till 69
Response.Write ( " D " ) katalog
Case är < 60
Response.Write ( " F " ) katalog
End Välj
End Sub
4
nu kan vi testa vårt fall uttalande genom att ange ett nummer . Till exempel , om antalet " 87 " matas in TextBox1 och Button1 är tryckt, kommer den resulterande värdet visas :
" B "
5
De enda heltal som kommer inte hanteras med användning av ovanstående fallet uttalande är de större än 100 . För att lägga till en hanterare för dessa siffror , kan du använda Case Else uttalande i slutet , som kommer att hantera allt in i textrutan som inte faller inom din angivna intervall .
Protected Sub Button1_Click ( ByVal avsändaren som Object , ByVal e Som System.EventArgs ) Handtag Button1.Click
Dim NumberGrade As Integer
NumberGrade = TextBox1.Text
Välj Case NumberGrade Case
90 Till 100
Response.Write ( " A " ) katalog
mål 80 till 89
Response.Write ( " B " ) katalog
mål 70 Till 79
Response.Write ( " C " ) katalog
Case 60 till 69
Response.Write ( " D " ) katalog
Case är < 60
Response.Write ( " F " ) katalog
Case Else
Response.Write ( " Inte ett giltigt grade " ) katalog
End Select
End Sub
i exemplet ovan , om antalet " 237 " anges i textrutan , kommer följande att visas : " Inte ett giltigt klass . " <
br >