100到200之间的素数vb-搜答案-百度作业网

Dimb(100)PrivateSubCommand1_Click()Fori=1To100a=Int(1800*Rnd)+200b(i)=aPrintb(i)NextiEndSubb这个数组里面就保

（int）是强制转换,把后面的数强制转换成int型,sqrt是函数名,sqrt(m)作用是求出根号下m先执行sqrt(m)求出结果后把结果用（int）强制装换成int型

你这什么问题?如果要优化的话,内循环n再问：换成n

#includevoidmain(){inti,t;intj=0;for(i=100;i

PrivateSubCommand1_Click()s=0Fori=100To200IfiMod3=0Thens=s+iEndIfNextiText1.Text=sEndSu

#includeintmain(){\x09inta[30],n=0,i,j,k;\x09for(i=100;i

#includeboolisprime(intn){inti;for(i=2;i再问：多少个啊再答：你运行一下不就知道了。。21个。。如果你只想知道多少个的话就去数学区发问好吧～

143个我记得好像是的

PrivateSubCommand1_Click()Fori=100To999IfIsPrime(i)Thenn=n+1Printi;IfnMod10=0ThenPrintEndIfNextiEndS

1)t=a(i)这句下标越界了,因为这时i=112)判断素数的语句也有点逻辑上的错误.3)随机数有可能重复.我改了下,请参考：PrivateSubForm_Click()Dima(1To10),iAs

lflag=.f.ntime=0nadd=0fori=100to200forj=2toiifint(i/j)=i/jntime=ntime+1endifendforifntime=1nadd=nadd

PrivateFunctionfact(n&)AsBoolean'错误1：参数n的数据类型应该与command1_click事件里的i类型一致Dims&'错误2：s的类型也应该是长整型（&）,你原来定

思路：1,从2开始到n-1一个一个除2,从2开始一直除到n/23.从2开始除到开方以下是第3种思路,且没用函数#include#includevoidmain(){intn,i,m,k;for(m=1

Rem语言：VisualBasic6.0SubMain() '开始 i=2 Do j=2 Do

质数又名素数,从一到一百的素数共有25个有2,3,5,7,11,13,17,19,23,29,31,37,41,43,47,53,59,61,67,71,73,79,83,89,97

#include#includeintss(intn)/*检查n是否为素数,如果是则返回1,否则返回0*/{inti;if(n

Text1.Text=""DimAAsIntegerDimBAsIntegerDimCAsIntegerDimDAsIntegerDimhAsIntegerDimiAsIntegerDimjAsInt

写错了吧,应该是ifi

intn=100inti=2;intflag=0;while(n

一共94个数：357111317192329313741434753596167717379838997101103107109113127131137139149151157163167173179