高手救命，遇到了读写文件的困难，帮我解决了要什么都可以

Question

private function getFmtString(aNum()as integer)as string
 dim strT as string
 dim I as integer
 dim J as integer strt=""
 for i=1 to 10
  for j=i to i+90
    strt=strt & vbtab & aNum(j)
  next j
  if i<10 then
    strt=strt & vbcrlf
  end if
  getfmtstring=mid(strt,2)
end function
使用上面函数，生成的字符串包含了要求的内容，然后将该字符串写入文件即可

Answer 1

呵呵，刚才回答过这个问题，不介意我再答一次吧
Private Sub Command1_Click()
  Dim a(99) As Long
  Dim i As Long, j As Long
  Dim str As String
  
  For i = 0 To 99
    a(i) = Int(99 * Rnd(i))
  Next
  
  For i = 0 To 9
    For j = i To i + 89
      str = str & a(j) & " "
    Next
    If i <> 9 Then
      str = str & a(i + 90) & vbCrLf
    Else
      str = str & a(i + 90)
    End If
  Next
  
  Dim filenum As Long
  filenum = FreeFile
  
  Open "c:\abc.txt" For Output As #filenum
  Print #filenum, str
  Close #filenum
End Sub

Answer 2

Open "D:\abc.txt" For OutPut As #1
Write #1,NumToFile(你的数组名())
Close #1Function NumToFile(iNum() As Integer)As String
Dim strOut As String
Dim m as Integer
Dim n as Integer For m=1 to 10
For n=n to n+90
strOut=strOut & vbTab & iNum(m)
Next
If m<10 then strOut=strt & vbCrLf
Next
End Function

Answer 3

2.0版的，呵呵！直接粘贴！Sub Main()
    Dim iNum(1 To 100) As Integer
    Dim strS As String
    For n = 1 To 100
        iNum(n) = n
    Next
    Open "D:\abc.txt" For Output As #1
    Write #1, NumToFile(iNum)
    Close #1
End Sub
Function NumToFile(iNum() As Integer) As String
    Dim strOut As String
    Dim m As Integer
    Dim n As Integer    For m = 1 To 10
        For n = m To m + 90
            strOut = strOut & vbTab & CStr(iNum(n))
        Next
        strOut = strOut & vbCrLf
    Next
    NumToFile = strOut
End Function