Option Explicit
Private Sub Form_Load()
Dim item1(1000) As Long, item2(1000) As String, item3(1000) As interger
Dim item4(1000) As interger, item5(1000) As interger, item6 As interger
Dim item7(1000) As interger, item8(1000) As interger, item9(1000) As String
Dim item10(1000) As String, item11(1000) As String
Dim i As interger
Dim Cnt As interger
Dim arg1 As interger, arg2 As Integer
Dim buffers As String
Dim result
arg1 = Val(Left(Command, InStr(Command, 1, "")))
arg2 = Val(Mid(Command, InStr(Command, 1, "")))
Open "c:\c_it\data\abc2130.txt" For Input As #1
Open "c:\c_it\data\ans1.txt" For Output As #2
Cnt = 0
For i = 1 To arg2
Line Input #1, buffers
If i >= arg1 Then
Cnt = Cnt + 1
item1(Cnt) = Val(Left(buffers, 6))
item2(Cnt) = Mid(buffers, 7, 4)
item3(Cnt) = Val(Mid(buffers, 11, 3))
item4(Cnt) = Val(Mid(buffers, 14, 3))
item5(Cnt) = Val(Mid(buffers, 17, 3))
item6(Cnt) = Val(Mid(buffers, 20, 3))
item7(Cnt) = Val(Mid(buffers, 23, 3))
item8(Cnt) = Val(Mid(buffers, 26, 3))
item9(Cnt) = Mid(buffers, 29, 1)
item10(Cnt) = Mid(buffers, 30, 1)
item11(Cnt) = Mid(buffers, 31, 1)
End If
Next i
Dim Max As Integer
Max = item3(i) + item4(i)
result = item1(i)
For i = 2 To Cnt
If Max < item3(i) + item4(i) Then
Max = item3(i) + item4(i)
result = item1(i)
ElseIf Max = item3(i) + item4(i) Then
If result > item1(i) Then
rsult = item1(i)
End If
Next i
Print #2, arg1; arg2; result
Close
End
End Sub
이렇게 영진책에 있는 그대로 공부를 하면서 했습니다...
런타임 오류라고 하면서 디버그 체크에서 arg2=...가 잘못됐다고 합니다..
ㅡㅡ;;
그래서 소스 받아서 복사 한다음에 해도 arg2=...에서 걸립니다..
소스받은거는 잘 실행되는데 말이져..^^
도저히 안되겠어여
잘못된점 있나여???^^ 제발 부탁 리플 좀