新人求助！请大家帮忙写个程序！加法运算的！

Question

是这样的。公司要做个网站群，需要大量的关键词。现在两部分关键词都已经有了，要做的就是把两部分关键词做成关键字组合。
   譬如要定义的A 有200个 词  B有 30个词  假如A里有 我的  你的 我们的 他们的  大家的  老总的 同事的 B里有 糖果 香蕉  橘子 等等。做出程序运行后可以得出两部分所有的组合情况  像上面会出现24种情况。
   我希望就是做个程序有2个文本框可以把要组合的词输进去 然后运行得出结论。以前学过的，3年不用忘干净了。现在AB的个数不确定，能做成变量不？
   谢谢了哥们！冰天雪地裸体跪冰渣谢谢啊！！！！！！

Answer 1

假设你每一项都是一行，中间有vbcrlf换行符存在。Option ExplicitPrivate Sub Form_Load()
    Text1.Text = "ÎÒµÄ" & vbCrLf & _
                "ÄãµÄ" & vbCrLf & _
                "ÎÒÃǵÄ" & vbCrLf & _
                "ËûÃǵÄ" & vbCrLf & _
                "´ó¼ÒµÄ" & vbCrLf & _
                "ÀÏ×ܵÄ" & vbCrLf & _
                "ͬʵÄ" & vbCrLf
    Text2.Text = "Ìǹû" & vbCrLf & _
                "Ï㽶" & vbCrLf & _
                "éÙ×Ó" & vbCrLf
End SubPrivate Sub Command1_Click()
    Dim astrA() As String, astrB() As String
    Dim astrAB() As String
    Dim lngA As Long, lngB As Long
    Dim lngAB As Long
    
    astrA() = Split(Text1.Text, vbCrLf)
    astrB() = Split(Text2.Text, vbCrLf)
    
    ReDim astrAB((UBound(astrA()) + 1) * (UBound(astrB()) + 1) - 1)'//AB个数减一得到数组最大下标
    
    '//组合
    For lngA = 0 To UBound(astrA())
        If astrA(lngA) <> "" Then
            For lngB = 0 To UBound(astrB())
                If astrB(lngB) <> "" Then
                    astrAB(lngAB) = astrA(lngA) & astrB(lngB)
                    lngAB = lngAB + 1
                End If
            Next
        End If
    Next
    
    '//输出
    Text3.Text = Join(astrAB, vbCrLf)
End Sub

Answer 2

晕，上面怎么有乱码，再贴一遍。
Option ExplicitPrivate Sub Form_Load()
    Text1.Text = "ÎÒµÄ" & vbCrLf & _
                "ÄãµÄ" & vbCrLf & _
                "ÎÒÃǵÄ" & vbCrLf & _
                "ËûÃǵÄ" & vbCrLf & _
                "´ó¼ÒµÄ" & vbCrLf & _
                "ÀÏ×ܵÄ" & vbCrLf & _
                "ͬʵÄ" & vbCrLf
    Text2.Text = "Ìǹû" & vbCrLf & _
                "Ï㽶" & vbCrLf & _
                "éÙ×Ó" & vbCrLf
End SubPrivate Sub Command1_Click()
    Dim astrA() As String, astrB() As String
    Dim astrAB() As String
    Dim lngA As Long, lngB As Long
    Dim lngAB As Long
    
    astrA() = Split(Text1.Text, vbCrLf)
    astrB() = Split(Text2.Text, vbCrLf)
    
    ReDim astrAB((UBound(astrA()) + 1) * (UBound(astrB()) + 1) - 1)
    
    For lngA = 0 To UBound(astrA())
        If astrA(lngA) <> "" Then
            For lngB = 0 To UBound(astrB())
                If astrB(lngB) <> "" Then
                    astrAB(lngAB) = astrA(lngA) & astrB(lngB)
                    lngAB = lngAB + 1
                End If
            Next
        End If
    Next
    
    Text3.Text = Join(astrAB, vbCrLf)
End Sub