την εφαρμογή Microsoft Visual Basic Express και κάντε κλικ στο "New Project " στο "Start Page " καρτέλα . Κάντε κλικ στο " Visual Basic " κάτω " Εγκατεστημένα πρότυπα " και κάντε διπλό κλικ στο "Console Εφαρμογή " για να δημιουργήσετε ένα νέο έργο της κονσόλας . 2
αντιγραφή και επικόλληση του παρακάτω κώδικα κάτω από το " Sub Main ( ) " για να δημιουργήσετε δύο μεταβλητές που θα χρησιμοποιήσετε για να ελέγξετε για τους χαρακτήρες αλφαβήτου σε μια σειρά : " . Σήμερα είναι η 18η "
Dim bldStr Όπως New System.Text.StringBuilder
Dim arrayChr ( ) Όπως Char =
Η 3
Δημιουργία « για ... Loop " , πληκτρολογώντας τον παρακάτω κώδικα και επισυνάπτει κάθε χαρακτήρα αλφάβητο στο " bldStr " μεταβλητή :
For Each CHTR Όπως Char σε arrayChr
Αν Char.IsLetter ( CHTR ) Στη συνέχεια bldStr.Append ( CHTR )
Επόμενο
Η 4
Προβολή string χρησιμοποιώντας το παράθυρο της κονσόλας , πληκτρολογώντας τον παρακάτω κώδικα :
Console.Write ( bldStr )
MsgBox ( "Τέλος" )
5
Πατήστε το " F5 " για να τρέξετε το πρόγραμμά σας και να δείτε τα αποτελέσματα
Η
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα