Text1.Text减Text2.Text=?

来源：百度知道 编辑：UC知道 时间：2024/06/05 09:31:23
Private Sub Command1_Click()
Text3.Text = Trim(StrJJ(Text1.Text, Text2.Text)) & " "
End Sub
以上是单行的相减,如果Text2.Text窗口是多行怎么编写,小弟不会,请高手帮忙编写,谢谢
多行数据(一个数后一个空格)还是用Text1.Text窗口
01 02 05 06 07 10 33 23 32
22 23 25 29 30 21 15 18 19
.......

你是想做成一列的那种？还是什么，多行是什么意思。用ListBox代替行吗？
Private Sub Command1_Click()
Dim a() As String
Dim b() As String
Dim i As Integer
Dim j As Integer
a = Split(Text1.Text)
b = Split(Text2.Text)
For i = 0 To UBound(a)
Text3.Text = Text3.Text + Str(Val(a(i)) - Val(b(i))) + " "
Next i
End Sub
自己再整理一下吧