VB:产生30个0~10000的随机数,并输出最大的那个.

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/10 12:31:19

VB:产生30个0~10000的随机数,并输出最大的那个.
VB:产生30个0~10000的随机数,并输出最大的那个.

VB:产生30个0~10000的随机数,并输出最大的那个.
dim k1 as integer
dim k2 as integer
dim k3 as integer
Randomize
k2=int(1001*rnd)
for k1=2 to 30
Randomize
k3=int(1001*rnd)
if k3>k2 then k2=k3
next k1
print k2