module1.bas

来自「用visual basic编写的有限元程序！」· BAS 代码 · 共 14 行

Attribute VB_Name = "Module1"
Sub SaveArr(Par1#())
    Dim M&, N&, I&, J&
    M = UBound(Par1, 1): N = UBound(Par1, 2)
    Open App.Path + "\Arr.txt" For Output As #1
    For I = 1 To M
        For J = 1 To IIf(N < 64, N, 64)
            Write #1, Par1(I, J), ;
        Next
        Write #1,
    Next
    Close #1
End Sub