[비주얼베이직]비주얼베이직 합계 평균 석차 구하기

소개글

학생의 이름과 각 과목별 점수를 입력하면.
합계와 평균이 출력됩니다.
1등 보기를 누르면 1등의 이름과 평균이 출력됩니다.,

컴파일 실행환경

visual basic 6.0

본문내용

End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim firstname As String
Dim firstavg As Double
Dim acount As Integer
Private Sub Command1_Click()
Dim kor As Integer
Dim eng As Integer
Dim math As Integer
Dim sum As Integer
Dim avg As Double

acount = acount + 1
kor = Text2
eng = Text3
math = Text4
sum = kor + eng + math
avg = sum / 3

If acount = 1 Then
firstavg = avg
firstname = Text1.Text
End If

If firstavg < avg Then
firstavg = avg
firstname = Text1.Text
End If

Text5.Text = sum
Text6.Text = avg

Label1 = Label1 & "이름 :" & Text1.Text & " 총점 :" & Str(sum) & _
" 평균 :" & Str(avg) & vbCrLf
Label12 = "인원 수 : " & Str(acount) & "명"

압축파일 내 파일목록

성적.vbp
성적.frm

참고 자료

없음