VB Á·Ï°Ìâ

1.ÓöàÏîʽ¼ÆËãeµÄ½üËÆÖµ
  e=1+1/1!+1/2!+.......+1/n!
2.
  ÑéÖ¤¸èµÂ...£ºÒ»¸ö´óżÊý¿ÉÒÔ·Ö½âΪÁ½¸öËØÊýÖ®ºÍ¡£ÊÔ±à³Ì½«500----1000 µÄÈ«²¿Å¼Êý±íʾΪÁ½¸öËØÊýÖ®ºÍ
лл

---

²»ÒªÊ¹Óá°¹ý³Ì¡±

---

×Ô¼ºÊÔ×ÅÏÈ×ö

---

ÔÚC »·¾³ÏÂÎһᣡPrivate Sub Command1_Click()
Dim n As Integer
Dim sum As Double
Dim p As Single
Dim i As Integer
Dim j As Integer
Dim s As Double
p = 1
sum = 1
For i = 0 To n Step 1
    j = i
    While (j >= 1) ¡® ²»ÖªµÀ
      p = 1
      p = p * j
      j = j - 1
    Wend
    s = 1 / p
    sum = sum + s
   
   
Next i
   
   
Label1.Caption = sum

End Sub

---

µÝ¹é

---

ÎÒ»¹µü´úÄØ

---

JBÌû¡£Æ¯~~~~~~

---

VB code:

<script language='vbs'>
dim a()
m=4
redim a(m-2)
function recursion(n)
if n=1 then
a(0)=m
for i=1 to m-2
a(i)=(m-i)*a(i-1)
'msgbox "a=" & a(i) & ",i=" & i
next
recursion=a(0)
exit function
end if
b=recursion(n-1)