UC知道vb中怎样将数字拆分成两码
来源：百度知道 编辑：UC知道 时间：2024/09/25 01:20:32
Text1.Text 里的数组拆分成两码
假如是123 234 345 456 567 678 789 890 901 012
在Text2.Text里面显示他们的两码组合
12 23 13 23 34 24 34 45 35 46
56 46 56 67 57 67 78 68 78 89
79 89 09 08 09 01 19 01 12 02
在Text2.Text里面显示 删除重复组合，自动换行以10个组合为一行
12 23 13 34 24 45 35 46 56 67
57 78 68 89 79 09 08 01 19 02
在Text2.Text里面只显示 删除重复组合
假如是123 234 345 456 567 678 789 890 901 012
在Text2.Text里面显示他们的两码组合
12 23 13 23 34 24 34 45 35 46
56 46 56 67 57 67 78 68 78 89
79 89 09 08 09 01 19 01 12 02
在Text2.Text里面显示 删除重复组合，自动换行以10个组合为一行
12 23 13 34 24 45 35 46 56 67
57 78 68 89 79 09 08 01 19 02
在Text2.Text里面只显示 删除重复组合
我从你的举例中觉得
1、你是原来的都是3位数；
2、每个数字拆分为3个，分别是第一第二位、第二第三位、第一第三位。
如果以上判断正确，可以使用以下代码：
Dim 新数组
Dim n As Integer
Private Sub Command1_Click()
Dim 原数组
Dim 数字 As String
Dim 数字1 As String
Dim 数字2 As String
Dim 数字3 As String
原数组 = Split(Text1)
n = 0
For i = 0 To UBound(原数组)
数字 = Trim(Str(原数组(i)))
数字1 = Left(数字, 2)
If 没有(数字1) Then
n = n + 1
If n Mod 10 = 0 Then Text2 = Text2 & vbCrLf
Text2 = Text2 & 数字1 & " "
End If
数字2 = Right(数字, 2)
If 没有(数字1) Then
n = n + 1
If n Mod 10 = 0 Then Text2 = Text2 & vbCrLf
Text2 = Text2 & 数字1 & " "
End If
数字3 = Left(数字, 1) & Right(数字, 1)
If 没有(数字1) Then
n = n + 1
If n Mod 10 = 0 Then Text2 = Text2 & vbCrLf
Text2 = Text2 & 数字1 & " "
End If
Next i
End Sub
Private Sub Form_Load()
Text1 = "123 234 345 456 567 678 789 890 901 012"
Text