只是想要一人的星空 ... 深色的星空 , 是於我的 , 因 , 那是一孤 , 於你的孤 ...

57的鼓 0站台

Private Sub Command1_Click()


Dim Chinese As Integer ’文成
Dim English As Integer ’英文成
Dim Math As Integer ’成
Dim Accounting As Integer ’成
Dim Diploma As Integer ’文理
Dim Count As Integer ’分
Dim Average As Integer ’平均



Chinese = Val(Text1.Text)
English = Val(Text2.Text)
Math = Val(Text3.Text)
Accounting = Val(Text4.Text)
Diploma = Val(Text5.Text)

Label8.Caption = Chinese + English + Math + Accounting + Diploma
Label9.Caption = (Chinese + English + Math + Accounting + Diploma) / 5





If Label9 >= 60 Then
Label10.Caption = ”及格”
Else
Label10.Caption = ”不及格”

End If



End Sub