vb高手请进，这个程序怎么编写？

来源：百度知道 编辑：UC知道 时间：2024/05/29 20:54:52
小弟编写一个程序 从data.txt文件中读取10行7列的距阵到二维数组中a(10,7)（这步已经实现），要需求帮助的是：如何判断a(10,7)阵列中的数，如果是奇数就用数字1表示，如果是偶数就用数字0表示，并按距阵顺序把结果写入文件”genghuan.txt”中？（写入文件时是用append方式，还是output？因为要求每次写时都要覆盖genghuan.txt中的内容）．

另外问下，我用textbox输出，每次要输出7个变量，怎么输出？如： text1.text= a&b&c&d&e&f&g
这样好象不可以 求高手指点
感谢二楼QQ上的详细讲解 ，谢谢了 分给你吧，三楼的也是对的，也非常感谢！～～

a(i,j)=a(i,j) mod 2 '奇偶表示
用output写

text1.text= a & b & c & d & e & f & g
这样就可以(a,b,c...要是变量)

如果是说输出到文件中
那么是 print #文件号, a & b & c & d & e & f & g

还有疑问QQ我 93997455

1.覆盖写入直接使用output方式
2.可以redim 一个b(10,7), 然后用它来记录对应位置是奇还是偶,并写入到文件中

...读取文件到数组a中略..

dim b(),i&,j&
redim b(10,7)

for i=1 to 10
for j=1 to 7
if a(i,j) mod 2=0 then
b(i,j)=0
else
b(i,j)=1
end if
next
next

写入文件:
open "genghuan.txt" for output as #1
for i=1 to 10
for j=1 to 7
print #1,b(i,j);
next
print #1,
next
close #1

Dim arr(10, 7) As Integer
Private Sub Command1_Click()'写入文件
Open "d:/genghuan.txt" For Output As #1
For i = 1 To 10
For j = 1 To 7
Print #1, arr(i, j) Mod 2;
Next j
Print #1,
Next i
Close #1
End Sub

Private Sub Command2_Click()