随机函数生成器 用vb编写*利用随机函数产生20个10~99之间（包括10和99）的随机整数存入一维数组A？

用vb编写*利用随机函数产生20个10~99之间（包括10和99）的随机整数存入一维数组A？“只需在窗体中添加一个获取私有子命令的命令1Click（）CLS Dima（1to20），B（1to19）r

用vb编写*利用随机函数产生20个10~99之间（包括10和99）的随机整数存入一维数组A？

“只需在窗体中添加一个获取私有子命令的命令1Click（）CLS Dima（1to20），B（1to19）randomize print ”随机生成的组的数目是：“forI=1to20 a（I）=int（RND*90）10 printa（I）IFI=10 thenprint next print ”这个组的数目按从大到小的顺序排列，每10人一行，输出如下：“forI=1to20 forj=i1to20 IFA（I）<A（J）then t=a（I）：a（I）=a（J）：a（J）=t ENDIF next print a（I）ifimod10=0 then print next forI=1to19 B（I）=a（I）-a（i1）next X=B（1）forI=1to19 IFX<B（I）thenx=B（I）next print