[전산] 성적처리소스

목차

없음

본문내용

ivate Sub mnuIrum_Click()
mnuIrum.Checked = True
mnuSungJuk.Checked = False
End Sub
Private Sub mnuSungJuk_Click()
mnuIrum.Checked = False
mnuSungJuk.Checked = True
End Sub
** Form2-Code **
Private Sub Command1_Click()
j = j + 1
If j > 5 Then
MsgBox "5개 자료이상 입력할 수 없습니다.", _
vbInformation, "입력오류"
Else
aname(j) = Text1.Text
kor(j) = Val(Text2.Text)
eng(j) = Val(Text3.Text)
mat(j) = Val(Text4.Text)
hap(j) = kor(j) + eng(j) + mat(j)
ave(j) = hap(j) / 3
End If
Text1.Text = "": Text2.Text = ""
Text3.Text = "": Text4.Text = ""
Text1.SetFocus
End Sub
Private Sub Command2_Click()
Form2.Hide
End Sub

키워드

VB,   성적처리,   프로그램,   VB베이직,   비주얼베이직