vb通用函数判断素数

第一题答案：OptionExplicitPrivateSubCommand1_Click()DimnAsIntegern=Val(InputBox("请输入一个数"))Ifisprime(n)Then

#include/*判断是否素数*/intIsPrime(intm){inti;if(m==2)return1;if(m==1||m%2==0)return0;for(i=3;i*i

#includeintisprime(inti);//大小写错误voidmain()//省略是默认返回值为int{intnumber;printf("Pleaseinputanumbertotesti

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

判断n是否为素数,可用n除以2到根号n之间所有的整数,除不尽则n为素数Fora=2ToInt(Sqr(n))IfnModa0Then'余数不为0,则n为素数isprime=True'n为素数Elsei

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

#include<stdio.h>int isPrime(int num);int main(){ int num; print

//也不说用什么语言,我用C语言来实现!#include#includeintprime(intm){inti,n;if(m==1)return0;n=(int)sqrt((double)m);for

#includevoidmain(){intnum;inti;printf("输入一个数:");scanf("%d",&num);for(i=2;i=num){printf("素数\n

C语言版：#include#includevoidmain(){inti,m,k;printf("pleaseinputanumber:\n");scanf("%d",&m);k=(int)sqrt(

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

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

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

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

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

PrivateSubForm_Load()ShowDima,iAsIntegera=Val(InputBox("请输入一个整数"))Fori=2ToInt(Sqr(a))IfaModi=0ThenPr

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

减少循环次数,提高效率.想想就知道,素数只能被1与本身整除,所以不会有其外的数.从2到其开方的数就能判断是否是素数,以为其上与前面是重复的

DimmAsIntegerPrivateSubCommand1_Click()a=InputBox("请输入数字")Fori=1ToVal(a)IfaModi=0Thenm=m+1NextIfm=2T

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