VB中怎样写1--30数字随机产生7个数字

dim i as integer
dim a(i) as integer
for i=1 to 7
a(i)=int(rnd*30+1)
print a(i)
next i

如果要30个数字都不一样就要用randomize在首句 切记定义类型

for i = 1 to 7
randomize
num=int(rnd*30+1)
print "第" & i & "个随机数是" & num
next i

for i=1 to 7
a(I)=rand*30
next i