試試這個，F(xiàn)orm1.PrintvbCrLf表示換行。OptionExplicitPrivateSubForm_Click()DimiAsIntegerFori=100To200If(iMod1=0AndiModi=0)ThenForm1.Printi;IfiMod10=0ThenForm1.PrintvbCrLfNextiEndSub

在VB里面，當一行的代碼過長時可以將該語句折斷，規(guī)則是，空格+下劃線例如，aaaabbbb要在ab中間折斷，aaaa_'空格然然加下劃線，再換行，也就是按enterbbbb要是想讓自己寫的文字顯示換行，可以在文件中間加ch(13),可實現(xiàn)此功能。