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

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在首句专
切记定义类型属

将已选取的数字，移出下一次随机数的范围
Option Explicit
Option Base 1
Private Sub Command1_Click()
Dim myarray(7), data(30) As Integer
Dim i%, SN%, TEMP%
For i = 1 To 30
data(i) = i
Next i
For i = 1 To 7
SN = Int(Rnd() * (31 - i)) + 1
myarray(i) = data(SN)
data(SN) = TEMP
TEMP = data(31 - i)
data(SN) = TEMP
Print myarray(i)
Next i
Print
End Sub

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

---

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