Transcript 下載/瀏覽Download

數字猜猜猜
學號:4a212077
姓名:林子耀
班級:日四技自控一甲
指導老師:謝慶存
 程式碼撰寫
 Public Class Form1
 Dim TEX As Long
 Dim A, B As Integer
 Dim sum As Long
 Private Sub Button1_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles Button1.Click

Timer1.Enabled = True

Button1.Enabled = False
 End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles Timer1.Tick
 Randomize()

TEX = Int(Rnd() * 1000)

Label1.Text = TEX

A=A+1

If (A = 500) Then

A=0

sum = Label1.Text

Label1.Text = ""

Timer1.Enabled = False



End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles Button2.Click
 If (TextBox1.Text = "") Then

MsgBox("請D輸e入J數A字r喔a", 1, "提弛G醒o")

ElseIf (TextBox1.Text > 1000) Then

MsgBox("請D輸e入J1000以DH下U喔a", 1, "提弛G醒o")

TextBox1.Text = ""

ElseIf (TextBox1.Text > sum) Then

Label3.Text = "比n" & TextBox1.Text & "小p"

TextBox1.Text = ""

ElseIf (TextBox1.Text < sum) Then

Label3.Text = "比n" & TextBox1.Text & "大j"

TextBox1.Text = ""

ElseIf (TextBox1.Text = sum) Then

Label3.Text = "恭￥喜s你婢猜q對i囉o"

TextBox1.Text = ""

sum = 0

Label1.Text = 0
 B = MsgBox("是O否巢結g2束得", 4, "猜q數A字r")









If (B = 6) Then
End
ElseIf (B = 7) Then
Label3.Text = ""
Button1.Enabled = True
End If
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles MyBase.Load
 End Sub
 End Class
其實就是終極密碼的遊戲，再按下開始鍵後，
電腦隨機從0~1000之間挑選一數字，而我
們將自己所猜想的數字輸入之後，依照比數
字大或數字小在訊息方框顯示比自己所猜的
數字大或小
心得
 學習電腦語言可以幫助我了解一些小程式運算的原
 理，該如何將正確的程式寫出來真的好有學問，比
 起cnc來說我覺得計算機概論似乎難了許多。