VB中怎样每输出三个数据换一行

Question

在text文本中得到如：000001002003004030031032033034060061062063064090091092093094200201202203204230231232233234260261262263264290291292293294400401402403404430431432433434460461462463464490491492493494
这样的一些数，我想每三个数换一行，该怎样写语句呢？多谢

Answer 1

代码及注释如下：

Private Sub command1_click()
Dim tempTxt As String, i As Integer, j As Integer
T = Text1'将Text1中的文本赋予变量T
Text1 = ""'清空text1
Text1.multiline=true'text1可以多行显示
For i = 1 To Len(T)'获得T的长度
Text1 = Text1 & Mid(T, i, 1)'将T一位一位的依次存在到Text1中
j = j + 1'每存放依次，j增加1
If j = 3 Then'当j=3时
j = 0'j归零
Text1 = Text1 & vbCrLf'Text1增加换行
End If
Next i
End Sub

Answer 2

你要的三个数据是指一个数字为一个数据？如果是这样的话，你先把text的multiline属性设置为true，然后
Option Explicit
’方法1
Private Sub command1_click()
Dim tempTxt As String, i As Integer, j As Integer
tempTxt = Text1
Text1 = ""
For i = 1 To Len(tempTxt)
Text1 = Text1 & Mid(tempTxt, i, 1)
j = j + 1
If j = 3 Then
j = 0
Text1 = Text1 & vbCrLf
End If
Next i
End Sub

’方法2
Private Sub Command2_Click()
Dim tempTxt As String, i As Integer
tempTxt = Text1
Text1 = ""
For i = 1 To 3 * (Len(tempTxt) \ 3) Step 3
Text1 = Text1 & Mid(tempTxt, i, 3) & vbCrLf
Next
For i = 3 * (Len(tempTxt) \ 3) + 1 To Len(tempTxt) '如果能够保证数据是3的倍数那就不用这段代码了··呵呵··
Text1 = Text1 & Mid(tempTxt, i, 1)
Next本回答被提问者和网友采纳

Answer 3

'最简单的做法
Dim s As String, i As Long
s = Text1.Text'改成你要输出的变量
On Error Resume Next
For i = 1 to Len(s)
Me.Print Mid(s,i,3)
Next i

Answer 4

写个循环输出vbctrl