Option Base 1
Dim Arr(100) As Integer
Dim Sum As Integer '存储累加和
Sub ReadData()
    Open App.Path & "\" & "datain1.txt" For Input As #1
        For i = 1 To 100
            Input #1, Arr(i)
        Next i
    Close #1
End Sub

Sub WriteData(Filename As String, Num As Integer)
    Open App.Path & "\" & Filename For Output As #1
        Print #1, Num
    Close #1
End Sub

Private Sub Calc_Click()
    Sum = 0
    For i = 1 To 100
    If Arr(i) < 50 Then
        Text1.Text = Text1.Text & CStr(Arr(i)) & Chr(13) & Chr(10)
        Sum = Sum + Arr(i)
    End If
    Next i
    Print Sum
End Sub

Private Sub Read_Click()
Call ReadData
End Sub

Private Sub Save_Click()
Call WriteData("dataout.txt", Sum)
End Sub
                    提问
（Open App.Path & "\" & "datain1.txt" For Input As #1
        For i = 1 To 100
            Input #1, Arr(i)
        Next i
    Close #1）这一句的意思是什么？

Text1.Text & CStr(Arr(i)) & Chr(13) & Chr(10)   这有是什么意思


谢谢了各位大虾