خروجی Text یک آرایه دو بعدی

[AmirPasha_vb]

با سلام خدومت دوستان
چه جوری میشه یه آرایه دو بعدی (ماتریس) رو به همون شکل ماتریس خروجی تکست بگیرم

دستور Print مربوط به Open Statement در هر سطر یک درایه رو وارد میکنه در صورتی که باید هر سطر ماتریس در هر سطر فایل تکست وارد بشه ...

البته تو این تاپیک (http://barnamenevis.org/forum/showthread.php?t=134022&highlight=Open+%D8%A2%D8%B1%D8%A7%DB%8C%D9%87) برعکس سوال من پرسیده شده !

[mostafa_golden]

با سلام خدومت دوستان
چه جوری میشه یه آرایه دو بعدی (ماتریس) رو به همون شکل ماتریس خروجی تکست بگیرم

دستور Print مربوط به Open Statement در هر سطر یک درایه رو وارد میکنه در صورتی که باید هر سطر ماتریس در هر سطر فایل تکست وارد بشه ...

البته تو این تاپیک (http://barnamenevis.org/forum/showthread.php?t=134022&highlight=Open+%D8%A2%D8%B1%D8%A7%DB%8C%D9%87) برعکس سوال من پرسیده شده !

سلام دوست من


On Error Resume Next
Dim b(1 To 4, 1 To 4) As Integer
For i = 1 To 4
For j = 1 To 4
b(i, j) = Int(99 * Rnd + 1)
Next j
Next i

For i = 1 To 4
For j = 1 To 4
Print " "; "b("; i; ","; j; ")="; _
b(i, j);
Next j
Print
Next i

[AmirPasha_vb]

سلام دوست من


On Error Resume Next
Dim b(1 To 4, 1 To 4) As Integer
For i = 1 To 4
For j = 1 To 4
b(i, j) = Int(99 * Rnd + 1)
Next j
Next i

For i = 1 To 4
For j = 1 To 4
Print " "; "b("; i; ","; j; ")="; _
b(i, j);
Next j
Print
Next i

ممنون دوست عزیز
اما این کد روی فرم چاپ میکنه
من میخوام دقیقا به همین صورتی که روی فرم چاپ شد توی یه فایل تکست نوشته بشه
ممنون