编写一个sub过程 判断一个数是否是偶数

///c语言的,#inlcudevoidmain(){inta;printf("pleaseinputanumber:\n");scanf("%d",&a);if(a%5）printf("thisnu

voidmain(){inta;scanf("%d",&a);if(a%2==0){printf("偶数");}else{printf("奇数");}}programJO;vara:integer;b

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

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

#include#includeintis_p(intx){inti;if(x

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

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

#includeusingnamespacestd;boolpalindrome(char*str){\x09inth=strlen(str);\x09for(inti=0;i

PrivateFunctionjo(ByValnAsInteger)n=InputBox("请输入一个数字")IfnMod20ThenMsgBoxn&"是奇数"ElseMsgBoxn&"是偶数"End

下面程序是根据原理写的,已经调试成功.#include#includeintmain(){inti,flag[101];for(i=2;i

a*a=b假设你先循环2到a,发现b都不能整除,这时你在循环a+1到a*a就没有意义了,因为b=a*a,所以b/(a+x)是肯定小于a的,而2到a已经循环过了不是吗?不过一般代码里面都是循环2到b/2

DimnAsIntegerPrivateSubForm_Click()Ifn/2=0ThenPrint"n是偶数"ElsePrint"n是奇数"EndIfEndSubPrivateSubForm_Lo

intiIsRunAround(intnNum){intnCount=0;//位数intnStep=0;intnCur=nNum;intarrNumber[10];//各位数,个位到最高位intarr

'判断一个数m是否是完数,是则返回True,否则返回FalseFunctionTestWanShu(ByValmasLong)AsBooleanDimSumAsLongDimiAsLongIfm

你把代码文本贴上来.再问：　　PrivateFunctionf()AsBoolean　　DimiAsInteger　　b=Len(Str(Trim(Text1.Text)))　　Fori=1Tob/2

我用C语言编一下啊.其他语言类似!#includevoidsort(intn){if(n%2==0)printf("thenumberisdouble\n");elseprintf("thenumbe

importjavax.swing.JOptionpane;//导入JOptionpane类.publicclassTest{publicstaticvoidmain（Stringargs[]）{in

DimnumDimstrstr=""Fornum=1000To2000str=str+Cal(num)NextMsgBoxstrFunctionCal(num)IfnumMod17=0AndnumMo

一个表达式就行了：i%2.对2求余,如果结果等于1,则i是奇数,如果结果等于0,则i是偶数.if((i%2)==1){奇数}else{偶数}

Functionoushu(ByvalnAsInteger)AsBooleanIfnMod2=0Thenoushu=TrueElseoushu=FalseEndFunctionFunctionEven