编写表单的Destroy事件代码：lab=0编写容器container1的init事件代码：public lab[10,10]for i = 1 to 100    k=allt(str(i))    this.addobject('lab&k','label')    lab[i]=this.lab&kendforfor i = 1 to 10    for j=1 to 10      with lab[i,j]        .left=25*(j-1)+2        .top =20*(i-1)+2        .height=20        .width=25        .visible=.t.        .caption=allt(str((i-1)*10+j))        .alignment=2        .fontbold=.t.        .fontname='garamond'      endwith    endfor endfor  编写“开始”按钮command1的click事件代码：n = 100lab(1).enabled=.f.for i = 2 to sqrt(n)   if lab(i).enabled=.t.     wait'现在开始将能被'+allt(str(i))+'整除的整数筛去';            windows at 8,50 timeout 3     for j= i + 1 to n        if j%i=0          wait '将'+allt(str(j))+'筛去'windows at 8,50 timeout 0.3          lab(j).enabled=.f.        endif     endfor   endifendfor a=messagebox('下来的整数都是素数'+chr(13)+'再做一遍吗?',4+48,'') if a=6   for i=1 to 100    lab(i).enabled=.t.  endfor endif 编写“关闭”按钮Command2的click事件代码：release thisform                

评论