24h購物| | PChome| 登入
2007-10-16 19:55:25| 人氣200| 回應1 | 上一篇 | 下一篇

程式語言第二次作業

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


Dim x As Integer
Private Sub Command1_Click()

x = Int(Rnd * 5) + 56

Text2.Text = x

If Val(Text1.Text) > Val(Text2.Text) Then Label3.Caption = "you win"
If Val(Text1.Text) = Val(Text2.Text) Then Label3.Caption = "fair"
If Val(Text1.Text) < Val(Text2.Text) Then Label3.Caption = "you loes"


End Sub

Private Sub Command2_Click()

x = Int(Rnd * 5) + 56

Text2.Text = x

If Val(Text1.Text) < Val(Text2.Text) Then Label3.Caption = "you win"
If Val(Text1.Text) = Val(Text2.Text) Then Label3.Caption = "fair"
If Val(Text1.Text) > Val(Text2.Text) Then Label3.Caption = "you loes"

End Sub


2個Command
3個Label (2個放在Text上面標示我的,電腦的數字 一個把字刪除放最上面)
2個Text 放在Command上面

就這樣

需要修改就是

x = Int(Rnd * 5) + 56

56改成你的座號+30

我是26號 + 30 = 56

以此類推

我要檢舉
台長： 笨小龍€
人氣(200) | 回應(1)| 推薦 (0)| 收藏 (0)| 轉寄
全站分類: 不分類

我要回應
外掛謝
......這是密技嗎

真是方便 不用打金手指...謝謝啦~
2007-10-22 20:30:17
否 是 (若未登入"個人新聞台帳號"則看不到回覆唷!)
* 請輸入識別碼：
請輸入圖片中算式的結果(可能為0) 
(有*為必填)
TOP
詳全文