关于VB的题 输入一个正整数N,计算出N!并输出.

privatesubform_click()dimnaslong,snaslongn=inputbox("请输入n")fori=0tonsn=sn+2*i+1nextmsgbox"1+3+5+...(

PrivateSubCommand1_Click()DimmAsInteger,nAsIntegerDimcAsDoublem=Val(InputBox("m="))n=Val(InputBox("n

Dimn,IasintegerI=1S=0n=InputBox("请输入正整数N","从键盘接受输入")Whilei

存在如下问题:1、s重复定义2、i重复定义3、最后一条printf语句少分号4、警告；j定义了,但是没有使用5、你的交换语句a[p]=a[0];只是一个单纯的复制,没有交换.6、警告：main函数返回

开始输入两个数吧!#include#includemain(){inti,j,m,n,t,a[100]={0};printf("inputm,n:");scanf("%d%d",&m,&n);for(

同时与n互质的数------这个不太明白?能说一下吗?下面1000以内质数算法.PrivateSubCommand1_Click()Text1.Text=""Fori=1To1000k=1Forj=2

被5整除的数有一个特点,分为两类,一类是可以被10整除,如10,20……,另一类就是不能被10整除但是能被5整除,如5,15……dimcount1aslong‘先看n整除以10等于多少,比如n是10的

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

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

Dimn%,cs,i%n=Text1cs="1":i=2DoIfnModi=0Thenn=n/i:cs=cs&"×"&iElsei=i+1EndIfLoopWhileiOptionExplicitPr

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

for(i=0;imax)max=a[i];a[i]=a[n-1];a[n-1]=max;for(i=0;i

需要2个文本框text和2个按钮command（一个计算一个清除）Dimx,a,b,kAsStringPrivateSubCommand1_Click()a=Val(Text1.Text)x=2Ifa

inti=0;intn,t,sum=0;scanf("%d",&n);while(i

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

for(k=0;ka[i-1]){n_temp=a[i];a[i]=a[i-1];a[i-1]=n_temp;}}}

Modulemodule3SubMain()DimnumAsIntegerDimiAsIntegerConsole.Write("请输入一个正整数：")num=Integer.Parse(Consol

最大值与最后一个交换,需要使用到max和a[i],以及一个临时变量,你代码中使用的是maxa[0]a[i],这里貌似有点问题.最小值与第一个交换,貌似你也是用的这3个变量.如果觉得使用的变量过多,可以

PrivateSubCommand1_Click()Dima()AsIntegern=Val(InputBox("N="))ReDima(n)Print"Before:&