vb中如何将一组数字全部组全

襄阳城

<p>vb中如何将一组数字全部组全</p>
<p><img src="http://img.baidu.com/img/iknow/icn_point.gif"> 悬赏分：0 -</p>
<p>解决时间：2009-11-30 12:30</p>
<p>在text1中有如下多组数，如: 000 001 123 ...把这些数转换成 000 001 010 100 123 132 213 231 312 321 ...后，并按从小到大排序显示在text2中.谢谢</p>
<p>问题补充：</p>
<p>非常感谢aa4681464 朋友，我的问题是: 000 001 123 等等这些数不是固定的，是随意在text1中放置的这样的3位数 N个，然后把他们转换为(000 001 010 100 123 132 213 231 312 321)这种形式到text2中.aa4681464朋友的下半程代码是这种效果，但前半程应怎么做才能现在这种效果呢?再次谢谢aa4681464，希望能完善一下. 如下是否能行呢?</p>
<p>Private Sub Command1_Click()</p>
<p>Dim a() As String</p>
<p>Dim b() As String</p>
<p>Dim c As String</p>
<p>Text2.Text = ""</p>
<p>a = Split(Text1.Text， " ")</p>
<p>For i = 0 To UBound(a)</p>
<p>For j = 1 To 3</p>
<p>For k = 1 To 3</p>
<p>For l = 1 To 3</p>
<p>b = Split(Text2.Text， " ")</p>
<p>If j <> k And j <> l And l <> k Then</p>
<p>c = Mid(a(i)， j， 1) & Mid(a(i)， k， 1) & Mid(a(i)， l， 1) & " "</p>
<p>b = Split(Text2.Text， " ")</p>
<p>For m = 0 To UBound(b)</p>
<p>If Trim(c) = b(m) Then c = ""</p>
<p>Next m</p>
<p>Text2.Text = Text2.Text & c</p>
<p>End If</p>
<p>Next l</p>
<p>Next k</p>
<p>Next j</p>
<p>Next i</p>
<p>End Sub</p>
<p>提问者： ygwyj - 二级</p>
<p>最佳答案</p>
<p>Private Sub Command1_Click()</p>
<p>Dim b() As String</p>
<p>Dim c As String</p>
<p>For j = 1 To 3</p>
<p>For k = 1 To 3</p>
<p>For l = 1 To 3</p>
<p>b = Split(Text2.Text， " ")</p>
<p>If j <> k And j <> l And l <> k Then</p>
<p>c = Mid(Text1.Text， j， 1) & Mid(Text1.Text， k， 1) & Mid(Text1.Text， l， 1) & " "</p>
<p>For m = 0 To UBound(b)</p>
<p>If Trim(c) = b(m) Then c = ""</p>
<p>Next m</p>
<p>Text2.Text = Text2.Text & c</p>
<p>End If</p>
<p>Next l</p>
<p>Next k</p>
<p>Next j</p>
<p>End Sub</p>
<p>Private Sub Form_Load()</p>
<p>Text2.Text = ""</p>
<p>End Sub</p>
<p>1</p>
<p>回答者：</p>
<p><img src="http://img.baidu.com/img/iknow/icon_huizhang.gif"></p>
<p>aa4681464 - 七级   2009-11-30 12:23</p>
<p>我来评论>></p>
<p>提问者对于答案的评价：</p>
<p>非常感谢</p>