private sub from_click()

来源:百度知道 编辑:UC知道 时间:2024/04/27 17:58:27
dim a(6) as integer ,i as integer
dim b(1to2,1to2) as integer,j as integer
for i=0 to 6
a(i)=int(99*rnd)+1
print a(i)
next i
print

int(99*rnd)+1 这个怎样算呢

产生1-100之间的随机数
rnd是一个函数,生是0-1之间的随机数

rnd函数随机产生一个0到1之间的数
0=<rnd<1
0=<99*rnd<99
0=<int(99*rnd)<=98 (对99*rnd这个数 取整数部分)
1=<int(99*rnd)<=99

int(99*rnd)+1产生的数是 1-99

可以这样记 如果 想产生 一个a-b之间的数
用 int((b-a+1)*rnd)+a

另外用rnd函数时 前面最好加上Randomize 这样每次产生的随机数列是不同的

dim a(6) as integer ,i as integer
dim b(1to2,1to2) as integer,j as integer
for i=0 to 6
Randomize
a(i)=int(99*rnd)+1
print a(i)
next i
print