비주얼베이직 성적처리 계산기

소개글

제가 학교서 프로젝트 낼때 제출했던 자료입니다.
위의 목차대로 다있구요 주석도 다 달려있습니다.
교수에게 보여줘도 의심가지 않을정도의 소스입니다..

목차

총 10파일

프로그램flow
프로그램 목적
프로그램 분석
프로그램 소스

본문내용

Private Sub c2_Click()
Dim a, b, c As Double
Dim fr1 As Integer
Dim d, e As String
a = t1.Text
b = t2.Text
c = t3.Text
d = t10.Text
e = t11.Text


For i = 0 To 1
If Option1(i).Value = True Then fr1 = i
Next i

Select Case fr1
Case 0
Call sumsub(a, b, c)
Case 1
Call divsub(a, b, c)
End Select

t1.Text = ""
t2.Text = ""
t3.Text = ""

Form3.t12 = t10
Form3.t13 = t11

End Sub

Private Sub sumsub(a, b, c As Double)
Dim sum As Double
sum = a + (b + c)
*************************************************

참고 자료

없음