- VB难题随机产生10个100
- 随机产生10个100-200之间的数,求最大值,结果打印在窗体上.
- 只提供一个思路,
先定义一个数组1(101)并赋值100-200和数组(10)
随机需使用rnd函数
Randomize //使每次结果不一样
for i=1 to 10
2 k=round(100*rnd(),0) //随机产生100-200之间的数包括100,200
if 数组1(k)<>"" then
数组(i)=k
else
数组1(k)=""
goto 2
end if
next i
求最大值可以做一个循环,10个数中的任意一个数减去其他数是否小于0,如果没有小于0则是最大数。
for i=1 to 10
panduan=0 //判断有与几个数差大于0
for j=1 to 10
if j<>i then
if 数组(i)-数组(j)<0 then
goto 1
else
panduan=panduan+1
next j
if panduan=9 then
数组(i)是最大值,并在窗体中显示
1 next i