1. Open "C:\C_iT\data\abc0001.txt" For Input As #1
에서 따옴표안의 C는 소문자입니까? 대문자입니까?
T도 마찬가지로 알려주세요.
2. 저장
A드라이브에 저장했는데 data에 저장하라고 해서 그렇게 했습니다.
그럼 A디스캣을 나눠주는 의미가 없지 않을까요?
data에 저장하는것이 맞나요?
궁금...
3.모의고사1번
처음 풀어본 모의고사에서 오류걸렸어요.
Option Explicit
Sub main()
Dim 인수1, 인수2, K, 버퍼 As Variant
Dim 단가, 이익포인트, 거래포인트, 합계(1000), P, Temp, Num As Variant
인수1 = Val(Left(Command, InStr(Command, " ")))
인수2 = Val(Mid(Command, InStr(Command, " ")))
Open "C:\C_iT\data\abc0001.txt" For Input As #1
For K = 1 To 인수2
Line Input #1, 버퍼
If K > 인수1 Then
단가 = Val(Mid(버퍼, 12, 3))
이익포인트 = Val(Mid(버퍼, 20, 3))
거래포인트 = Val(Mid(버퍼, 27, 3))
If 단가 >= 50 Then
Num = Num + 1
합계(Num) = 이익포인트 + 거래포인트
End If
End If
Next K
For K = 1 To Num
For P = K To Num
If 합계(K) < 합계(P) Then
Temp = 합계(K)
합계(K) = 합계(P)
합계(P) = Temp
End If
Next P
Next K
Close #1
Open "C:\C_iT\data\ans1.txt" For Output As #2
Print #2, 인수1, 인수2, 합계(5)
Close #2
End Sub
뭐가 잘못일까요?