VB计算并输出1-1 2 1 3-1 4 ... 1 99-1 100的结果

DimiAsIntegerFori=0To100i=i+1NextResponse.Write(i)

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

很简单的二维数组问题先声明一个0-10,0-10的数组然后fori=1to10doforj=1to10doifi=jthena(i,j)=1elsea(i,j)=0应为我不是搞vb的所以只能提供思路就

【1】fac(i);【2】intf;for(;n

PrivateSubCommand1_Click()DimiAsIntegerDimSumAsIntegeri=1Sum=0DoWhile(Sum

PrivateSubCommand1_Click()DimiAsIntegerDimnAsIntegern=0Fori=1To100IfiMod3=0Thenn=n+1Printn;iEndIfNex

/>Private Sub Form_Click()'1、* 编写程序,计算并输出下面数列中前n项的和.(设n=20)'   

PrivateSubCommand1_click()DimnAsIntegern=100Printf(n)EndSubFunctionf(n)Fori=1Tonf=f+1/iNextiEndFunct

dimiaslongdimsumaslongsum=0fori=1to100step2sum=sum+inextiprintsum

#includevoidmain(){inti,m;for(i=1;i

PrivateSubCommand1_Click()DimiAsLong,sumAsLongFori=1To50Step2sum=sum+i*(i+1)*(i+2)NextMsgBox"级数前50项奇

SubJiSuanDimx,y,ix=1Fori=2To100y=i-1/ix=x+y'''按需要怎么输出..NextEndSub选我啊

PrivateSubForm_Load()ForI=1To1000IfIMod7=0ThenX=X+1IfXMod10=0ThenLabel1.Caption=Label1.Caption&vbNew

constpi=3.1416subcircle（byvalrassingle,Lassingle,aassingle,VASSINGLE）L=2*pi*rA=pi*r*rV=4/3*r*r*r*pie

dimxasdoubledimpasdoublep=text1.textifp>10000thenx=p*0.05endififp5000thenx=p*0.03endiftext2.text=x

Private Sub Command1_Click()    Cls    Dim r(

Option ExplicitPrivate Sub Form_Load()Me.ShowMe.AutoRedraw = TrueDim i

PrivateSubCommand1_Click()Sum=1Fori=1ToText1.TextSum=Sum*iNextiPrintSumEndSub再问：那在窗体上输出九九乘法表？？你会吗？？真

PrivateSubForm_Click()Dima(30)AsIntegerDimiAsIntegerRandomizeFori=1To30a(i)=Int(100*Rnd)NextiFori=1T

datasegmentmsgdb'inputN:$'dataendscodesegmentassumecs:code,ds:datamainprocnearstart:movax,datamovds,