Transcript 下載/瀏覽

大樂透模擬器
南台科技大學
機械工程系
奈米一乙
姓名:董孟佺
學號:49914031
老師:謝慶存
textbox
Buttom1
程式碼撰寫
Public Class Form1
Private Sub Button1_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Button1.Click
Dim num(7), i, j, tmp As Integer
text1.Text = ""
Randomize()
num(1) = Int(Rnd() * 49) + 1 'Rnd()
For i = 2 To 7
num(i) = Int(Rnd() * 49) + 1
For j = 1 To i - 1
If num(i) = num(j) Then
i=i-1
Exit For
End If
Next
Next
For i = 5 To 1 Step -1
For j = 1 To i
If num(j + 1) < num(j) Then
tmp = num(j)
num(j) = num(j + 1)
num(j + 1) = tmp
End If
Next
Next
For i = 1 To 7
text1.Text = text1.Text + CStr(num(i)) + " "
Next
End Sub
End Class
實際執行程式
心得感言
這學期的實際操作練習，
讓我覺得程式碼更困難許多而且也更複雜，
因為困難度的增加，
讓我覺得在程式設計遇到許多的挫折。
尤其是這次要自己寫一個遊戲程式，
頓時覺得原來我平常玩的小遊戲需要花費這麼大
的精神去撰寫，
讓我深刻地體會到寫程式的人的辛苦。