运行如下vb程序 s=3n

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

clear;clcAA=0.1:0.1:5;%已改rr=0.1:0.1:100;[A,r]=meshgrid(AA,rr);B=90-A;u=0.3;m=70;g=9.8;v0=15;h=2;k=sq

代码如下：PrivateSubCommand1_Click()f=1Don=n+1f=f*nt=2*n-1s=s+(-1)^n*f/tIfs=10000ThenPrintnExitSubEndIfLo

PrivateSubCommand1_Click()DimNAsIntegerN=Val(InputBox("请输入一个整数"))Fori=1ToNS=""Forj=1ToiS=S+"*"NextjP

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

PrivateSubCommand1_Click()s=1n=1DoWhiles再问：最后的答案是啥呢大哥n值和s值。。我完全不懂得老师布置的作业再答：6和720再问：大哥看清楚题目确定没错吧错了我要

OptionExplicitPrivateSubCommand1_Click()DimsAsSingle,nAsLong,stAsStringn=1s=0DoDoEventss=s+nst=st&nI

因为是计算n!阶乘,所以乘积会很大,你要把n和s定义为大范围变量才行,否则会溢出、Dimn,sAsDouble

这段程序我试了,没有任何问题的!

PrivateSubCommand1_Click()DimiAsDoubleDimnAsDoubleDimsumAsDoublesum=0IfNotIsNumeric(Text1.Text)Then'

会输出编译错误信息,字符数组的复制要用strcpy()函数,不能这样直接用赋值操作符赋值.

仍然为2A你看看dim与static的区别!X一般为自动变量,系统默认的,如果是static（动态变量）的话,就为C再问：为什么仍然为2？因为是自己学的，很多基础知识都不懂。再答：X=2是指把2赋值给

PrivateSubCommand1_Click()Dimn%,sum!,fact!sum=0n=InputBox("输入n:","提示信息",1)IfnMsgBox"数据有误!",48,"警告!"E

PrivateSubCommand2_Click()DimIAsLong,SAsLongForI=1To100IfIMod2=0ThenS=S-IElseS=S+IEndIfNextPrintSEnd

PrivateSubCommand1_Click()Dimi,n,sAsIntegern=Val(Text1.Text)s=0Fori=nTo0Step-1s=s+i*(i+1)/2NextiText

i=1时,j=1,n=3;i=2,j=1,n=3;j=2,n=6;i=3,j=1,n=3;j=2.n=6;j=3,n=9;1+2+3=6次

1.PrivateSubCommand1_Click()DimiAsInteger,sAsLongFori=1To99Step2res=res+iNextiPrintsEndSub2.PrivateS

s=0n=1DoWhilen

m=1时,n只从0到0运行了一次.m=2时,n从0到1运行了两次.m=3时,n从0到2运行了三次.故内循环总次数是：1+2+3＝6次.

你把邮箱给我我发给你这个简单!可是你觉得你的第一个式子对着吗?n=90时i=100吗?PrivateSubCommand1_Click()n=InputBox("请输入n：")'你可以自由的输入N值不