vb编程:编写一个过程,以N为参数,计算1 22 32 - n2的和

privatesubcommand1_clickdimsaslongs=text1text2=s\3600&":"&(sMod3600)\60&":"&(sMod3600)Mod60endsub转换出

PrivateSubCommand1_Click()sub_Matrix(10)‘打印10*10矩阵EndSubPrivateSubsub_Matrix(ByValNAsInteger)DimIAsI

PrivateFunctionisPrim(n%)AsBoolean'素数判断子过程Dimd%Ifn=2ThenisPrim=True:ExitFunctionFord=2ToSqr(n)IfnMod

修改楼上,注意输入必须是正整数,且先小后大formload()'inti,j,m,n,summ=inputbox("输入最小正整数")n=inputbox("输入最大正整数")forj=mtonsum

放四个text1-text4,四个label1-label4,一个command1,调整好大小和位置代码如下：privatesubform_load()label1.caption="本金"label

PrivateSubForm_Activate()a5EndSubSuba(nAsLong)DimiAsLongFori=1TonSum=Sum+1/f(i)NextiPrintSumEndSubFu

PrivateSubForm_Click()Dimi,n,tempn=Val(InputBox("N","",10))^3Fori=1TonStep2temp=fc(i,n)NextMsgBoxtem

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

FunctionV圆柱(半径AsSingle,高AsSingle)AsSingleV圆柱=3.1415927*半径^2*高EndFunction

PrivateSubCommand1_Click()DimmAsInteger,nAsIntegerm=Int(InputBox("输入第一个整数"))n=Int(InputBox("输入第一个整数"

publicf(byvalnasinteger)aslongifn=1thenf=1elsef=f(n-1)+nendifendfunction

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

题目似乎改成：计算1*3+2*4+3*5+····+n*（n+2）的值,比较合理!通常,n表示项数,而n*（n+2）表示通项公式,即：第1项是将n=1,代到n*（n+2）里得到的值,就是1*3第2项是

PrivateSubCommand1_Click()n=Text1.TextFori=2ToInt(Sqr(n))IfnModi=0Thenmsgbox"不是"ExitSubEndIfNextimsg

PrivateSubForm_Click()Dima()AsIntegerDimi,j,max,n,mRandomize(time)n=InputBox("n=")m=InputBox("m=")Re

functionsj(i%,a%,b%)aslongDimx%x=Int(Rnd*(b-a+1))+asj=xEndfunctionPrivateSubCommand1_Click()Dimn%,a%

PrivateSubCommand1_Click()Dima#,b#,c#,d#,x1#,x2#a=Val(InputBox("a=","数据输入框",1))b=Val(InputBox("b=","

写成函数,直接调用Functionprint_num(ByValnumAsInteger)Dimi,n,k,jAsIntegerDimstrAsStringn=Int(num/2)k=0IfnumMo

建立控件数组Text2(0To9)PrivateSubCommand1_Click()DimSumAsDoubleForI=Val(Text1.Text)-1To0Step-1Sum=Val(Text

functionsum(n)fori=1tona=a+inextsum=aendfunction