24h購物| | PChome| 登入
2007-09-03 09:57:36| 人氣41| 回應0 | 上一篇 | 下一篇

...

推薦 0 收藏 0 轉貼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

我要檢舉
台長： no name *
人氣(41) | 回應(0)| 推薦 (0)| 收藏 (0)| 轉寄
全站分類: 不分類

我要回應
否 是 (若未登入"個人新聞台帳號"則看不到回覆唷!)
* 請輸入識別碼：
請輸入圖片中算式的結果(可能為0) 
(有*為必填)
TOP
詳全文