dim a as stringa="asjfloqwejoiwejropwejpwaej"a=a+chr(10)chr(10)是换行和回车兼具,再不就再加一个chr(13)