성적프로그램인데여 디버그가 계속해서 나는데여 어디서 틀렸는지
모르겠네여 알려주세여
Dim 석차(30) As Integer
Dim a As Integer
Dim i, j As Integer
Dim 평균(30) As Integer
Private Sub cmd끝_Click()
End
End Sub
Private Sub cmd성적_Click()
a = a + 1
mfg출력.Rows = a
mfg출력.TextMatrix(a, 0) = txt학번.Text
mfg출력.TextMatrix(a, 1) = txt국어.Text
mfg출력.TextMatrix(a, 2) = txt영어.Text
mfg출력.TextMatrix(a, 3) = txt수학.Text
mfg출력.TextMatrix(a, 4) = Val(txt국어.Text) + Val(txt영어.Text) + Val(txt수학.Text)
평균(a) = Val(mfg출력.TextMatrix(m, 4)) / 3
mfg출력.TextMatrix(m, 5) = Round(평균(a))
For i = 1 To a
석차(a) = 1
For j = 1 To a
If 평균(i) > 평균(j) Then
석차(a) = 석차(a) + 1
End If
Next j
mfg출력.TextMatrix(a, 6) = 석차(a)
Next i
txt학번.SetFocus
End Sub
Private Sub cmd입력_Click()
txt학번.Text = ""
txt국어.Text = ""
txt영어.Text = ""
txt수학.Text = ""
txt학번.SetFocus
End Sub
Private Sub Form_Load()
mfg출력.TextMatrix(0, 0) = "학번"
mfg출력.TextMatrix(0, 1) = "국어"
mfg출력.TextMatrix(0, 2) = "영어"
mfg출력.TextMatrix(0, 3) = "수학"
mfg출력.TextMatrix(0, 4) = "총점"
mfg출력.TextMatrix(0, 5) = "평균"
mfg출력.TextMatrix(0, 6) = "석차"
카페 게시글
질문/답변
디버그나는데 어디서 틀렸는지 모르겠네여
다음검색
첫댓글 오류 나는 부분과 오류메세지를 적어서 다시 올려 주세요