< /asp : TextBox >
< asp : Button ID = " Button1 " runat = "server" Text = " Button" />
< /form>
2
Først må vi opprette en variabel , som vil holde heltall samlet fra TextBox1 inne knappen klikkhendelsen .
Beskyttet Sub button1_click ( ByVal avsenderen som objekt , ByVal e Som System.EventArgs ) Håndtak Button1.Click
Dim NumberGrade As Integer
NumberGrade = TextBox1.Text
End Sub
3
Deretter vil vi lage hver av våre fem case muligheter basert på bestemte tall serier.
Beskyttet Sub button1_click ( ByVal avsenderen som objekt , ByVal e Som System.EventArgs ) Håndtak Button1.Click
Dim NumberGrade As Integer
NumberGrade = TextBox1.Text
Select sak NumberGrade
sak 90 til 100
Response.Write ( "A" )
sak 80 til 89
Response . Skriv ( "B" )
sak 70 til 79
Response.Write ( "C" )
sak 60 til 69
Response.Write ( "D" )
saken er < 60
Response.Write ( "F" )
End Velg
End Sub
4
nå kan vi teste vår sak uttalelse ved å legge inn et nummer. For eksempel, hvis tallet " 87 " er inngått TextBox1 og Button1 er klikket , vil den resulterende verdien skal vises : en
"B "
5
bare hele tall som vil ikke kan håndteres ved hjelp av ovennevnte tilfelle betingelsene er de som er større enn 100 . For å legge til et behandlingsprogram for disse tallene , kan du bruke Sak Else uttalelse på slutten , som vil håndtere noe inngått tekstboksen som ikke faller innenfor de angitte områder.
Beskyttet Sub button1_click ( ByVal avsenderen som objekt , ByVal e Som System.EventArgs ) Håndtak Button1.Click
Dim NumberGrade As Integer
NumberGrade = TextBox1.Text
Velg sak NumberGrade
sak 90 til 100
Response.Write ( "A" )
sak 80 til 89
Response.Write ( "B" )
sak 70 til 79
Response.Write ( "C" )
sak 60 til 69
Response.Write ( "D ")
saken er < 60
Response.Write ( "F" )
sak Else
Response.Write ( " Ikke et gyldig nummer grade" )
End Select
End Sub
i eksempelet ovenfor , hvis tallet " 237 " er lagt inn i tekstboksen , vil følgende bli vist : " Ikke en gyldig tallkarakter . "