每日回忆_计算机15周.docxVIP

每日回忆.计算机

高二7班

12.11周一

1.输出200以内能被3，不能被5整除开的数。显示到文本框text1里

PrivateSubCommand1_Click()

Fori=3to200

Ifimod3=0andimod50then

Text1,text=Text1.text+str(i)

Endif

Next

EndSub

12.12周二

2.逆序求出2500年至今年以内所有的闰年，输出在窗体中，每一世纪一换行。

注：闰年是指能被4不能被100，或者能被400整除开的年份。

‘可用if语句嵌套，或者一个逻辑条件语句

法一：

PrivateSubForm_DBLClick（）

Fory=2500to2000step-1

Ifymod4=0then

Ifymod1000then

?y;

Else

?

Ifymod400=0then

?y;

Endif

Endif

Endif

Next

EndSub

或法二：

PrivateSubForm_DBLClick（）

Fory=2500