2012年9月28日 星期五

亂數

在 VB 的程式中會有許多用到「亂數」這個功能
是 VB 必學的程式碼喔!
所以現在就來看看程式碼怎麼寫吧!

  ~程式碼 VB~  
          Dim n, i As Integer
             n = 0 : i = 1
             While i <= 1
                 n = Int(Rnd() * 99999999999) + 1
                 Select Case i
                    Case 1 : TextBox1.Text = n
                 End Select
                 i = i + 1
             End While

    ~VB 應用~   

結果會在 Textbox1.Text 中跑出來喔!
在 n = Int(Rnd() * 99999999999) + 1 中的 99999999999 是可以更改的

假如班上有 40 位同學,我要抽出一位同學
這樣的話就可以把 99999999999 改為 40

很簡單吧!


沒有留言:

張貼留言