비주얼베이직은 답안지가 없어서요 이렇게 짰는데 답이 안나오는데 어떻게하죠 ㄱ-; ------------------------- Sub main() End Sub Private Sub module1_Load() Option Explicit Open "D:\input.txt" For Input As #1 Open "D:\output.txt" For Output As #2 Dim data(2) As Integer Dim m As Integer Dim sum As Integer Dim min As Integer Dim x As Integer Dim y As Integer Line Input #1, data(2) If data(1) > data(2) Then m = data(1) n = data(2) Else m = data(2) n = data(1) 'data(1)이 더 크면 m이 더 큰값이 됨 End If For y = 1 To 10 For x = n To m If m = y * y Then sum = sum + y End If Next x Next y Write #2, sum Next i End Sub ----------------- 그리고 혹시나 비주얼베이직에 대한 자료가 있으신 분들이나 저를 좀 도와주실 수 있다고 생각되시는 분들 -_ㅠ 010 5656 7100 으로 연락좀 주세요 -_ㅠ 당일이 내일인데 으헝헝