ÇóÖú£ºÎÒÔÚ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µÄ
VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½ÓÄØ£¿ ÔÚWebBrowser¿Ø¼þÖÐÓÐÕâÑùÒ»¸öʼþ:StatusTextChange(index As Integer, ByVal Text As String) ËüµÄText²ÎÊýÕýÊÇÊó±ê´¦µÄ³¬¼¶Á¬½Ó,µ«ÎÊÌâÊÇÈç¹ûÎÒµÄä¯ÀÀÆ÷Õýà ......