VB 写100到200间的素数

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

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

Dima(80)AsInteger,sumAsIntegerDimi!,j!,k!DimtAsBooleanRandomizeFori=0To79a(i)=Int(89*Rnd+10)t=1Forj=

#include#includeboolisPrime(intnum){if(num!=2&&num%2==0)//除2以外的偶数都不是素数{returnfalse;}for(inti=3;i

Private Sub Command1_Click()    Dim a As Long &nbs

PrivateSubForm_load()DimiAsIntegerDimjAsIntegerDimxAsIntegerFori=2To10000f=0'f用来标识是否为素数Forj=2ToInt(S

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

这么简单都问,你是C语言完全没看书,到做作业了再来问吧?还不如直接百度搜索来得快.再问：拜托我才上了几节课还不好?书上能看到我干嘛要问？开电脑那么麻烦，我只是不会怎样对7取余那块的输入再答：具体的我忘

OptionExplicitPrivateSubForm_Click()Form1.AutoRedraw=TrueClsDimAAsInteger,SuAsBoolean,IAsInteger,JAs

100以内的质数共有25个,这些质数我们经常用到,可以用下面的两种办法记住它们.一、规律记忆法首先记住2和3,而2和3两个质数的乘积为6.100以内的质数,一般都在6的倍数前、后的位置上.如5、7

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

PrivateSubcommand1_click()Dimi,j,f,c,sumi=2Whileif=Truej=2DoWhilejIfiModj=0Thenf=False:ExitDoj=j+1Lo

在窗口上建立一个按钮：FunctionTotal(Num1,Num2)AsString'Num1为奇数和'Num2为偶数和Fori=1To100IfiMod20ThenNum1=Num1+iElseN

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

OptionExplicit'请在窗体中加入一个按钮和一个文本框'这是判断是否为素数的函数,n为需要判断的数'返回值为逻辑型,True表示为素数,False表示不是素数FunctionIsPrime(

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

PrivateSubCommand1_Click()Dima()AsIntegerDimkAsInteger,mAsInteger,iAsInteger,jAsIntegerk=0Form=2To10

这个问题不太准确,100到200之间的随机整数,是否包含100和200呢?如果不包含100和200本身,应该这样表示：Int(Rnd()*99)+101如果包含100和200本身,应该这样表示：Int

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

Text1.Text=""DimAAsIntegerDimBAsIntegerDimCAsIntegerDimDAsIntegerDimhAsIntegerDimiAsIntegerDimjAsInt