编写一个对输入字符进行转换的程序.转换规则为:将大写字母转换成小写,小写转换为大写,空格不转换,其他转换为"*".要求没输入一个字符就进行判断转换.

在Text1.InterActiveChange里写代码，结果转换到Text2里，代码为：
lcStringOld=This.Value
lcStringNew=''
For lnCnt=1 To Len(lcStringOld)
lcChar=Substr(lcStringOld,lnCnt,1)
lcStringNew=lcStringNew+Iif(IsUpper(lcChar),Lower(lcChar),Iif(IsLower(lcChar),Upper(lcChar),Iif(lcChar=' ',' ','*')))
EndFor
ThisForm.Text5.Value=lcStringNew

一头雾水

Iif(IsUpper(lcChar),Lower(lcChar),Iif(IsLower(lcChar),Upper(lcChar),Iif(lcChar=' ',' ','*')))
只是IFF条件语句的嵌套以及IsUpper、Upper、Islower、Lower几个函数而已，如果这也令您一头雾水，那您想学好VFP，只能说前面是一堵墙——门都没有。

不过，大老虎的程序不能满足他的要求：因为他是要求每输入一个都进行更换，而使用这样的循环，就会把整个串的所有字符换来换去。实际上只要对最后一个字符进行更换就可以了。不知道我说的对不对。

我自己写了个
commandgroup1的click事件:
n=this.value
do case
case n=1
thisform.timer1.enabled=.t.
thisform.timer2.enabled=.f.
case n=2
thisform.timer1.enabled=.f.
thisform.timer2.enabled=.t.
endcase
timer1的timer事件:
thisform.text1.value=time()
thisform.label1.caption=""
timer2的timer事件:
t=hour(datetime())
if t>=13
thisform.label1.caption="下午"
if t>=22
thisform.text1.value=allt(t-12)+substr(datetime(),11,6)
else
thisform.text1.value=time()
endif
else
thisform.label1.caption="上午"
thisform.text1.value=time()
endif
运行timer2老出错
错哪了?

错误语句：thisform.text1.value=allt(t-12)+substr(datetime(),11,6)
原因、修改：Alltrim(t-12)--->Alltrim(Str(t-12,2))；Substr(Datetime(),11,6)--->Substr(Ttoc(Datetime(),11,6))

timer1的timer事件改为
thisform.text1.value=substr(ttoc(datetime()),10,8)
为什么显示12小时制???

只是改字符和时间有什么关系?

datetime()是12小时制
当系统时间是下午4点时为什么hour(datetime())是16