计算机二级vb问题求助

Option Base 1
Dim Arr1(20) As Integer
Dim Arr2(20) As Integer

Sub ReadData1()
Open App.Path & "\" & "in141.txt" For Input As #1
For i = 1 To 20
Input #1, Arr1(i)
Next i
Close #1
End Sub

Sub ReadData2()
Open App.Path & "\" & "in142.txt" For Input As #1
For i = 1 To 20
Input #1, Arr2(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 cmd1_Click()
ReadData1
ReadData2
End Sub

Private Sub cmd2_Click()
Dim arr3(20) As Integer
Dim i As Integer
Dim sum As Integer
For i = 1 To 20
arr3(i) = Arr1(i) - Arr2(i)
sum = sum + arr3(i)
Next i
Print sum

计算机二级vb相关问题 计算机二级vb的教材问题 浙江省计算机二级（VB）的问题 计算机二级vb考试 计算机二级VB 计算机二级 Vb 计算机二级VB试题 一道计算机二级VB 求助，关于国家二级计算机的问题 计算机二级考试求助!