最恐怖的是...
會跟還原卡一起還原
所以寫了這個程式讓大家看看自己有沒有中獎囉
截圖:
Public Class Form1 Dim myButton() As Button Private Sub myButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) '這邊的部份使用其他物件的click事件,並把後面Handle...給刪除 Dim thisButton As Button = sender MsgBox("你按了第" & Val(Strings.Right(thisButton.Name, 2)) & "個按鈕!") '右邊兩個字即為按鈕的編號 End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load For i = 0 To 14 ReDim Preserve myButton(i) '新增陣列長度 myButton(i) = New Button '產生按鈕類別 myButton(i).Name = "myButton" & Format(i, "00") ' myButton(i).Size = New Size(30, 30) '設定大小 myButton(i).Left = (i Mod 5) * 35 + 10 '按鈕由左到右排列,五個則換一行 myButton(i).Top = (i \ 5) * 35 + 10 myButton(i).Text = Format(i, "00") Me.Controls.Add(myButton(i)) '將新增的按鈕放到表單上 AddHandler myButton(i).Click, AddressOf myButton_Click '指派事件到這個按鈕 Next End Sub End Class
剛剛好最近有在研究VB
就想說來做看看猜數字不知道有沒有人會試試看10位數的猜數字XDD
遊戲說明:
程式在開始時會產生一個4位數的數字(不重複),
您也可在右方選擇您要的位數,
不過要在4~10之間!
function noN(a){ if(a<2){return false} for(var i=2;i<Math.sqrt(a);i++){ if(a%i==0){return false} } return true }
只要調用 noN(數字) 就可以判斷該數是否為質數囉!
Math.Int=function(a,b){ try{ return a.toString(b).toUpperCase() }catch(g){ return null } }
只要調用Math.int(輸入的數字,幾進位)
就可以囉
範例:
有時在用Math.round時 不能指定到小數點第N位嗎? 那麼這個可以幫到你! 如下:
Math.Round=function(P,K){ try{ if(typeof(K)=="undefined"){var K=0;} return Math.round(P*Math.pow(10,K))/Math.pow(10,K) }catch(z){return NaN} }
只要調用Math.Round(輸入的數字,小數點第N位)
就可以囉
範例:
【軟體名稱】 | 遊戲修改大師 9 |
【軟體類型】 | 修改工具 |
【軟體語言】 | 繁體中文 |
【軟體平台】 | PC |
【解壓密碼】 | 無 |
【檔案大小】 | 約29.5MB |
【檔案類型】 | ZIP |
【存放空間】 | MediaFire |
【軟體擷圖】 | |
【軟體簡介】 |
遊戲修改大師 9 是一個擁有強大功能的視窗軟體修改工具,歷經九代的產品,成熟及穩定程度是同類型軟體中最出類拔萃的。 配合微軟 Windows 7 的推出,以及電腦硬體的製程突破,本軟體亦是 PC 上面第一個同時支援 32bit、64bit 遊戲的修改工具。 ...
|
【檔案載點】 | http://www.mediafire.com/?ckyjixm6jxltitx |