Transcript 下載/瀏覽Download

比大小遊戲
南台科技大學
機械工程系
先進車輛組
學號 :4A015005
姓名 : 洪弘昌
產品動機
做這個遊戲的目的是，希望在空閒的時間
可以和朋友有一個可以打發時間的遊戲或
是可以永朋友促進友誼關係。
遊戲玩法說明
電腦亂數選
出一個數字來跟你
PK
公布輸贏結果
隨意輸入1~100
以內的數字
選完數字後開始PK
程式碼說明
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles Button1.Click
Dim fame As Integer
Dim rnd As New Random
fame = rnd.Next(1, 100)
TextBox1.Text = fame
If Val(TextBox1.Text) > TextBox2.Text Then
程式碼說明
TextBox3.Text = ("你婢輸e了F，A再A試MO一@次﹐。C")
Else
TextBox3.Text = ("你婢贏1了F。C")
End If
End Sub
Private Sub TextBox2_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles TextBox2.Click
TextBox2.Clear()
End Sub
程式碼說明
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles MyBase.Load
End Sub
End Class
上課心得
這次老師非常的認真，特地去找很多有關丙級檢定
的影片，雖然有點看不懂，不過還是非常感謝老師
這麼用心，希望下次還有機會能繼續上老師的課。