Question

【急在线等！！！】vfp 在文本框中输入一个年份,点击命令按钮后在列表框中输出100个自该年份开始的闰年.

一开始写了个这样的 一直死循环( p_q)求大佬指正
a=thisform.text1.value
p=0
do while p<=100
if a%4=0 and a%100<>0 or a%400=0
thisform.list1.additem(allt(str(a)))
a=a+1
p=p+1
endif
enddo

Answer 1

a=thisform.text1.value
p=0
do while p <100
if a%400=0
thisform.list1.additem(str(a,4))
p=p+1
endif
if a%400 <>0 and a%4=0
thisform.list1.additem(str(a,4))
p=p+1
endif
a=a+1
enddo