我是新人才学习VFP语句，但老师要求我写的语句结构进行调整。但我真心不会，所以在此寻求各位大神的帮助，谢谢了、
各位大神，麻烦帮下面这个VF语句做下结构的调整，任意调整就好：
语句一：
clear
set talk off
input "请输入年份:" to Y
IF Y/4=INT(Y/4).AND.Y/100<>INT(Y/100).OR.Y/400=INT(Y/400)
   ? Y,"是闰年"
ELSE
   ? Y,"不是闰年"
ENDIF
SET TALK ON
RETURN

语句二：
CLEAR
SET TALK OFF
CH=" "
@5,10 SAY "请输入一个字符:" GET CH
READ
DO CASE
   CASE UPPER(CH)<="Z" .AND. UPPER(CH)>="A"
        @7,10 SAY CH+"是字母"
   CASE CH<="9" .AND. CH>="0"
        @7,10 SAY CH+"是数字"
   OTHERWISE
        @7,10 say ch+"是一个特殊符号"
ENDCASE
SET TALK ON


此二个语句任意改一个就好，然后我很据各位大神的该法自己在去研究我其他的8个语句，先在这里谢谢了

我只懂VBA的写法VFP的写法真的不懂，麻烦各位大神帮帮忙哈
Sub 判断闰年()
Dim MyYear As Long
MyYear = InputBox("请输入一个年份", "年份", Year(Now))
If (MyYear Mod 4 = 0 And MyYear Mod 100 <> 0) Or (MyYear Mod 400 = 0) Then
    MsgBox MyYear & "是闰年!"
Else
    MsgBox MyYear & "不是闰年!"
End If
End Sub

差不多：
If (MOD(MyYear,4)=0 And MOD(MyYear,100)<>0) Or MOD(MyYear,400) = 0
    MESSAGEBOX(str(MyYear)+"年是闰年")
Else
     MESSAGEBOX(str(MyYear)+"年不是闰年")
EndIf

[ 本帖最后由 yjr3032570 于 2013-6-10 14:02 编辑 ]

谢谢你 我试试哈

看不懂老师的意图。

就是想改变下VFP的另一种写法，然后需要调整下结构的写法！

编程的关键是思路，只有思路清晰了，才能水到渠成。