vb 老师过来看看帮帮学生

来源：百度知道 编辑：UC知道 时间：2024/05/28 17:22:27
有3个text,分别是text1，text2，text3
在这3个text分别输入数字如：
text1 120
text2 36
text3 591
那么怎么能够实现获取text1当中的每位数字和text2 ，text3当中每位数字进行排列，输入如上，结果如下：135，161，139，165，269，065等，要按照第一位text1，第二位text2，第三位text3，这个顺序排，给大家一个在一个text中每位数字互相排列的代码作参考
Private Sub Command2_Click()
list1.Clear
p = Len(Text1.Text)
For i = 1 To p
For j = i + 1 To p
For k = j + 1 To p
list1.AddItem Mid(Text1.Text, i, 1) & Mid(Text1.Text, j, 1) & Mid(Text1.Text, k, 1)
Next k
Next j
Next i
Label3.Caption = list1.ListCount
End Sub
谢谢老师，费费心
还有怎么能获取combo1中一个3位数的和，比如356能获得14这个值

Private Sub Command2_Click()
list1.Clear
For i = 1 To len(trim(text1.text))
For j = i + 1 To len(trim(text2.text))
For k = j + 1 To (len(trim(text3.text)))
list1.AddItem Mid(Text1.Text, i, 1) & Mid(Text2.Text, j, 1) & Mid(Text3.Text, k, 1)
Next k
Next j
Next i
Label3.Caption = list1.ListCount
End Sub

获得一个3位数的和：
val(combo1.text)\100+(val(combo1.text) mod 100)\10+val(combo1.text) mod 10

或者：
mid(combo1.text,1,1)+mid(combo1.text,2,1)+mid(combo1.text,3,1)
或者：
left,,,,right,,,,,等！