使用隨機數函數 Randomize或者Rnd 實現
源代碼如下：
Dim?min,n1,n2 //定義兩個變量為
Randomize?n1?=?Int(90?*?Rnd+10)
n2?=?Int(90?*?Rnd+10)
if?n1?>?n2?then
min?=?n2
else?
min?=?n1
end?if
msgbox?"第壹個數是："?&?n1?&?"?第二個數是："?&?n2?&?"?最小的數是："?&?min
運行代碼效果如下：
實現隨機產生四個三位數如上代碼，只需要再定義兩個變量n3，n4。
源代碼如下
Dim?max,n1,n2,n3,n4,arr
Randomize
n1?=?Int(900?*?Rnd+100)
n2?=?Int(900?*?Rnd+100)
n3?=?Int(900?*?Rnd+100)
n4?=?Int(900?*?Rnd+100)
arr?=?Array(n1,n2,n3,n4)
max?=?n1
for?each?x?in?arr
if?max?<?x?then?max?=?x
next
msgbox"n1:"?&?n1?&?"?n2:"?&?n2?&?"?n3:"?&?n3?&?"?n4:"?&?n4?&?"?最大的數是："?&?max
效果如下：
擴展資料：
rand函數的由來
srand((unsigned)time(NULL))則使用系統定時/計數器的值作為隨機種子。每個種子對應壹組根據算法預先生成的隨機數，所以，在相同的平臺環境下，不同時間產生的隨機數會是不同的，相應的，若將srand（unsigned）time(NULL)改為srand(TP)（TP為任壹常量），則無論何時運行、運行多少次得到的“隨機數”都會是壹組固定的序列，因此srand生成的隨機數是偽隨機數。
百度百科-rand函數