Private Sub Command1_Click()
Open "C:\WINDOWS\바탕 화면\공부방\비베\report\강의평가.txt" For Input As #1
Open "C:\WINDOWS\바탕 화면\공부방\비베\report\강의평가결과.txt" For Output As #2
Dim out(60, 15), a(6, 15), k(5), sum(15)
Dim b(6, 15) As String
Data1.Refresh
With Form2.MSFlexGrid1
For i = 1 To 20 ' --- 인원수 ----
For j = 1 To 15 ' --- 문항수 ----
out(i, j) = .TextMatrix(i - 1, j - 1)
Next j, i
End With
Erase a
For i = 1 To 20 ' - 앙케이트 항목별 누계--------
For j = 1 To 15
Select Case out(i, j)
Case 1: a(1, j) = a(1, j) + 1: k(1) = k(1) + 5
Case 2: a(2, j) = a(2, j) + 1: k(2) = k(2) + 4
Case 3: a(3, j) = a(3, j) + 1: k(3) = k(3) + 3
Case 4: a(4, j) = a(4, j) + 1: k(4) = k(4) + 2
Case 5: a(5, j) = a(5, j) + 1: k(5) = k(5) + 1
Case Else: a(6, j) = a(6, j) + 1
End Select
If out(i, j) <> " " Then
sum(j) = sum(j) + 1 ' -응답자 인원수 카운트
End If
Next j, i
' ------------- 앙케이트 출력 --------------
For i = 1 To 15
Line Input #1, dt$
'-------------- 앙케이트 문항 출력 ------
m$ = m$ + dt$ & vbCrLf
'-------------- 문항별 응답자 출력 -----
For j = 1 To 5
m$ = m$ + "(" & j & ") " & a(j, i) & "명 (" & sum(i) & " 명 응답) [" & Format(a(j, i) / sum(i), " 00.00 % ") & " ] " & vbCrLf
Next j
m$ = m$ + vbCrLf '?줄을 바꾸어준다
Next i
Form2.Text1 = m$
'- 점수화하여 텍스트 박스에 출력----
For i = 1 To 5
tot = tot + k(i)
Next i
Text2.Text = Format(20, "### 명 응답")
Text3.Text = Format(tot / 20, "###.#0 점")
End Sub
Private Sub Command2_Click()
End
End Sub
위에서 여섯번째줄에서...
Data1.Refresh <----------------이부분에서 계속해서 에러가 납니다..