VB计算自然数e的值

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

dimgs,igs=0fori=1to500ifinstr(i,"4")=0thengs=gs+1endifnextprintgs

第一题：两个TextBox,一个Command.OptionExplicitPrivateFunctionMaxModNum_(ByValaAsLong,ByValbAsLong)_AsLongDim

一个text控件PrivateSubForm_Load()DimRAsDoubleDimSAsDoubleR=Val(Text1.Text)S=3.14*(R^2)MsgBoxStr(S)EndSu

DimiAsLongDimCountAsLongFori=1To100If(iMod3=0)And(iMod2=0)ThenCount=Count+1Debug.PrintiEndIfNextMsgB

PrivateSubCommand1_Click()DimnAsInteger,iAsIntegerDimsumAsDoublen=Val(InputBox("PleaseEnterN:"))sum=

Private Sub Command1_Click()   '如果是题目要求用循环镶嵌个人觉得应该这样写   

PrivateSubCommand1_Click()DimaAsLongDimiAsLongDimsAsBooleans=Truea=InputBox("请输入一个自然数","输入")'-------

你好!PrivateSubForm_Click()DimiAsIntegerDimsAsIntegerFori=1To100s=s+iNextiPrintsEndSu

publicf(byvalnasinteger)aslongifn=1thenf=1elsef=f(n-1)+nendifendfunction

PrivateSubForm_Click()Dimd1AsIntegerDimd2AsSingleDimd3AsIntegerDimd4AsStringDimd5AsIntegerDimd6AsInt

Private Sub Form_Click()    Dim N As Integer, e&nb

Privatefunctione()Dime1,n,jcn=0e1=1jc=1Don=n+1jc=n*jce1=e1+1/jcLoopUntil1/jc

DimcAsObjectSetc=CreateObject("MSScriptControl.ScriptControl")c.Language="vbscript"MsgBoxc.Eval("2+4

dimaaslongdimbaslongdimcaslongdimdassinglex1,x2也是dim(定义变量一般都是用dim)d=b^2-4acif再问：constaAslongbAslongc

Functionsum(n)AsDoublesum=0Fori=1TonIfiMod2=0Thensum=sum+i*iNextEndFunction

说明VB不支持ln函数,换句话说,VB的log函数就是数学中的ln函数,而常用对数lg只能使用换底公式lg(x)=log(x)/log(10)条件很简单x>0.

ivateSubCommand17_Click()DimiAsLong,kAsLong,jAsLong,oAsLongk=Val(Text1.Text)‘要计算的数j=0o=0Fori=1TokIfi

Functionfactorial(nAsInteger)AsLongDimiAsIntegerDimretAsLongret=1Fori=1Tonret=ret*iNextifactorial=re

意思是10的-2次幂你也可以理解成小数点往坐移两位