vfp程序设计判断是否闰年

《vfp程序设计判断是否闰年》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、Vfp程序设计循环结构练习——使用列表框设计九九乘法表1、实验目的：掌握循环语句结构语法。熟练掌握DOWHILE……ENDDO、FOR……ENDFOR语句了解SCAN……ENDSCAN语句掌握组合框、页框。熟练掌握列表框。2、实验内容：编程题：输出“九九”乘法表，格式如图所示设计步骤：1、设计程序界面与设计对象属性。选择“新建”表单，进入表单设计器。增加一个列表框控件List1、两个个命令按钮Command1和Command2、一个标签Label1。其他控件的属性设置请参见前面章节。设置List1的属性见表对象

2、属性属性值说明List1ColumnCount10列对象的数目ColumnLines.F.-假列间的分割线ColumnWidths25,25,25,25,25,25,25,25,25,25各列的宽度2、编写Command1的Click事件代码：FORn=1TO9s=ALLT(STR(n-1))i=ALLT(STR(n))THISFORM.LIST1.ADDLISTITEM("*",1,1)THISFORM.LIST1.ADDLISTITEM(i,n+1,1)FORt=nTO9i=ALLT(STR(n))THIS

3、FORM.LIST1.ADDLISTITEM(i,1,n+1)s=ALLT(STR(t*n))THISFORM.LIST1.ADDLISTITEM(ALLT(STR(t))+"*"+ALLT(STR(n))+"="+s,t+1,n+1)ENDFORENDFOR说明：添加列表方法AddlistItem(s,n,1)第三个参数表示列表项添加到列表中的列数。编写Command2的Click事件代码：THISFORM.RELEASE先画2个文本框在画一个命令按钮在命令按钮CLICK过程中输入y=val(thisform

4、.text1.value)ifmod(y,100)<>0andmod(y,4)=0y="是闰年"elseifmod(y,400)=0theny="是闰年"elsey="不是闰年"endifendifthisform.text2.value=y