vb程序怎样将一组数字转换成两码数字

来源：百度知道 编辑：UC知道 时间：2024/05/30 04:50:03
将234转换成
23 24 34

Private Sub Command1_Click()
Dim i&, k&, sss$, tt$
tt = Text1 '数字为 234
For i = 1 To Len(tt)
For k = i To Len(Text1.Text)
If i <> k Then sss = sss & i & k & " "
Next k
Next i
Text2.Text = "所有组合为：" & sss '转换结果12 13 23 应该是： 23 24 34

End Sub

Private Sub Command1_Click()
Dim i&, k&, sss$, tt$
tt = Text1 '数字为 234
For i = 1 To Len(tt)
For k = i To Len(Text1.Text)
If i <> k Then sss = sss & Mid(tt, i, 1) & Mid(tt, k, 1) & " " '这里改一下即可
Next k
Next i
Text2.Text = "所有组合为：" & sss '转换结果12 13 23
End Sub

Private Sub Command1_Click()
Dim i&, k&, sss$, tt$
tt = Text1 '数字为 234
For i = 1 To Len(tt)
For hggjjjjjjjjjjjh
If i <> k Then sss = sss & Mid(tt, i, 1) & Mid(tt, k, 1) & " " '这里改一下即可
Next k
Next i
Text2.Text = "所有组合为：" & sss '转换结果12 13 23
End Sub jiafdg

用这个函数可以实现转换
Function Change(MinNum As Long, MaxNum As Long) As String
Dim Out As String
Dim i As Long
Dim j As Long
For i = MinNum To MaxNum - 1
For j = i + 1 To MaxNum
Out = Out & " " & i & j
Next
Next
Change