vb求1^2 2^2 3^2 4^2 - 100c

需要的控件：命令按钮,2个,command1,command2标签,2个,label1,label2command1代码：Private Sub Command1_Click()&

i=1j=1x=1i=2j=1x=2j=2x=3i=3j=1x=4j=2x=5j=3x=6i=4j=1x=7j=2x=8j=3x=9j=4x=10循环结束,此时x=10

Dimi,nasIntegerDimsasdoublen=val(Text1.Text)i=(1)s=0DoUNTILi>(2*n-1)s=(i+s)i=i+（2）LoopText2.text=(s)

PrivateSubCommand1_Click()Fori=1To4Forj=1To4Me.Printi&jNextjNextiEndSubPrivateSubCommand2_Click()For

n=val(inputbox"请输入一个数字.")fori=1tona=a+inextiprinta

FunctionSum1(ByValnAsIntger)AsDoubleDimiAsIntegerSum1=0fori=1tonSum1=Sum1+1/inextiEndFunction

DimnAsIntegerDimmAsIntegerDimiAsIntegerDimjAsIntegerDima(30)AsInteger'确定数组的范围（）里的数即为最大可储存数+1PrivateS

(1)integer(2)step2(3)nexti再问：1呢？！！再答：有了

PrivateSubCommand1_Click()GetNextNumber"",0,4,10EndSubPrivateSubGetNextNumber(ByVal已取得串AsString,Mini

Dims,n,iasIntegerfori=1to100n=(-1)^(i+1)/is=s+nnextiprints再问：在excle中如何检查再答：添加一个命令按钮定义它的单击属性为再添加一个文本显

非递归：staticvoidf(intn){longp1=1,p2=1,p=1;for(inti=1;i

for循环修改下fori=1to2n-1step2a=a+inexti

PrivateSubForm_Click()DimHeAsLongDimIAsInteger,MAsInteger,NAsIntegerM=Int(Val(InputBox("M的值","输入",3)

a="1+2+4+7+11"t=split(a,"+")fori=0toubound(t)sum=sum+val(t(i))next再问：忘打了a=1s=0n=1是直到循环再答：PrivateSubC

2500再问：过程，谢谢再答：1+3+5+...+9999+97+95+...+1(1+99)×50÷2=2500

OptionExplicitPrivateSubCommand1_Click()DimiAsIntegerDimjAsIntegerDimmAsIntegerm=Val(InputBox("输入m的值

……t=1s=0Fori=1To10t=t*is=s+tNexti再问：这个要用什么下拉列表呢？再答：Textbox代码是在Botton中完成！

sum定义为整型肯定会溢出的必须定义为doublePrivateSubCommandButton1_Click()DimiAsIntegerDimsumAsDoublesum=1Fori=1To100

PrivateSubForm_click()Dimi,j,m,nAsIntegerFori=1To99Forj=1Toim=1m=m*jNextjn=n+mNextiPrintnEndSu

PrivateSubCommand1_Click()DimnAsInteger,iAsIntegerDimxAsVariant,sumAsDoublen=20x=CDec(x)x=1Fori=1Ton