用数组来做可以Dim Q(2)Q(0)=1111111Q(1)=2222222Q(2)=3333333For i = 0 to 2。。。输入文本 Q(i)。。。next不知道你要实际什么功能,如果QQ数据太多。数组就不太好了,因为没规律但好像可以用直接提取txt文档内容来做