Visual Basic gir nok verktøy til å utføre enkle operasjoner som å telle ord, bokstaver eller til og med spesifikke karakterer som vokaler og konsonanter , uten at det kreves en god del arbeid. Du trenger
Visual Basic
Vis flere instruksjoner
en

Opprett en ny Visual Basic-prosjekt ved å åpne Visual Basic og velge " Opprett prosjekt ... " fra Nylig Prosjekt dialogboksen som dukker opp . Alternativt kan du gå til Fil-menyen og velg "New Project. " Dette vil være en grunnleggende Windows-program, så klikker du bare på Neste eller OK for alle andre dialogbokser som dukker opp for en standard konfigurasjon før du blir møtt med et tomt skjema i GUI designer .
2

Legg en RichTextBox ved å dra RichTextBox komponenten fra komponentene listen i skjemaet. Dra kantene slik at det tar opp mesteparten av form, men la det være plass nederst.
3

Legg en etikett ved å dra den fra komponentene listen og legg den under RichTextBox . Gå til Properties -boksen , som er nederst til høyre i vinduet som standard. Finne teksten eiendom og endre den til " Vokal Count :" " . Label" fra Sørg for å sette etiketten langt nok fra høyre side , slik at du kan legge vokalen telle til teksten senere uten teksten kjører utenfor grensen til vinduet.
4

Legg en knapp fra komponentene listen og plassere den ved siden av vokalen teller etiketten. Igjen , må du gi din etiketten plass til tre eller fire flere tegn som skal legges til det for din vokal teller. Endre teksten eiendom på knappen slik at den leser " Count Vokaler " i stedet for " Button ".
5

Dobbeltklikk på knappen . Dette vil åpne opp kildekoden for vinduet ditt, og automatisk opprette en hendelse funksjon å bli kalt når knappen klikkes av brukeren. Navnet på funksjonen vil være svært lik " button1_click . " All kode vil gå inne i denne funksjonen.
6

Skriv inn følgende kode .

Dim bokstaver ( RichTextBox1.Text . lengde) Som Charletters = RichTextBox1.Text.ToUpper.ToCharArray ( )

Dim count = 0

for hver bokstav i lettersSelect sak letterCase " A", " E" , "I" , , "O" , "U " teller + = 1End SelectNext

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

Going linje for linje , dette funksjonen oppretter en rekke tegn navn " bokstaver ". deretter kopierer tekst fra RichTextBox , endres kopien slik at det er alt i store bokstaver. Dette vil redusere antall vokaler du må se etter for å bare sine store versjoner .

Deretter blir et heltall opprettet for å holde oversikt over vokaler som de telles .

Deretter kode begynner å gå gjennom listen av bokstaver , en etter en , og sjekker hver bokstav for å se om det er en vokal . Hvis det er, så variabelen teller økes med én .

Endelig er vokalen teller etiketten satt til å skrive ut resultatet.
7

Trykk på den grønne pilen for å teste programmet.