Transcript 下載/瀏覽Download

計算機程式及實習
期末報告之口頭報告ppt製作
題目:終極密碼
南台科技大學
機械工程系
奈米一乙
學號:49914045
學生：施嘉榮
老師:謝慶存
終極密碼
＊介紹
我想終極密碼在電視的綜
藝節目上，大家已經熟透
透了，那種刺激感就讓我
帶給大家回顧一下吧。
終極密碼遊戲:題目說明:主題說明
先按
就換進入到
接著，再輸入
一個號碼如：20
出
按下enter會跑
再來輸入90
一直反覆猜測直到猜到數字結束遊戲
如果不想玩，要離開的話請按
再按確定即關閉視窗。
接著會出現
實際程式撰寫-1-開啟檔案
實際程式撰寫-2表單(form)設計:建立輸出入介面
Label
btnend
btnstar
t
程式碼撰寫:語言程式之實作方法-1
Public Class Form1 '定義Form1提供公用類別
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
MyBase.Load
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button1.Click
Dim ans, max, min, x As Integer’宣告ans, max, min, x 為整數變數
min = 0 ’最小時零
max = 100 ’最大值一百
Randomize() ’用亂數產生器
ans = Int(Rnd() * 99 + 1) ’產生隨機零到一百的數字
Do ’用DO LOOP迴圈
1:
x = Val(InputBox(vbCrLf & "
1 ～ １００！
" & vbCrLf & _
vbCrLf & vbCrLf & "
請
選
擇
"))
If x >= 0 And x <= 100 Then
Else
GoTo 1
End If
If x = ans Then
MsgBox(vbCrLf & "Ｃｏｎｇｒａｔｕｌａｔｉｏｎｓ" & vbCrLf & vbCrLf & _
"
『
" & ans & "
』
" & vbCrLf & _
vbCrLf & "
你
輸
辣 ！ " & vbCrLf & _
vbCrLf & "
ＧＡＭＥ
ＯＶＥＲ
！ ")
ElseIf x < ans Then
MsgBox(vbCrLf & " ＧＯＯＤ ! Ｎｏｔｉｎｇ ! " & vbCrLf & vbCrLf & _
"
越 來 越 刺 激 囉 ! " & vbCrLf & _
vbCrLf & " 介 於 『 " & x & " 』 到 『 " & max & " 』 " _
& vbCrLf & vbCrLf & "
!
請 選 擇
! ")
min = x
ElseIf x > ans Then
MsgBox(vbCrLf & " ＧＯＯＤ ! Ｎｏｔｉｎｇ ! " & vbCrLf & vbCrLf & _
"
越 來 越 接 近 囉 !" & vbCrLf & _
vbCrLf & " 介 於 『 " & min & " 』 到 『 " & x & " 』 " _
& vbCrLf & vbCrLf & "
!
請 選 擇
! ")
max = x
End If
Loop Until x = ans
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button2.Click
MsgBox(vbCrLf & " 掰 掰 囉 !")
Console.ReadLine()
End
End Sub
End Class ‘結束 Form1公用類別程式
實際執行程式
要開始遊戲案進入，如要離開請按離開。
點選進入後，就開始猜測範圍
輸入某一數字後，會出現終極密碼介於多少
一直反覆猜測直到猜到數字結束遊戲
之後按下確定，即關上視窗。
心得感言
我覺得程式語言是很有趣的東西，打一些程式碼，
電腦就會跑出你要的結果，有時候要處理複雜的
資料，就要用寫出的程式讓電腦去處理，所以程
式語言真的是一種很方便的東西，不是只有大學
課程才需要學程式語言，程式語言在很多領域都
會用到，在現代中程式語言已經是不可或缺的了。
參考文獻
1.Visual Basic 2008實力養成暨評量解題秘笈 桂思強 編 碁峰
2010
2.Visual Basic 2008教學範本古頤榛 編著 碁峰資訊2009
3.Visual Basic 6中文版教學手冊古頤榛 碁峰 2006
4.學會寫程式Visual Basic 2008( Idea 3小組 碁峰 2010
5.Visual Basic 2008 程式設計作者： 葉倍宏 全華2008
6.Visual Basic程式設計余忠潔 全華2008
7.Visual Basic 2005程式設計許華菁 普林斯頓2008 8.Visual Basic
2008基礎必修課(第二版 )