设计表单form1,表单中有命令按钮command1、一个编辑框edit1和一个列表框list1,单击命令按钮将1949年到2049年间的五一节添加到list1中,然后计算出1949年到2049年的每个五一节是星期一的次数,并将计
来源:学生作业帮助网 编辑:六六作业网 时间:2024/11/22 01:05:51
设计表单form1,表单中有命令按钮command1、一个编辑框edit1和一个列表框list1,单击命令按钮将1949年到2049年间的五一节添加到list1中,然后计算出1949年到2049年的每个五一节是星期一的次数,并将计
设计表单form1,表单中有命令按钮command1、一个编辑框edit1和一个列表框list1,单击
命令按钮将1949年到2049年间的五一节添加到list1中,然后计算出1949年到2049年的每个
五一节是星期一的次数,并将计算结果显示在edit1中.
设计表单form1,表单中有命令按钮command1、一个编辑框edit1和一个列表框list1,单击命令按钮将1949年到2049年间的五一节添加到list1中,然后计算出1949年到2049年的每个五一节是星期一的次数,并将计
命令按钮的click代码
set ansi on
csn=1949
cs=0
do whil csn<=2049
thisform.list1.additem(allt(str(csn))+"年五月一日")
rq=allt(str(csn))+"/05/01"
if cdow(ctod(rq))="Monday"
aa=thisform.edit1.value
thisform.edit1.value=allt(aa)+chr(13)+allt(str(csn))+"年五月一日是星期一"
cs=cs+1
endi
csn=csn+1
endd
thisform.edit1.value=allt(aa)+chr(13)+"五月一日是星期一共出现:"+allt(str(cs))+"次"