求解，下面代码的意思！！

Dim a(100) As Integer
Private Sub Cmd1_Click()
    Open App.Path & "\dr021.dat" For Input As #1
    Txt1.Text = ""
    For i = 1 To 100
        Input #1, a(i)
        Txt1.Text = Txt1.Text & a(i) & Space(1)
    Next i
    Close #1
End Sub

Private Sub Cmd2_Click()
    Txt1.Text = ""
    s = 0
    For i = 1 To 100
        If a(i) Mod 2 = 0 Then
            Txt1.Text = Txt1.Text & a(i) & Space(1)
            s = s + a(i)
        End If
    Next
    writedata s
End Sub
有一模板，是不是有模板了，writedata后面就不用加文件名了，比如：writedata "dw021",s这样

按CMD1按钮，读取文件dr021.dat中的100个数据，并显示在TXT1中，每个之间一个空格。

按CMD2按钮，依次读取文件dr021.dat中的数据，如果是偶数，就在TXT1中显示，每个之间一个空格，并将每个偶数数据相加，即S，并将S的结果写入文件吧，最后一句貌似不全

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息