計概＠☆ 遇見幸福ㄌ嗎? ☆｜PChome Online 個人新聞台

2005-04-19 11:53:48| 人氣32| 回應0 | 上一篇 | 下一篇

計概

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

Private Sub Command1_Click()
Dim G!
G = Val(Text1.Text)
If G < 0 Or G > 100 Then
MsgBox "重新輸入", vbOKOnly, "輸入錯誤"
Else
x = G 10
Select Case x
Case 9, 10
Label2.Caption = "優"
Case 8
Label2.Caption = "甲"
Case 7
Label2.Caption = "乙"
Case 6
Label2.Caption = "丙"
Case Else
Label2.Caption = "再加油"
End Select
End If

End Sub

Private Sub Command2_Click()
Text1.Text = ""
Label2.Caption = ""
End Sub

來複製ㄅ

花哈哈

我要檢舉

台長：恬妞~@

人氣(32) | 回應(0)| 推薦 (0)| 收藏 (0)| 轉寄
全站分類: 心情日記(隨筆、日記、心情手札)

回應(0)

推薦(0)

我要回應

* 回應人：

E-mail：

悄悄話：

否是 (若未登入"個人新聞台帳號"則看不到回覆唷!)

回應內容：

* 請輸入識別碼：

請輸入圖片中算式的結果(可能為0)

(有*為必填)

☆ 遇見幸福ㄌ嗎? ☆ 你是我ㄉ幸福ㄇ? 為何幸福讓人如此憂鬱 愛情漸漸模糊 你ㄉ付出我總不夠清楚 你是我ㄉ幸福ㄇ? 為何幸福讓人變ㄉ憂鬱 我愛你不在懷疑 只想對你說 我願意 68愛的鼓勵 0訂閱站台

計概

☆ 遇見幸福ㄌ嗎? ☆ 你是我ㄉ幸福ㄇ? 為何幸福讓人如此憂鬱愛情漸漸模糊你ㄉ付出我總不夠清楚你是我ㄉ幸福ㄇ? 為何幸福讓人變ㄉ憂鬱我愛你不在懷疑只想對你說我願意
68愛的鼓勵 0訂閱站台