m = 1
n = 5
Randomize '隨機數初始化聲明
'再用Rnd函數產生隨機數
'如果產生壹個N到M之間的隨機數(n>m,包含n,m)表達式可為;
r = Int(Rnd * (n - m + 1) + m)
MsgBox r