![](https://cos-cdn.shuashuati.com/pipixue-wap/2020-1230-1107-56/ti_inject-812ce.png)
数的各种应用 利用随机函数产生80个10~90之间的随机整数,将其中的奇数按由小到大的顺序排列并输出,将其中的偶数按由大到小的顺序排列并输出,在产生的80个随机整数中,找出其中的素数,并将这些素数计数和求和。提示:将随机产生的80个整数、所有奇数、偶数均分别存入数组;将每行10个数或5个数输出到textbox或picture使用sub过程;用sub或function判断随机整数是否为素数; 用对象型变量可以输出到指定对象 。 输出到指定对象 : private sub command1_click() dim obj as object set obj=text1 ' 指定obj为对象text1 call prt("a",obj) ' 在指定的text1中输出a end sub sub prt(s, objname as object ) objname=s end sub