106 資二1 VB 補充語法

亂數語法
設定Random物件，使用Next語法設定亂數


Dim rnd As New Random()

TextBox1.Text = rnd.Next(0, 10)                    抽0到9的整數(猜數字)
TextBox1.Text = rnd.Next(1, 7)                      抽1到6的整數(擲骰子)
TextBox1.Text = rnd.Next(1, 38)                    抽1到37的整數(抽座號)

攝影點

桃園 沙丘
https://www.lookit.tw/travel/26783