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'Ö®ÀàµÄÐÎʽ¡£
Ïà¹ØÎÊ´ð£º
ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......
ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£© ¾¹È»²»ÊÇzero¡£ ²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»° Õâ¸öÖ»ÄܶÁÎı¾, VB code: Private Sub Command1_Click() Dim WordApp As Object Set WordApp = CreateObject(& ......
Ôõô°ÑÒÑÖªµÄÊý¾Ý±£´æ³ÉxmlÎļþ£¬ÏÖÔÚÒÑÖªµÄÊý¾ÝÊÇ <?mso-application progid="Excel.Sheet"?> <Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet" xmlns:o=& ......
СµÜÓÃVBµ÷EXCEL×÷ͼ objExlApp.Workbooks.Add objExlApp.Charts.Add objExlApp.ActiveChart.ChartType = xlLine objExlApp.ActiveChart.HasLegend = True objExlApp. ......