vb程序 亲和数

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

a,b,c三个数,result为结果result=IIf(a>b,a,b)result=IIf(result>c,result,c)再问：但是我们没教过什么RESUIT啊再答：result是自己定义的

PrivateSubCommand1_Click()OnErrorGoToHellDimMAsInteger'月份DimNAsLong'张数DimRAsInteger'折扣M=InputBox("请输

判断n是否为素数,可用n除以2到根号n之间所有的整数,除不尽则n为素数Fora=2ToInt(Sqr(n))IfnModa0Then'余数不为0,则n为素数isprime=True'n为素数Elsei

答案：485PublicSubCountGT13()DimiAsLongDimrAsLongDimsAsLongDimtAsLongDimnAsLongn=0Fori=100To999r=Int(i/

PrivateSubCommand1_Click()DimnAsLong,xAsLongn=InputBox("请输入一个整数：")x=Sqr(n)Ifx*xnThenMsgBox(n&"不是一个完全

SubMain()MsgBoxFunc(100,2,5)'按照要求写的例子EndSubRem参数(最大值,被整除的数的数组)FunctionFunc(n&,ParamArrayx())Dimi&,b&

楼上回答基本是正确的.呵呵.就这一句有点可讨论的i=Int(Rnd*49+1)首先,对这里的数理解为整数.其次,1到50之间的数,如果包括1和50的话,应该是:i=Int(Rnd*50+1)如果不包括

亮出你的qq我发你程序

PrivateSubCommand1_Click()a=Abs(InputBox("请输入第一个整数","输入数据"))b=Abs(InputBox("请输入第二个整数","输入数据"))c=Abs(

'Text1,Text2,Text3输入'Text4,Text5输出公约数,公倍数PrivateSubCommand1_Click()DimaAsInteger,bAsInteger,cAsInteg

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

只需一个command按钮,在command_click事件中写上dima,basIntegera=val(inputbox("请输入第一个加数","输入"))b=val(inputbox("请输入第

一个很诡异的方法：Sum=0a=InputBox("请输入一个正整数")Fori=1ToLen(a)Sum=Sum+Val(Mid(a,i,1))Next

DimxAsInteger,iAsIntegerx=InputBox("请输入你要判断的数字")Ifx

dimxasinteger,dimsumasintegerforx=1to100ifxmod3=0thensum=sum+xendifnextxprintsum

你试试把d=a+c改为,d=Val(a)+Val(c)应该没问题了

dimsum%,i%fori=1to40ifimod5=0thensum=sum+inextprintsum再问：mod什么意思啊没怎么听课不懂啊谢谢啊

PrivateSubForm_Click()Dimi,min,nClsFori=1To3Randomizen=Int(Rnd*100)+1Printn,Ifi=1Thenmin=nElseIfmin>

DimSasinteger（可能拼错了）Fori=1ton-1"n为要判定的数Ifi/n=Int（i/n）then“判定i是否为n的因子S=S+iEndifNexti大概是这样再问：请问可以完整点吗?