Question

VFP程序设计统计字符串中各元音字母（即：A、E、I、O、U）的个数.* 注意：字母不分大、小写.* 例如：若输入：TH

Answer 1

CLEAR

s="This is a boot"

STORE 0 to i1,i2,i3,i4,i5

FOR i=1 to LEN(s)

m=SUBSTR(s,i,1)

DO CASE

CASE m="A" .or. m="a"

i1=i1+1

CASE m="E" .or. m="e"

i2=i2+1

CASE m="I" .or. m="i"

i3=i3+1

CASE m="O" .or. m="o"

i4=i4+1

CASE m="U" .or. m="u"

i5=i5+1

OTHERWISE

ENDCASE

ENDFOR && 要加上 ENDFOR

? i1,i2,i3,i4,i5