vbÔÚvsÖеÄÎÊÌ⣿

ÇóÖú£ºÎÒÔÚvs2005ÖбàÒëvb´úÂëÄÄÀï³ö´í£¿
´úÂëÈçÏ£ºprivate sub form_click()
            dim i as integer,j as integer
            dim f as long
            dim e as double
            for i=0 to 10
                f=1
                for j=1 to i
                  f=f*j
                next j
                e=e+1/f
            next i
            print "e=";e------------Òª¼ÓÀ¨ºÅÂ𣿵«ÊÇÎÒÊÇÕÕÊéÉϵıàÒëµÄ¡£
          end sub

---

print "e= " & e

---

Õâ´úÂëòËÆVB6£¬²»ÊÇvb2005µÄ

---

ÒýÓÃ

Õâ´úÂëòËÆVB6£¬²»ÊÇvb2005µÄ