24h購物| | PChome| 登入
2008-04-03 09:07:22| 人氣86| 回應0 | 上一篇 | 下一篇

計算成績

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

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim A, B, C, D As Single
A = TextBox1.Text * 2
B = TextBox2.Text * 3
C = TextBox3.Text * 2
D = (A + B + C) / 7
If D >= 60 Then
Label5.ForeColor = Color.Blue
Else
Label5.ForeColor = Color.Red
End If
Label5.Text = D
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
End Sub

我要檢舉
台長： ,,飛ㄦ*

您可能對以下文章有興趣

人氣(86) | 回應(0)| 推薦 (0)| 收藏 (0)| 轉寄
全站分類: 不分類 | 個人分類: 程式設計篇 |
此分類下一篇:新增項目練習
此分類上一篇:登入系統

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