Om het case-statement te worden ontslagen , het moet worden geactiveerd door een gebeurtenis . In dit geval zullen we een eenvoudig formulier met een tekstvak voor het integer leerjaar die worden aangegaan, evenals een knop , die de zaak uitspraak zal leiden en geeft de resulterende brievenrang creëren .

< Vorm id = " form1 " runat = " server " >

< /asp : TextBox >

< asp : Button ID = " Button1 " runat = " server " Text = " Button " />

< /form >
2

Ten eerste , moeten we creëren een variabele , die zal het gehele getal verzameld van TextBox1 binnen de gebeurtenis click -knop ingedrukt .

Protected Sub Button1_Click ( ByVal afzender als Voorwerp , ByVal e als System.EventArgs ) Handles Button1.Click

Dim NumberGrade
As Integer

NumberGrade
= TextBox1.Text

End Sub
3

Vervolgens zullen we maken elk van onze vijf case mogelijkheden op basis van het besluit nummer ranges .

Beschermde Sub Button1_Click ( ByVal afzender als Voorwerp , ByVal e als System.EventArgs ) Handles Button1.Click

Dim NumberGrade
als Geheel

NumberGrade
= TextBox1.Text < br

Select Case NumberGrade

Case >
90 Tot 100

Response.Write
( " A " )

zaak
80 Tot 89

Response
. Schrijf ( " B " )

zaak
70 Tot 79

Response.Write
( " C " )

zaak
60 Tot 69

Response.Write
( " D " )

zaak
Is < 60

Response.Write
( " F " )

End of Selecteer

End Sub
< br > 4

Nu kunnen we onze zaak uitspraak te testen door het invoeren van een nummer . Als bijvoorbeeld het getal " 87 " in TextBox1 wordt ingevoerd en Button1 wordt geklikt , de resulterende waarde wordt weergegeven :

" B "
5

De enige gehele getallen die zal niet behandeld worden met behulp van het bovenstaande geval statement zijn die groter zijn dan 100 . Om een handler voor deze nummers toe te voegen , kunt u de zaak Else statement gebruiken op het einde , waarin alles ingevoerd in het tekstvak dat niet binnen het opgegeven bereik valt zal behandelen .

Protected Sub Button1_Click ( ByVal afzender als object , ByVal e als System.EventArgs ) Handles Button1.Click

Dim NumberGrade
als Geheel

NumberGrade
= TextBox1.Text

Selecteer Case NumberGrade

Case
90 Tot 100

Response.Write
( " A " )

zaak
80 Tot 89

Response.Write
( " B " )

zaak
70 To 79

Response.Write
( " C " )

zaak
60 Tot 69

Response.Write
( " D " )

zaak
Is < 60

Response.Write ( " F " )

zaak
Else

Response.Write
( " geen geldig nummer graad " )

End of Select < br
>

End Sub

In het bovenstaande voorbeeld, als het getal " 237 " in het tekstvak wordt ingevoerd, wordt het volgende weergegeven : " Geen geldig getal graad . "
< br >