vb中求1 2 3 ...... n(人输入)

a=val(inputbox("请输入一个数"))b=1fori=1toab=b*inextiforj=1tolen(str(b))ifmid(str(b),j,1)="0"thenc=c+1endi

具体的语言已经忘了.可以提供的是思路.s=m*nIf语句找出m和n中的小项,输入a,另一值输入b.用ForFromTo语句枚举从1到根号a的所有数,用If语句筛选因子（mod取余＝零）并输入c,然后I

PrivateSubCommand1_Click()DimnAsInteger,阶乘项AsLong,阶乘和AsLongDon=Val(InputBox("请输入阶乘的项数（N≤8）"))LoopUnt

PrivateSubCommand1_Click()a=InputBox("输入电阻的个数")Fori=1Toac=InputBox("输入第"&i&"电阻的阻值")b=b+1/cNextMsgBox

PrivateSubForm_Click()DimnAsIntegern=Val(InputBox("请输入N:"))Dima,bAsLonga=1:b=1Fori=1TonPrinta&""&b&"

这是过程调用语句.其中call可以不写.F1是过程名,括号中的A,N是参数.执行时,会把A,N传递给过程中的形参,然后执行过程中的语句,执行完毕后,程序会返回到callF1(A,N)的语句.这些东西,

Private Sub Command1_Click()   Dim a()   Dim i&nbs

稍后为你提供代码

精度不够,我这个代码在VBA下可以得到0.5DimpiAsDoublepi=3.14159265358979MsgBoxSin(pi/6)实际上编程的时候,碰到有小数的场合,都应该考虑精度问题,一般不

Atn(X/Sqr(-X*X+1))这里的x是正弦值.

PrivateSubCommand1_Click()Dimi,j,kFori=1To10k=1Forj=1Toik=k*jNextPrinti&"!="&kNextEndSub再问：如果用inputb

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

sqr(n)是指n的平方跟从2到根号n,用来找素数素数肯定从2开始,然后a=根号a*根号a超过根号a就重复计算了再问：那使用sqr(n)有什么好处？或者说和其他的取值方式比有什么区别？为什么不用for

http://zhidao.baidu.com/link?url=wyic3NEB45i2K9YZE2SpNiAV4aD7rZHpluBlyF76zg0n_8wr1t6-KOYm6eYY23KqG5n

界面用一个listbox和一个commandbutton,代码为：OptionExplicitPrivateSubCommand1_Click()DimiAsInteger,jAsIntegerDim

意思是“路径”,也可能是一个普通的变量,没有具体的意思,具体要看用在什么地方

楼上的程序会慢死人的.给一个非递归实现.functionFibonacci(byvalnasLong)asLongdiml1aslong,l2aslong,l3aslongl1=1l2=1ifn

mModn=rr=mModn

这句话的意思应该是如果i大于n的取整平方根再进行四舍五入得出的值就输出n啊再问：意思我知道是这个。但是我不理解这段代码，这和求素数有什么关系呢！求素数的方法不是让他本身去除以从2带他平方根的数吗？？求

PrivateSubCommand1_Click()DimiAsInteger,nAsInteger,mAsInteger,StrAsString,SAsDoubleStr=""n=Val(Input