问一道关于数组的问题?

Question

大家好,我刚学VB,有1题目不会,望有人能解答?
题目是:随机产生10个递增的100-400的随机数,存放到数组中,并显示结果.我想要如何排成递增的号码.

Answer 1

option base 1  '通知编译系统数组下标为1
dim  num(10) as integer '定义10个元素的数组，用来存放产生的10个随机数。
dim  i,j  as  integer   '循环变量
dim  temp as integer   '临时变量，用做排序时交换两数private sub  command1_click()
for  i=1 to 10  '产生随机数
    num(i)=int(rand()*301)+100
next ifor i=1 to 10
    for j=i+1 to 10
       if num(i)<num(j) then
          temp=num(i)
          num(i)=num(j)
          num(j)=temp
       end if
    next j
next ifor i=1 to 10 
    print num(i);
next i
end sub 
          

Answer 2

如果想每次生成的随机数不重复，加上vba.randomize now()private sub  command1_click()
    vba.randomize now() '产生随机数种子
    for  i=1 to 10  '产生随机数
        num(i)=int(rand()*301)+100
    next i
    .....end sub