vb输入一个正整数,利用当型循环判断是否为素数.

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

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

规定利用Mod跟“/”来编码廷垃圾的,本来两个函数就搞定了.PrivateSubCommand1_Click()DimaAsInteger,bAsInteger,cAsIntegerDimiAsInt

'最大公约数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

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

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

Private Sub Command1_Click()Dim i As Integer, j As Integer,&

PrivateSubCommand1_Click()d=Val(Text1)Print100*(dMod100)+Int(d/100)EndSu

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

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

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

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:&

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