第一问答网»论坛 › 中问网 › 问答 › 2010-5-22 产生80个10-99的随机数，求出素数的个数并求 ...

2010-5-22 产生80个10-99的随机数，求出素数的个数并求出所有素数的和写VB代码

[复制链接]

11 |

1 | 2011-9-25 12:32:24 | 显示全部楼层 |阅读模式

使用道具举报

千问 | 2011-9-25 12:32:24 | 显示全部楼层

Dima(80)AsInteger,sumAsIntegerDimi!,j!,k!DimtAsBooleanRandomizeFori=0To79a(i)=Int(89*Rnd10)t=1Forj=2Toa(i)-1Ifa(i)Modj=0Thent=0NextjIftThensum=suma(i)k=k1Printa(i);IfkMod10=0ThenPrintEndIfNextiPrintPrint\"素数个数为：\"defds123kPrint\"和为：\"defds123sum

使用道具举报