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

*대*
최초 등록일
2006.07.08
최종 저작일
2006.04
파일확장자 압축파일
가격 500원 할인쿠폰받기
다운로드
장바구니
퀴즈OX 이벤트

*해당 문서는 미리보기가 지원되지 않습니다.

소개글

학생의 이름과 각 과목별 점수를 입력하면.
합계와 평균이 출력됩니다.
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

참고 자료

없음
*대*
판매자 유형Bronze개인

주의사항

저작권 자료의 정보 및 내용의 진실성에 대하여 해피캠퍼스는 보증하지 않으며, 해당 정보 및 게시물 저작권과 기타 법적 책임은 자료 등록자에게 있습니다.
자료 및 게시물 내용의 불법적 이용, 무단 전재∙배포는 금지되어 있습니다.
저작권침해, 명예훼손 등 분쟁 요소 발견 시 고객센터의 저작권침해 신고센터를 이용해 주시기 바랍니다.
환불정책

해피캠퍼스는 구매자와 판매자 모두가 만족하는 서비스가 되도록 노력하고 있으며, 아래의 4가지 자료환불 조건을 꼭 확인해주시기 바랍니다.

파일오류 중복자료 저작권 없음 설명과 실제 내용 불일치
파일의 다운로드가 제대로 되지 않거나 파일형식에 맞는 프로그램으로 정상 작동하지 않는 경우 다른 자료와 70% 이상 내용이 일치하는 경우 (중복임을 확인할 수 있는 근거 필요함) 인터넷의 다른 사이트, 연구기관, 학교, 서적 등의 자료를 도용한 경우 자료의 설명과 실제 자료의 내용이 일치하지 않는 경우
우수 콘텐츠 서비스 품질인증 획득
최근 본 자료더보기
[비주얼베이직]비주얼베이직 합계 평균 석차 구하기