Question

vb文本框换行

我要把下面这段文字输入textbox1,然后textbox2根据顿号判断输出，每个校名占一行。浙江财经学院、深圳大学、湘潭大学、武汉理工大学、广东商学院、上海交通大学、郑州大学、中国地质大学、河北经贸大学、江西师范大学、河南师范大学、南京理工大学、广东金融学院、山东经济学院、上海海事大学、长春税务学院、中南民族大学、安徽财经大学、东北大学、河海大学、重庆工商大学、山西大学、湖南商学院、广东外语外贸大学、安徽大学、哈尔滨师范大学、东南大学、宁波大学、湖南师范大学、广东工业大学、广西师范大学、上海大学、华中农业大学、山东财政学院、西南科技大学、陕西师范大学、西南交通大学、苏州大学、河北工业大学、贵州大学、华南农业大学、合肥工业大学、新疆大学、青岛大学、西安财经学院、山西师范大学、天津财经大学、湖北大学、湖南科技大学、云南财经大学、湖北经济学院、天津商业大学、安徽师范大学、山东理工大学、新疆财经大学、温州大学、重庆交通大学、贵州师范大学、北京物资学院、西北师范大学、北京航空航天大学、华侨大学、徐州师范大学、延边大学、长春理工大学、北京工商大学、沈阳理工大学、新疆师范大学、福建农林大学、黑龙江大学、北京理工大学、天津师范大学、中央民族大学、中国石油大学、中国政法大学、哈尔滨商业大学、广西大学、郑州航空工业管理学院、聊城大学” 注意：换行的条件为顿号，“

Answer 1

dim str as string
str="浙江财经学院、深圳大学、湘潭大学、武汉理工大学、广东商学院、上海交通大学、郑州大学、中国地质大学、河北经贸大学、江西师范大学、河南师范大学、南京理工大学、广东金融学院、山东经济学院、上海海事大学、长春税务学院、中南民族大学、安徽财经大学、东北大学、河海大学、重庆工商大学、山西大学、湖南商学院、广东外语外贸大学、安徽大学、哈尔滨师范大学、东南大学、宁波大学、湖南师范大学、广东工业大学、广西师范大学、上海大学、华中农业大学、山东财政学院、西南科技大学、陕西师范大学、西南交通大学、苏州大学、河北工业大学、贵州大学、华南农业大学、合肥工业大学、新疆大学、青岛大学、西安财经学院、山西师范大学、天津财经大学、湖北大学、湖南科技大学、云南财经大学、湖北经济学院、天津商业大学、安徽师范大学、山东理工大学、新疆财经大学、温州大学、重庆交通大学、贵州师范大学、北京物资学院、西北师范大学、北京航空航天大学、华侨大学、徐州师范大学、延边大学、长春理工大学、北京工商大学、沈阳理工大学、新疆师范大学、福建农林大学、黑龙江大学、北京理工大学、天津师范大学、中央民族大学、中国石油大学、中国政法大学、哈尔滨商业大学、广西大学、郑州航空工业管理学院、聊城大学"

str=replace(str,"、",chr(13))
text1.text=str