세 과목의 점수를 입력받아 총점과 평균을 구하는 프로그램을 작성하시오.

  1) 각각 세 과목의 점수를 입력받는다.

  2) 총점은 세 과목의 합을 구한다.

  3) 평균은 총점을 3으로 나눈 값

  4) '성적 계산' 버튼을 클릭하면 총점과 평균이 계산된다.

Private Sub Command_계산하기_Click()

Dim kor, eng, mat, sum, ave As Integer

kor = Val(Text_국어.Text)                       '계산을 위해 숫자로 변환

eng = Val(Text_영어.Text)

mat = Val(Text_수학.Text)      

sum = kor + eng + mat                          '과목 총점 구하기    

ave = sum / 3                                  '과목 평균 구하기  

Text_총점 = sum                                '총점 출력    

Text_평균 = ave                                 '평균 출력

End Sub

Private Sub Command_끝내기_Click()

End

End Sub