private sub command1_click() if i <= 50 then i = i + 1 label1.caption = i end if end sub
发表于:2007-03-12 08:41:503楼 得分:0
dim i as integer
private sub button1_click() for i=1 to 49 '不清楚是要在label中只显示1、2 还是显示1、2、3、4...49 '如果是第一种 if i mod 2=0 then label1.caption=2 else label1.caption=1 end if '如果是第一种 label1.caption=i next i