VB程式-msgbox的成績平均+評語＠★不能說★﹋的。☆秘密☆

2007-09-20 14:52:51| 人氣885| 回應0 | 上一篇 | 下一篇

VB程式-msgbox的成績平均+評語

推薦 0 收藏 0 轉貼0 訂閱站台

Private Sub Command1_Click()
MsgBox ”請跟著提示輸入成績”
國 = InputBox(”請輸入國文成績”)
英 = InputBox(”請輸入英文成績”)
數 = InputBox(”請輸入數文成績”)
Label1.Caption = ”國文成績為” & 國 & ”分”
Label2.Caption = ”英文成績為” & 英 & ”分”
Label3.Caption = ”數文成績為” & 數 & ”分”
Avg = (Val(國) + Val(英) + Val(數)) / 3
Label4.Caption = ”平均” & Round(Avg, 2) & ”分”
If Avg >= 90 Then
MsgBox ”超強的”
Else
If Avg >= 60 And Avg < 90 Then
MsgBox ”還不錯”
Else
MsgBox ”要在加油”
End If
End If
End Sub

Private Sub Command2_Click()
Label1.Caption = ””
Label2.Caption = ””
Label3.Caption = ””
Label4.Caption = ””
End Sub

我要檢舉

台長：奶茶

人氣(885) | 回應(0)| 推薦 (0)| 收藏 (0)| 轉寄
全站分類: 不分類 | 個人分類: VB ☺程式設計 |
此分類下一篇:又來摟VB菜單程式寫法
此分類上一篇:溫度轉換VB程式(攝氏轉華氏)

回應(0)

★不能說★﹋的。☆秘密☆ 這是奶茶的新聞台，一杯奶茶10元歐~~ 1,331愛的鼓勵 0訂閱站台

VB程式-msgbox的成績平均+評語

★不能說★﹋的。☆秘密☆ 這是奶茶的新聞台，一杯奶茶10元歐~~
1,331愛的鼓勵 0訂閱站台