Vb判断一个数是否能被2.5.7整除

下面通过创建一个控制台应用程序,在控制台中输入要判断的数,并使用int类型变量记录,然后判断输入的数是否是素数,最后弹出提示信息；代码如下：usingSystem;usingSystem.Collec

判断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.一直除到这

有的,举个例子：17是素数吧,那么sqr（17）=4.123,当然会四舍五入到4.拿17除以2,不能整除,然后是3,4,依然不行,那么5之后就不用算了,因为他大于17的平方根4.123,已经可以确定是

PrivateSubcommand1_click()Dimint1AsIntegerint1=InputBox("输入一个整数")Ifint1Mod15=0ThenMsgBox"此数能同时被3和5整除

PrivateSubCommand1_Click()DimnAsLong,xAsLongn=InputBox("请输入一个整数：")x=Sqr(n)Ifx*xnThenMsgBox(n&"不是一个完全

FunctionJudge(NAsInteger)AsBooleanJudge=NMod17*37=0EndFunctionPrivateSubForm_Click()DimiAsIntegerFor

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

素数(质数)：就是一个大于等于2的整数,并且只能被1和本身整除,而不能被其他整数整除的数.在窗体上画一个命令按钮和一个文本框~清空文本框中内容在代码窗口编写如下代码PrivateFunctionsus

Public Function IsPrime(ByVal x As Integer) As Boolean  

1：所有整数2：所有偶数3：各个数位和为3的倍数4：偶数中4的倍数,后两位能被4整除5：个位为0或5的6：是3的倍数的偶数7：后三位与前几位的差能被7整除8：偶数中8的倍数,后三位能被8整除9：各个数

Ify*y=xThen是否y的平方等于x是用这个语句来判断一个数是否为平方数可以如下表达,其中x为待检测数ifsqr(x)mod1=0thenprint"X为平方数"再问：����֪�������дһ

#include<stdio.h>#include<math.h>int main(){\x09int n;\x09printf("input&n

试试分解因式的方法,对于什么方的题好使,如果就是个数,可能没有别的办法吧.还是试试分解因式的办法.

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

dimnumnum=122.02ifnumint(num)thenmsgbox("非整数")

inputxifx=int(x)thenprintx;"isainteger."elseprintx;"isn'tainteger."或者inputxifx-int(x)>0thenprintx;"i

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

经常遇到类似的题目,可以参考此程序!　　VB2008调试通过!PublicClassForm1Dimprime(100)AsIntegerDimCurrentIndexAsIntegerPrivate

假设N从2到根号N都没有它的因数而他有一个因数是m并且是大于根号N很显然有：N/m=n（一个整数）,由于m>根号N,n