用VB写个程序把连续数字排列出来

来源：百度知道 编辑：UC知道 时间：2024/06/14 06:12:12
用VB写一个程序，使数字在文本框中这样排列：

01 02 03 04…………

然后每67个数字换行

第二行是68 69 ....排列到31行

同样的，01 02 …………31
第二行 32 33... 排列到67行，给我代码就可以了
最后把排列的结果给我
不用VB也可以，告诉我一个基本思路就可以，最好整个代码都给我
我主要是想要结果，不是过程，不高兴一个一个排了

Private Sub Command1_Click()
For i = 1 To 100
Print i;
If i Mod 10 = 0 Then Print
Next i
End Sub

你想几个数字 换一个行就改代码中的 数字10

Function txt(a As Integer, b As Integer) As String
x = 1
For n = 1 To a
For m = 1 To b
xx = xx & Format(x, "00") & " "
x = x + 1
Next
xx = xx & vbCrLf
Next
txt = xx
End Function
调用Text1.Text = Text1.Text & txt(31, 67)
或者Text1.Text = Text1.Text & txt(67, 31)