excel vba 怎麽求50個隨機數字的最大值 最小值？

jackychen0 - 少校 的寫法是利用Excel表格中的數據，以及Excel的用戶函數，直接得到結果。

如果樓主是為了研究Excel VBA算法的話，我寫壹段小代碼拋磚引玉：

Sub test()

Dim mydate(1 To 50) As Single

Dim i As Integer, Maxdate As Single, Mindate As Single

'因為默認的隨機數據範圍在 0~1之間

Maxdate = -1

Mindate = 9999

Randomize

For i = 1 To 50

mydate(i) = Rnd * 9 + 1 '產生1~10的隨機數

If mydate(i) > Maxdate Then Maxdate = mydate(i)

If mydate(i) < Mindate Then Mindate = mydate(i)

Next i

MsgBox "最大數與最小數分別為：" & Maxdate & "、" & Mindate & Chr(13) & Chr(13) _

& "50個隨機數保存在數組 mydate(50) 中", vbInformation

End Sub

希望能對樓主有幫助。Good luck!

上一篇:Vc視頻編程

下一篇:十代思域破達分奇小助手收費嗎