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

来源:学生作业帮助网 编辑:作业帮 时间:2024/07/11 09:54:00
VB:产生30个0~10000的随机数,并输出最大的那个.
x) szg֓]˟Oold*:C x>gsv=Am/M~ھٜK$Sh~ 5\mXWZ5*j.Y e%50*K -5R(W06 )NH1 4p

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