VB如何将数个text文本框里词语组成多个组合 比如将 牛.羊.猪.狗.猫五个选四个进行组合成 羊牛猪狗 等类似这个问题,不过我想输出的是中文
来源:学生作业帮助网 编辑:作业帮 时间:2024/05/12 05:33:58
VB如何将数个text文本框里词语组成多个组合 比如将 牛.羊.猪.狗.猫五个选四个进行组合成 羊牛猪狗 等类似这个问题,不过我想输出的是中文
VB如何将数个text文本框里词语组成多个组合 比如将 牛.羊.猪.狗.猫五个选四个进行组合成 羊牛猪狗 等
类似这个问题,不过我想输出的是中文
VB如何将数个text文本框里词语组成多个组合 比如将 牛.羊.猪.狗.猫五个选四个进行组合成 羊牛猪狗 等类似这个问题,不过我想输出的是中文
稍稍改下就行了
Private Sub Command1_Click()
Dim s As String,n As Integer
Dim a(1 To 5) As String
a(1) = "牛"
a(2) = "羊"
a(3) = "猪"
a(4) = "狗"
a(5) = "猫"
n = 0
Text1.Text = ""
For l = 1 To 2
For i = l + 1 To 3
For j = i + 1 To 4
For k = j + 1 To 5
s = a(l) & a(i) & a(j) & a(k) & vbCrLf
n = n + 1
Text1.Text = Text1.Text & s
Next
Next
Next
Next
Text1.Text = Text1.Text & "共有 " & n & " 种"
End Sub
数组部分改一下就行.
Dim a(1 To 5) As string
a(1) = "牛"
a(2) = "羊"
a(3) = "猪"
a(4) = "狗"
a(5) = "猫"
循环输出部分,再加一层, 以前是4选3, 你的是5选4