num=check1.countwhile(i<=num-1)if check1(i).value=1 thencolor=color & vbcrlf & check1(i).captionend ifi=i+1wend
蛊毒传说
慕桂英4014372
相关分类