vbÖпÉÒÔµ÷ÕûÉãÏñÍ··Ö±æÂÊÂð
ÊÇÕâÑùµÄ£º °´ÕÕÉãÏñͷĬÈÏ·Ö±æÂʵϰ£¬ËüµÄ³ß´ç²»ÄÜÂú×ãÕ¼ÂúÎÒµÄÈí¼þ´°¿ÚµÄÐèÒª£¬ÕâÑùÏÔµÃÒ²²»ÃÀ¹Û£¬¶øÇÒÏÖÔÚÉãÏñÍ··Ö±æÂʶ¼Í¦¸ß£¬ÎÒÏëÏ£ÍûÔÚvbÖиıä·Ö±æÂÊ´óС£¬Ò²¾ÍÊÇÉãÏñÔÚÈí¼þ´°¿ÚÏÔʾµÄÇøÓò³ß´ç£¬ºÃÏñÌý˵¹ýÓÐÍòÄܵ÷½ÚÉãÏñÍ··Ö±æÂʵÄÈí¼þ¡£ÏëÇë½ÌÏÂÅóÓѿɷñʵÏÖÄØ£¿
¹Ø×¢¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£
¹Ø×¢£¬¶¥ÉÏÈ¥¡£¡£¡£ºÇºÇ
ѧϰÖÐ~~~~~~~~~~~~~~
ºÃÏñÕíÉÆ¾ÓÉÏÓиöÊÓÆµ¼à¿Ø³ÌÐò¡£¿ÉÒԲο¼Ï¡£
Ïà¹ØÎÊ´ð£º
ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îǰ£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......
°ïÎÒ¸Ä¸Ä ÎÒ×ܾõµÃÓÐÎÊÌâ
Type ID
number As Single
score As Integer
name As String * 6
End Type
Dim personl As ID, i%
Private Sub Command1_Click()
i = 0
&nbs ......
ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......
ÎÒÏë°ÑwordÁí´æÎªxmlÖ®ºó£¬ÓÃvb¶ÁÈ¡Õâ¸öxmlµÄÄÚÈÝ£¬ÇëÎÊÈçºÎʵÏÖ£¿
dim f as integer
dim b() as byte
dim s as string
dim L as long
f=freefile()
open "abc.xml" for binary access read as #f
......
Ôõô°ÑÒÑÖªµÄÊý¾Ý±£´æ³ÉxmlÎļþ£¬ÏÖÔÚÒÑÖªµÄÊý¾ÝÊÇ
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xmlns:o=& ......