vb输入一个正整数n,求

a=val(inputbox("请输入一个数"))b=1fori=1toab=b*inextiforj=1tolen(str(b))ifmid(str(b),j,1)="0"thenc=c+1endi

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

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

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

#include <stdio.h>void main (){ int a[10]; int i,k=0,n,min,

#includeintmat[10][10];voidmain(){intn,i,j;intok=1;scanf("%d",&n);for(i=0;i

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

#includeintmain(void){intn=0,m=0,i=0,j=0,k=0;scanf("%d",&n);while(n--){\x09scanf("%d",&m);\x09for(j=

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;}}}

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

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

PrivateSubCommand1_Click()DimmAsLong,nAsLong,rAsLong,xAsLong,yAsLongm=Val(InputBox("M=")):x=mn=Val(I