亂數

在 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

很簡單吧！