Visual Basic giver nok værktøjer til at udføre simple operationer som at tælle ord, bogstaver eller endda specifikke tegn som vokaler og konsonanter , uden at kræve en hel del arbejde . Ting du skal
Visual Basic
Vis Flere Instruktioner
1

Opret et nyt Visual Basic-projekt ved at åbne Visual Basic og vælge "Opret projekt ... " fra seneste projekt dialog , der popper op . Alternativt kan du gå til menuen Filer og vælg " Nyt projekt ". Dette vil være en grundlæggende Windows-program , så du blot klikke på Næste eller OK for alle andre dialoger , der dukker op for en standardopsætning , indtil du står med en tom formular i GUI designer.
2

Tilføj RichTextBox ved at trække RichTextBox komponent fra komponenterne listen ind i din formular. Træk kanterne , så det fylder det meste af formen , men lad plads i bunden .
3

Tilføj en etiket ved at trække det fra komponenter listen og placere den under RichTextBox . Gå til boksen Egenskaber , som er på nederste højre hjørne af dit vindue som standard. Find teksten ejendom og ændre det til " Vokal Count: " " . Label " fra Sørg for at indstille etiketten langt nok fra højre side , så du kan tilføje vokalen tælle til teksten senere uden teksten løbe væk fra grænsen vinduet.
4

Tilføj en knap fra komponenter listen og placere den ved siden af ​​vokalen tæller etiket. Igen, skal du sørge for at give din etiket plads til tre eller fire flere tegn, der skal tilføjes til det for din vokal tæller . Skift egenskaben Tekst på knappen , så det lyder "Tæl vokaler " i stedet for " Button ".
5

Dobbeltklik på knappen. Dette vil åbne op for kildekoden til dit vindue og automatisk oprette en begivenhed funktion til at blive kaldt , når der klikkes på knappen af brugeren. Navnet på funktionen være meget lig " Button1_Click . " All koden vil gå inde i denne funktion.
6

Indtast følgende kode.

Dim bogstaver ( RichTextBox1.Text . længde) Som Charletters = RichTextBox1.Text.ToUpper.ToCharArray ()

Dim count = 0

Hvert bogstav I lettersSelect Case letterCase "A", "E" , "I" , , "O" , "U" count + = 1End SelectNext

Label1.Text = " Vokal Count: " + CStr ( count)

Går linje for linje , er dette funktionen opretter en matrix af tegn navne " breve. " Det kopierer derefter teksten fra RichTextBox , ændrer kopi, så at det er alle store bogstaver. Dette vil reducere antallet af vokaler , du skal kigge efter for at kun deres store versioner.

Dernæst et heltal skabt til at holde optælling af vokaler , som de tælles .

Derefter kode begynder at gå gennem listen af breve, én efter én, og tjekker hvert bogstav for at se, om det er en vokal. Hvis det er, så den variable tæller forøges med én.

Endelig er vokalen tæller label indstillet til at udskrive resultatet.
7

Tryk på den grønne pil for at teste din ansøgning.