VB 编程序用随机函数产生50个100以内的整数放在一维数组中，求出大于90的数及其位置？

Answer 1

dim ar(1 to 50) as integer
'--------------------------------------------
private sub command1_click()
    randomize
    dim i as integer
    for i=1 to 50
        ar(i)=int(100*rnd)
    next
'-------------------------------------
    for i =1 to 50
        if ar(i) >90 then
            print ar(i) , i
        end if
    next
end sub