answersLogoWhite

0

Dim f,s as String

Dim i,v,c as Integer

s=Text1.Text

For i=1 To Len(s)

f=Mid(s,i,1)

IF f='A' or f='E' or f='I' or f='O' or f='U'

v=v+1

ELSE

c=c+1

END IF

NEXT

Lebe2.Caption="vowels"=&v

Lebel2.Caption="consonant"=&c

User Avatar

Wiki User

12y ago

What else can I help you with?