vb输入一个任意正整数,判断其是否为素数

假设文本框为TEXT1,标签为LABEL1,函数代码如下：publicsubtestnum()dimxaslongx=cint(text1.text)ifxmod2=1thenlabel1.capti

Function Exchange(ByVal num As Integer)    If num 

#includeintmain(){intn;scanf("%d",&n);do{printf("%d",n%10);}while(n/=10);printf("\n");return0;}

DimXAsInteger这句出的毛病.你直接把它定义成整数型变量,输入3.5直接四舍五入转换为4.把它换成DimXAsSingle

'最大公约数FunctiongetGcd(num1AsLong,num2AsLong)AsLongDimiAsLongFori=IIf(num1Ifnum1Modi=0Andnum2Modi=0The

a=InputBox("请输入a")b=InputBox("请输入b")c=InputBox("请输入c")Ifat=aa=bb=tEndIfIfat=aa=cc=tEndIfIfbt=bb=cc=t

privatesubcommand1_click()dimi,j,nn=val(inputbox("n="))ifIsPrime(n)thenprintn&"是素数."elsefori=n+1ton+

DimnAsInteger,iAsIntegerDimflgAsBooleann=Val(Text1.Text)n=n+1Fori=2ToSqr(n)IfnModi=0ThenExitForNexti

#includemain(){inti,j,k,n;scanf("%d",&n);if(n

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

#includemain(){inta;printf("ÊäÈëÒ»¸öÕý&

PrivateSubForm_Click()DimnAsIntegern=InputBox("请输入一个正整数n")s=1Fori=nTo1Step-1s=s*iNextiPrintn&"!="&sE

PrivateSubCommand1_Click()Dima,b,c,area,cca=Val(InputBox("请输入第一个数"))b=Val(InputBox("请输入第二个数"))c=Val(

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

使用了数组的动态分配,看不懂的话我还有其他方案#include#includeboolprime(intnum){boolflag=true;if(num

呵呵,一看就知道你刚学.我按照你的思路写的代码,你看看PrivateSubCommand1_Click()a=Val(Text1.Text)IfaText2="负整数"ElseIfa>0ThenTex

PrivateSubCommand1_Click()Sum=1Fori=1ToText1.TextSum=Sum*iNextiPrintSumEndSub再问：那在窗体上输出九九乘法表？？你会吗？？真

isprime------------------------函数名称：isprime函数功能：判断素数.语法格式：tf=isprime(A)返回一个和A一样大小的数组,如果A中某个数是素数,在tf中

ifxmod2=0thenmsgbox"是偶数"elsemsgbox"是奇数"

解答设计一个程序框图,对任意输入的整数X能判断其奇偶性开始输入xm=x/2的余数m=0?是x为偶数不是x为奇数输出x结束剩下的1题不知道了