可以将四个文本框做成控件组。代码如下for i =0 to 4if text1(i).text <>'' thenif ea.text <> "" then ea.text=ea.text & vbcrlfea.text=ea.text & text1(i).textend if next i
