主题：[求助]简单的排列组合代码

Dim ss1() As String = {"A1","A2"}

Dim ss2() As String = {"B1","B2","B3"}

Dim ss3() As String = {"C1","C2","C3"}

For Each s1 As String In ss1

    For Each s2 As String In ss2

        For Each s3 As String In ss3

            Output.Show(s1 & "-" & s2 & "-" & s3)

        Next

    Next

Next