vba返回10个数中最大的数

vba返回10个数中最大的数a=0.1
b=0.2
c=0.3
d=0.4
e=0.5
f=0.6
g=0.7
h=0.8
i=0.9
j=1
比方以上10个数
通过哪个vba函数或者什么方法能比较后得到j
用vba的代码 谢谢在线等

sub 由小到大生成一定范围内的随机数()
dim i as integer, x as integer, k as integer
i = 1

dim d as object
set d = createobject("scripting.dictionary") '定义并创建字典对象

randomize
x = int((rnd * 100) + 1) '随机生成第1个[1,100]之间的整数
d.add x, i '将生成的值赋予字典

'以下循环生成剩余9个[1,100]的随机数，并赋予字典d（此时这10个随机数不重复）
do while i < 10
    x = int((rnd * 100) + 1)
    if not d.exists(x) then
        i = i + 1
        d.add x, i
    end if
loop

'以下循环将已经生成的10个随机数，按由小到大的顺序输出，可在立即窗口查看
do
    k = application.worksheetfunction.min(d.keys)
    debug.print k
    d.remove (k)
    i = i - 1
loop until i = 0
end sub

你这十个数都是变量 ，还是单元格区域，还是？

sub test () msgbox "最大数是：" & max(range("A1:A10")) msgbox "最大数是：" & max(range("A1:G10")) msgbox "最小数是："& min(range("A1:A10")) msgbox "最小数是："＆min(range("A1:G10")) end sub