VB计算并输出1-1 2 1 3-1 4 ... 1 99-1 100的结果
来源:学生作业帮助网 编辑:作业帮 时间:2024/09/23 08:17:37
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,