第一：把label做成控件数组第二：for i=1 to 9text1.text=text1.text+label1(i).captionnext i
好办：TEXT 1.TEXT = LABEL1.CAPTION & LABEL2.CAPTION & ....&LABEL9.CAPTION
