Question

vb将二维数组写入到txt文件中 ， 要求列左对齐

格式要求如下
1 234445 123 23
2 12 22342 234234
3 2344 234 234
每一列左对齐，可否通过规定每个数据所占的字符数实现？提供方法即可。

Answer 1

1、打开Visual Basic 6.0软件，新建一个标准exe工程；

2、在新建的工程窗体上添加两个按钮控件，分别命名为产生数组和写入文件；

3、分别双击产生数组按钮和写入文件按钮，进入代码编辑器的按钮事件；写入如下代码：

Dim a(10, 10) As Integer
Dim str As String
Private Sub Command1_Click()
Dim i, j As Integer
For i = 1 To 10
    For j = 1 To 10
        a(i, j) = Int(Rnd * 5000)
        str = str & a(i, j) & Space(7 - Len(CStr(a(i, j))))
    Next j
        str = str & vbCrLf
Next i
Print str;
End Sub
Private Sub Command2_Click()
'覆盖写文件
Open "D:\1234567890.txt" For Output As #1
Print #1, str
Close #1
MsgBox ("写入文件完成！")
End Sub
Private Sub Form_Load()
str = ""
End Sub

4、点击运行或者按下F5运行工程，点击产生数组的按钮，可以看到产生的数组，且是左对齐的风格；

5、点击写入文件，可以成功将数组写入文件；

6、在D盘主目录下，可以看到产生的文件，打开文件，可以看到数组被写入文件，且是左对齐的格式。

Answer 2

Private Sub Command1_Click()
Dim a(9, 3) As Single
For i = 0 To 9
For j = 0 To 3
a(i, j) = i * j
Next j
Next i
Open "c:\1.txt" For Output As #1
x = ""
For i = 0 To 9
For j = 0 To 3
x = x & a(i, j) & vbTab
Next j
x = x & vbCrLf
Next i
Print #1, x
Close #1
Shell "notepad.exe c:\1.txt", vbNormalFocus
End Sub

Answer 3

用逗号输出时对齐：
x=1
y=124445
a=123
b=23
Print #1, x, y, a, b

Answer 4

留下通讯方式，我给你写完了又给灭掉了
------------------------------
按私信已发送，一看你就会明白怎么做，前面给你回答的直接给灭了，全自己写的我也搞不清楚为什么会这样。

Answer 5

用Tab试试