Προκειμένου η δήλωση case ώστε να τροφοδοτούνται , να πρέπει να ενεργοποιείται από ένα συμβάν . Σε αυτή την περίπτωση , θα δημιουργήσουμε μια απλή φόρμα που περιέχει ένα πλαίσιο κειμένου για το βαθμό ακέραιο που θα συναφθεί , καθώς και ένα κουμπί, το οποίο θα ενεργοποιήσει τη δήλωση υπόθεση και να εμφανίσει το προκύπτον γράμμα βαθμού .
<Μορφή id = " form1 " runat = " server" >
2 Κατ 'αρχάς, πρέπει να δημιουργήσουμε μια μεταβλητή , η οποία θα κρατήσει τον ακέραιο αριθμό που συγκεντρώθηκαν από TextBox1 μέσα το κουμπί κλικ εκδήλωση . Προστατευόμενη Sub Button1_Click ( ByVal αποστολέα ως αντικείμενο, ByVal e Όπως System.EventArgs ) Λαβές Button1.Click Dim NumberGrade Όπως Integer NumberGrade = TextBox1.Text End Sub στη συνέχεια, θα δημιουργήσουμε κάθε πέντε δυνατότητες δική μας περίπτωση με βάση το αποφάσισε αριθμό σειρές . Προστατευόμενη Sub Button1_Click ( ByVal αποστολέα ως αντικείμενο, ByVal e Όπως System.EventArgs ) Λαβές Button1.Click Dim NumberGrade As Integer NumberGrade = TextBox1.Text Επιλέξτε Case NumberGrade υπόθεση 90 Σε 100 Response.Write ( "Α" ) υπόθεση 80 έως 89 Response . Γράψτε ( "Β" ) υπόθεση 70 έως 79 Response.Write ( "C" ) υπόθεση 60 έως 69 Response.Write ( "D" ) υπόθεση είναι <60 Response.Write ( "F" ) End Select End Sub τώρα , μπορούμε να ελέγξουμε δήλωση περίπτωσή μας εισάγοντας έναν αριθμό . Για παράδειγμα , εάν ο αριθμός "87" έχει συνάψει TextBox1 και Button1 χτυπιέται, η τιμή που προκύπτει θα εμφανιστεί : " Β " The μόνο ακέραιους αριθμούς που θα δεν πρέπει να αντιμετωπίζονται με τη χρήση της παραπάνω δήλωση την περίπτωση είναι εκείνες που είναι μεγαλύτερες από 100 . Για να προσθέσετε ένα χειριστή για αυτούς τους αριθμούς , μπορείτε να χρησιμοποιήσετε την πρόταση Case Else στο τέλος , το οποίο θα χειριστεί οτιδήποτε εισαχθεί στο πλαίσιο κειμένου που δεν εμπίπτει εντός καθορισμένων περιοχών σας . Προστατευόμενη Sub Button1_Click ( ByVal αποστολέα Όπως Object, ByVal e Όπως System.EventArgs ) Λαβές Button1.Click Dim NumberGrade As Integer NumberGrade = TextBox1.Text Επιλογή υπόθεση NumberGrade υπόθεση 90 Σε 100 Response.Write ( "Α" ) υπόθεση 80 έως 89 Response.Write ( "Β" ) υπόθεση 70 Προς 79 Response.Write ( "C" ) υπόθεση 60 έως 69 Response.Write ( "D" ) υπόθεση είναι <60 Response.Write ( "F" ) Case Else Response.Write ( "Δεν είναι ένα έγκυρο αριθμό βαθμού » ) End Select End Sub στο παραπάνω παράδειγμα , αν ο αριθμός " 237 " έχει εισαχθεί στο πλαίσιο κειμένου , θα εμφανιστεί το ακόλουθο : " . Μη έγκυρη βαθμό τον αριθμό "
εικόνων 3
4
5
Η
Η
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα