ファイル TOFU - プログラム倉庫

Private Sub Command1_Click()
    Dim bun As String
    Dim ostr As String
    Dim ma As Object
    Dim n As Integer
    Dim a1 As String
    Dim a(1 To 1000) As String
    Dim nx As Single
    Set ma = CreateObject("Tofu.TofuMA.1")
    
n = 0
Open "c:/work/book/31.txt" For Input As #1
Do Until EOF(1)
Input #1, a1
n = n + 1
a(n) = a1
Loop
Close #1
    
    bun = a(1)
    For n = 1 To nx
    bun = bun + a(n)
Next
    ostr = ma.analyze(bun)
    Debug.Print (ostr);
    


End Sub