Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Aby case byť vyhodený , je musí byť spustená udalosť . V tomto prípade budeme vytvoriť jednoduchý formulár , ktorý obsahuje textové pole pre celočíselné stupňa , aby sa uzavrela , rovnako ako tlačidlo , ktoré spustí príkaz case a zobrazí výsledný list známku .
< Formulár id = " Form1 " runat = " server " >
< asp : Button ID = " Button1 " runat = " server " Text = " Tlačidlo " /> < /form > Po prvé , musíme vytvoriť premennú , ktorý sa bude konať na celé číslo získané od TextBox1 vnútri tlačidla kliknite na udalosť . Protected Sub Button1_Click ( byVal sender As Object , byval e ako System.EventArgs ) Kľuky Button1.Click klipart Dim NumberGrade as Integer NumberGrade = TextBox1.Text End Sub ďalšie , budeme vytvárať každý z našich piatich možností prípadových na základe rozhodol počtu rozsahy . Chránené Sub Button1_Click ( byVal sender As Object , byval e ako System.EventArgs ) Kľuky Button1.Click klipart Dim NumberGrade As Integer NumberGrade = TextBox1.Text Vyberte Case NumberGrade Case 90 až 100 Response.Write ( " A " ) Case 80 až 89 odozvy . write ( " B " ) Case Response.write 70 až 79 ( " C " ) Case Response.write 60 až 69 ( " D " ) prípade , že je < 60 Response.Write ( " F " ) End Select End Sub Teraz môžeme testovať naše case zadaním čísla . Napríklad , ak zadáte číslo " 87 " do TextBox1 a Button1 kliknutí , výsledná hodnota bude zobrazená : " B " iba celými číslami , ktorá bude nemôžu byť riešené pomocou vyššie uvedeného case sú väčšie ako 100. Ak chcete pridať obslužnú rutinu pre tieto čísla , môžete použiť Case Else vyhlásenie na konci , ktorý sa bude zaoberať nič zadali do textového poľa , ktoré nespadá do svojich stanovených limitov . Protected Sub Button1_Click ( byval sender ako object , byval e ako System.EventArgs ) Kľuky Button1.Click klipart Dim NumberGrade As Integer NumberGrade = TextBox1.Text klipart Select Case NumberGrade puzdro 90 K 100 Response.Write ( " A " ) Case Response.write 80 až 89 ( " B " ) Case 70 až 79 Response.Write ( " C " ) Case Response.write 60 až 69 ( " D " ) Case Is < 60 Response.Write ( " F " ) Case Else Response.Write ( " nie je platné číslo grade " ) End Select End Sub klipart Vo vyššie uvedenom príklade , ak číslo " 237 " sa zapíše do textového poľa , vkladá sa zobrazí : " . nie je platné číslo grade "
2
3
4
5