Visual Basic ger tillräckligt med verktyg för att utföra enkla operationer, såsom att räkna ord , bokstäver eller ens specifika tecken som vokaler och konsonanter , utan att kräva en hel del arbete . Saker du behöver Review, Visual Basic
Visa fler instruktioner
1
Skapa ett nytt Visual Basic-projekt genom att öppna Visual Basic och välja " Skapa projekt ... " från senaste projektet dialogrutan som dyker upp . Alternativt kan du gå till menyn Arkiv och välj " Nytt projekt . " Detta kommer att vara en grundläggande Windows-program , så enkelt klicka på Nästa eller OK för alla andra dialogrutor som dyker upp för en standardkonfiguration tills du står inför en tom form i GUI designer .
2
Lägg ett RichTextBox genom att dra RichTextBox komponent från listan Komponenter i formuläret . Dra kanterna så att det tar upp det mesta av den formen , men lämna utrymme i botten .
3
Lägg en etikett genom att dra den från listan Komponenter och placera den under RichTextBox . Gå till dialogrutan Egenskaper , som är längst ner till höger i fönstret som standard . Hitta egenskapen text och ändra det till " vokal Count : " " . Label " från Var noga med att ställa in etiketten tillräckligt långt från den högra sidan så att du kan lägga till vokal räkna till text senare utan texten kör utanför gränsen för fönstret .
4
Lägg en knapp från listan Komponenter och placera den bredvid vokal räkna etiketten . Återigen , se till att du ger din etikett plats för tre eller fyra tecken som ska läggas till det för din vokal räknas . Ändra text egendom knappen så att den läser " Räkna vokaler " i stället för " Button ".
5
Dubbelklicka på knappen . Detta kommer att öppna upp källkoden för ditt fönster och automatiskt skapa en händelse funktion som ska anropas när knappen klickas av användaren . Namnet på funktionen kommer att vara mycket lik " Button1_Click . " All kod kommer att gå in denna funktion .
6
Skriv följande kod .
Dim bokstäver ( RichTextBox1.Text . längd ) Som Charletters = RichTextBox1.Text.ToUpper.ToCharArray ( ) katalog
Dim count = 0
för varje bokstav i lettersSelect Case letterCase " A " , " E " , " jag " , , " O " , " U " count + = 1End SelectNext
Label1.Text = " vokal Count : " + CStr ( count ) katalog
Going rad för rad , detta funktionen skapar en array av tecken namnger " bokstäver . " därefter kopierar text från RichTextBox , ändrar kopian så att det är allt i versaler . Detta kommer att minska antalet vokaler du behöver leta efter att bara deras versala versioner .
Därefter ett heltal skapats för att hålla det sammanlagda antalet vokaler eftersom de räknas . Sedan
, den koden börjar att gå igenom listan av bokstäver , en efter en , och kontrollerar varje bokstav för att se om det är en vokal . Om det är , då variabeln count ökas med ett .
Slutligen vokal räkna etikett inställd på att skriva ut resultatet . Tryck på den gröna pilen för att testa
7
din ansökan . Addera
