用vb如何把两个文本框的内容按一定格式合并成一个文本框？

Question

具体要求是；按行合并，两个文本框的行按冒号隔开？比如：text1有三行文字，内容是：
北京
上海
天津
…………

text2也有三行文字，内容是：
1号
2号
3号

合并后的文本框text3的内容应该是：
北京：1号
上海：2号
天津：3号
…………
问题补充：一定要用vb代码来实现
好代码将加分！！！

Answer 1

超级简单
1、添加三个text控件，text1 text2和text3，并且把MultiLine属性设为True，注意：三个都要设为true
2.添加一个command控件，command1
3、复制代码进去运行
Private Sub Command1_Click()
Dim temp1() As String
Dim temp2() As String
temp1() = Split(Text1.Text, vbCrLf)
temp2() = Split(Text2.Text, vbCrLf)

For i = 0 To UBound(temp1)
Text3.Text = Text3.Text & temp1(i) & ":" & temp2(i) & vbCrLf
Next i
End Sub

Private Sub Form_Load()
Text1.Text = "北京" & vbCrLf & "上海" & vbCrLf & "天津"
Text2.Text = "1号" & vbCrLf & "2号" & vbCrLf & "3号"
Command1.Caption = "合并"
End Sub

Answer 2

用JavaScript(脚本语言)获取前两个文本框的值,再将两个文本框的值相加赋给第三个文本框