急求一个把英文字符串大写改为小写,小写改为大写的VFP程序
2个回答
展开全部
如果是将该字符串全部改为大写或小写,用下面的程序
clear
accept "请输入转换字符串" to a
wait "请输入转换方式(大写U/小写L)" to b
if b=u
a=upper(a)
else
a=lower(a)
endif
?a
return
如果是将一个字符串中的字母大小写互换,用以下程序
CLEAR
accept '请输入转换字符串' to a
b=UPPER(a)
FOR i=1 TO LEN(a)
IF substr(b,i,1)>substr(a,i,1)
LOOP
ELSE
b=LEFT(b,i-1)+LOWER(substr(a,i,1))+SUBSTR(b,i+1)
ENDIF
ENDFOR
?b
return
clear
accept "请输入转换字符串" to a
wait "请输入转换方式(大写U/小写L)" to b
if b=u
a=upper(a)
else
a=lower(a)
endif
?a
return
如果是将一个字符串中的字母大小写互换,用以下程序
CLEAR
accept '请输入转换字符串' to a
b=UPPER(a)
FOR i=1 TO LEN(a)
IF substr(b,i,1)>substr(a,i,1)
LOOP
ELSE
b=LEFT(b,i-1)+LOWER(substr(a,i,1))+SUBSTR(b,i+1)
ENDIF
ENDFOR
?b
return
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |