vb 判断n是否为素数 输出Yes No inputbox msgbox

#include"stdio.h"#include"math.h"main(){inti,n,flag=1;printf("PleaseInputanumber:");scanf("%d",&n);f

#include#includeintfun(longm){intn=1,k1,k;k1=sqrt(m);for(k=2;k

筛法求素数,速度超快.public class SievePrime {\x09\x09static int maxNumber =&nbs

#include#includevoidmain(){intcount=0,i,m,n;for(m=2;m

PrivateFunctionisPrim(n%)AsBoolean'素数判断子过程Dimd%Ifn=2ThenisPrim=True:ExitFunctionFord=2ToSqr(n)IfnMod

判断素数的原理是：素数是只能被1和本身整除的数.例如3只能被1和3整除,17只能被1和17整除等等,想9就不是素数（能被1,3,9整除）.编程的算法是：穷举法,就是将需要判断的数除2、除3.一直除到这

普通判断素数,只要找到因数时就会用break结束判断,这里就用个标志来表明找到了因数而继续找下一个因素即可,最后根据标志来判断是否素数.另外,由于m/2一般会稍大于根号m所以用这个取代调用sqrt函数

Fori=2Tox-1IfxModi=0ThenExitForNextiIfi=xThenPrintx;

privatefunctionFun_RandNum(RandNumasinteger)asboolean'True为是素数,False为不是素数.dimk,iasintegeri=int(sqrt(

#include <stdio.h>#include <math.h>int f4(int x) { int&nb

//#include"stdafx.h"//vc++6.0加上这一行.#include"stdio.h"#include"math.h"boolprime(intn){//(n)inti;if(n

DimxAsInteger,iAsIntegerx=InputBox("请输入你要判断的数字")Ifx

PrivateSubCommand1_Click()n=Text1.TextFori=2ToInt(Sqr(n))IfnModi=0Thenmsgbox"不是"ExitSubEndIfNextimsg

programsushu(input,output);vari,n,t:integer;beginread(n);fori:=2ton-1doifnmodi=0thent:=1;ift=1thenwr

#include#includeintss(intn)/*检查n是否为素数,如果是则返回1,否则返回0*/{inti;for(i=2;i再问：晕,少了一个函数啊,我就是不太明白这两个函数如何连接起来,

定义三个listboxOptionExplicitPrivateSubForm_Click()DimiAsLong,jAsLongList1.AddItem("奇数")List2.AddItem("偶

#include#includeintmain(){intn,i,k,prime=1;do{printf("Pleaseinputapositivenumber:\nn=");scan

=a%2,若b值为1,输出no,否则yes再问：请输入pascal程序再答：抱歉，不会

//#include"stdafx.h"//vc++6.0加上这一行.#include"stdio.h"boolprime(intn){inti;if(n>2&&!(n&1)||n

quickbasic好像不行.32位正整数最大不过10位,如果你不做两个整数变量串联就无法计算更大的数..NET的ULong类型能够计算最大20位,18,446,744,073,709,551,615