用vb编写 输入一个数,判断它是不是质数

privatesubcommand1_click()dimmaxfori=1to3n=val(inputbox("输入第"&i&"个数"))ifn>maxthenmax=nendifnextprint

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

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

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

C语言?#include"stdio.h"intmain(){intnum,i=0;printf("请输入一个数字\n");scanf("%d",&num);while(num){\x05++i;\x

我知道怎么判断他是不是三角形,也知道怎么编,但我有的是freepascal,不知行不行：programlam;vara,b,c:integer;(a,b,c分别为三角形的三条边)beginread(a

多的我就不说了,函数如下（你只需把下面的代码贴在intmain()之前就行了,然后在开头加一个头文件：#include）：boolisPrime(intx){if(x==1)return0;for(i

楼上是C语言的.我补充VB的.设你的数是num（整型）.a=nummod2若a=1则num为奇数,若a=0则num为偶数.

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

#includemain(){intn;printf("Pleaseenteranumber:");scanf("%d",&n);if(n%2==0)printf("Thenumber%dis偶数\n

1.你用自己的方法将这N个数字分别用数组a(1)-a(n)表示2.求最大fori=1ton-1ifa(i)>a(i+1)thenmax=a(i)elsemax=a(i+1)endifnexti3.求最

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

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

#includeusingnamespacestd;voidmain(){intn;cin>>n;if(n%2==0)cout

    tmp = InputBox("随便输入几个数,用逗号隔开就可以了.")   &n

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

Subtest()OnErrorGoTo10n=InputBox("输入一个整数")MsgBoxIIf(nMod2=0,"你输入的是个偶数","你输入的是个奇数"):ExitSub10:MsgBox"

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

#includeusingnamespacestd;boolpanduan(intn){intm=n%2;if(m==0)returntrue;elsereturnfalse;}intmain(){i

#includemain(){inta,b;scanf("%d",&a);for(b=1;