dim str as string
textbox1.MultiLine = true
Open pathname1 for input as #1
do while not EOF(1)
str= input(1, #1)
textbox1.text = textbox1.text & str
loop
close #1
Open pathname2 for input as #2
do while not EOF(1)
str= input(1, #2)
textbox1.text = textbox1.text & str
loop
close #2
Open pathname3 for output as #3
write textbox1.text
close #3
应该是这样吧