vb,求1² 2² 3²...... n²的和

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

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

我的理解,你是一个9*9的矩阵,那么:dimsasintegerdimiasintegerdimjasintegerdimd(9,9)asinteger'假设二维数组为d,且主对角线元素的值为1-9s

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

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

#include#includemain(void){intn,i;printf("请输入n的值\n");scanf("%d",&n);intsum1=1,sum2=2,sum;for(i=3;i

PrivateSubCommand1_Click()DimSAsDouble,jcAsDoublejc=1Fori=1To99jc=jc*iS=S+jcNextPrint"S=";SEndSu

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中如何检查再答：添加一个命令按钮定义它的单击属性为再添加一个文本显

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

PrivateSubCommand1_Click()DimtmpStrAsString,tmpStr1AsStringDimmpStr2AsString,tmpStr3AsStringDimaAsIn

PrivateSubCommand1_Click()DimnAsInteger,iAsInteger,jAsInteger,Sum&,m&n=Val(InputBox("请输入N值"))Sum=0Fo

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

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

在vb中真命题用0表示,假命题用1表示.判断句的优先级为从左到右,2=3是一个假命题则为0,因此该命题变为0

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