vbÔõô±íʾһ¸ö×Ö·û - VB / »ù´¡Àà
vbÔõô±íʾһ¸ö×Ö·û°¡£¿Èç¹ûÊÇC,¿ÉÒÔд³É'a',vbÀïÔõôд°¡£¿Ð´³É"a"Âð£¿ÄDz»¾Í³É×Ö·û´®ÁË?Ö»ÄÜд³Échr(97)Â𣿠»¹ÓÐÒ»Ð©ÌØÊâ×Ö·ûÔõô±íʾ£¿ÏñË«ÒýºÅ,Ö»ÄÜдchr(34£©Âð£¿Èç¹ûÎÒÏëд³É\",Ó¦¸ÃÔõôд£¿
Ë«ÒýºÅ dim dq as string dq="""" VB×Ö·û´®=×Ö·û Private Sub Form_Load() a = "asdf""" Debug.Print a End Sub Dim A As Characters A = "C"ÒýÓà Dim A As Characters A = "C" ÎÒÎʵÄÊÇVB6ÒýÓà ˫ÒýºÅ dim dq as string dq="""" VB×Ö·û´®=×Ö·û Èç¹û±íʾtab£¬Äܲ»ÄÜд³É\tµÄÐÎʽ£¬Ó¦¸ÃÔõôд£¿ÒýÓà Èç¹û±íʾtab£¬Äܲ»ÄÜд³É\tµÄÐÎʽ£¬Ó¦¸ÃÔõôд£¿ chr(9) »ò vbTab dim A as byte A=Asc("a") ¿ÉÒÔÓÃ×Ö½Ú±äÁ¿£¬»ò×Ö½ÚÊý×éÀ´´¦ÀíÄãÏëÒª¶«Î÷£¬ÓÃʱÔÙÓÃchrת»»¡£ÒýÓà vbÔõô±íʾһ¸ö×Ö·û°¡£¿Èç¹ûÊÇC,¿ÉÒÔд³É'a',vbÀïÔõôд°¡£¿Ð´³É"a"Âð£¿ÄDz»¾Í³É×Ö·û´®ÁË?Ö»ÄÜд³Échr(97)Â𣿠»¹ÓÐÒ»Ð©ÌØÊâ×Ö·ûÔõô±íʾ£¿ÏñË«ÒýºÅ,Ö»ÄÜдchr(34£©Âð£¿Èç¹ûÎÒÏëд³É\",Ó¦¸ÃÔõôд£¿ ΪʲôҪд³É¡°\¡±ÄØ£¿CÕâÑùÊÇû°ì·¨µÄ°ì·¨£¬ÒòΪ¡°\¡±Îª×ªÒå·û¡£ VB¿ÉÒÔÓÃByte±íʾchar£¬µ«²»ÈçcharµÄÁé»î£¬byteÖ»Äܸ³0-255Ö®¼äµÄÖµ£¬¶øÃ»ÓÐ'a'Ö®ÀàµÄÐÎʽ¡£
Ïà¹ØÎÊ´ð£º
ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£© ¾¹È»²»ÊÇzero¡£ ²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»° Õâ¸öÖ»ÄܶÁÎı¾, VB code: Private Sub Command1_Click() Dim WordApp As Object Set WordApp = CreateObject(& ......
Private Sub Command1_Click() Dim MyString() As String Open "a.xml" For Binary As #1 ' ´ò¿ª¸Õ´´½¨µÄÎļþ¡£ ReDim MyString(LOF(1) - 1) Put #1, , MyRecord ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......
ÏÖÔÚÓиöxmlÎļþÊÇ<?xml version="1.0"?> <?mso-application progid="Excel.Sheet"?> <Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet" xm ......
¸÷λ¸ßÊÖ£¬Ð¡µÜ×î½üÅöµ½Ò»¸öÎÊÌ⣺ÔÏÈдµÄ³ÌÐò´ó¸ÅµÄ˼·ÊÇ£ºÊ×ÏÈwebbrowser´ò¿ªÍøÖ·£¬ÍøÖ·ÏÔʾºó£¬µã»÷ÍøÖ·ÉϵÄijһ¸öÁ¬½Ó£¬µ±webbrowser¼ì²âµ½ÍøÖ·ÒѾÁ¬½Óµ½ÏëÒªµÄµØÖ·Ê±ºò¾Í¿ªÊ¼ÏÂÔØÎļþ£¬µ±ÓÃIE6µÄʱºòÏÂÔ ......
ÓÃVB±à³Ì¶ÁÈ¡¶ÌÐÅ,µÃµ½Ò»´ó¶Ñunicode±àÂë,Çë½ÌÈçºÎת»»³ÉÎı¾ ÀýÈç:¶ÁÈ¡¶ÌÐźó(»ªÎª900C»òTC35i),´®¿ÚµÃµ½ÈçÏÂÊý¾Ý: +CMGL: 17,"REC UNREAD","8615007557713",,"10/03/30,09:37:15+32&qu ......