设计表单form1,表单中有命令按钮mand1、一个编辑框edit1和一个列表框list1,单击命令按钮将1949年到2049年间的五一节添加到list1中,然后计算出1949年到2049年的每个五一节是星期一的次数,并将计算结果显示在edit1中.
网友回答
命令按钮的click代码
set ansi on
csn=1949
cs=0do 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
enddthisform.edit1.value=allt(aa)+chr(13)+"五月一日是星期一共出现："+allt(str(cs))+"次"
设计表单form1,表单中有命令按钮mand1、一个编辑框edit1和一个列表框list1,单击命令按钮将1949年到2049年间的五一节添加到list1中,然后计算出1949年到2049年的每个五一节是星期一的次数,并将计算结果显示在edit1中.(图1)
设计表单form1,表单中有命令按钮mand1、一个编辑框edit1和一个列表框list1,单击命令按钮将1949年到2049年间的五一节添加到list1中,然后计算出1949年到2049年的每个五一节是星期一的次数,并将计算结果显示在edit1中.(图2)