vbÖÐ×Ö·û´®Ïà¼ÓµÄ¼ÆËãÎÊÌâ
MsgBox Asc("bcd"+"BCD") ÖÐ"bcd"+"BCD"ÊÇÔõô¼ÆËãµÄ°¡ ΪʲôÊÇ 98
MsgBox Asc("b") MsgBox Asc("B") aµÄASCIIÂëµÈÓÚ97 bµÄASCIIÂëµÈÓÚ98 AµÄASCIIÂëµÈÓÚ65 BµÄASCIIÂëµÈÓÚ66 Private Sub Command1_Click() m$ = "BCD" n$ = "bcd" k$ = LCase$(m$) j$ = UCase$(n$) MsgBox Asc(k$ + j$) End Sub Ô³ÌÐòÊÇÕâÑùµÄ ΪʲôÊÇ 98°¡ »¹ÓÐcd CD ÄØÒýÓà ASC²ÎÊý˵Ã÷ String ±ØÐè¡£ÈκÎÓÐЧµÄ Char »ò String ±í´ïʽ¡£Èç¹û String ÊÇÒ»¸ö String ±í´ïʽ£¬ÔòÖ»½«×Ö·û´®µÄµÚÒ»¸ö×Ö·ûÓÃÓÚÊäÈë¡£Èç¹û String ÊÇ Nothing »ò²»°üº¬ÈκÎ×Ö·û£¬½«»á³öÏÖ ArgumentException ´íÎó¡£ ÈçÂ¥ÉÏ£ºAsc("bcd"+"BCD")=asc("b") MsgBox Asc("bcd"+"BCD") ÖÐ"bcd"+"BCD"ÊÇÔõô¼ÆËãµÄ°¡ ΪʲôÊÇ 98 ¡ß "bcd" + "BCD" = "bcd" & "BCD" = "bcdBCD" ¡à Asc("bcd"+"BCD") = Asc("bcdBCD") ¡ß Asc("bcdBCD") = Asc("b") ¡à Asc("bcd"+"BCD") = 98 ÒýÓà MsgBox Asc("bcd"+&
Ïà¹ØÎÊ´ð£º
Ò»¸ö²éѯijÐÅÏ¢µÄASPÍøÒ³£¬Ìá½»²ÉÓõÄÊÇpost·½·¨£¬²éÕÒ½á¹ûµÄÍøÒ³±ØÐëÓÒ¼üµã»÷¡°²é¿´Ô´Îļþ¡±²ÅÄÜ¿´µ½ÕæÕý²éѯ½á¹ûÍøÒ³µÄÔ´´úÂ룬ÓÃä¯ÀÀÆ÷²Ëµ¥¿´µ½µÄÊDzéѯǰµÄÔ´´úÂë ÓÃVBÓÐʲô°ì·¨¿ÉÒÔ»ñÈ¡µ½Õâ¸ö²éѯºóµÄÔ´´ú ......
´ó¼ÒºÃ£¬Îʸövb´òÓ¡ÎÊÌâ printer.print "dsff" ..... .... Printer.EndDoc ´òÓ¡³É¹¦ºóÎÒ½«Ö´ÐÐ sqlstr = "update vc_yh set pr=' ÒÑ´òÓ¡ ', ......
Çë½ÌһϣºÎÒÓÃvbдÁËÒ»¸öµ÷ÓÃIllustratorµÄ²âÊÔ³ÌÐò£¬´úÂëºÜ¼òµ¥£ºPrivate Sub Command1_Click() Dim app As New Illustrator.Application Dim doc As Illustrator.Document Dim thislayer As Illustrator.Layer ......
TF1.text = " <_2_ZCHGZBH> " & MSFlexGrid1.TextMatrix(k, 1) & " </_2_ZCHGZBH> " ´ó¼ÒºÃ£¬ÎÒÓÃÉÏÃæÒ»¸ö¶«Î÷¸³Öµ TF1.text = & ......
¸÷λ°ïæ¿´¿´ VBµ÷ÓÃUsb7kC.dll ³ÌÐòÊÇÒ»¸ö×ÀÇò·»µÄÓÃÓÚ¿ØÖÆÌ¨×ÀµÄ¿ª¹ØµÆ ÔÏÈÓõÄÊÇPCµÆ¿Ø¿¨£¬ÏÖÔÚÔö¼ÓÁËÒ»¸öUSBµÄ¿ØÖÆ¿¨ ´Ó33ºÅÒÔºó¾ÍÊÇUSB¿¨¿ØÖƵģ¬ÏàÓ¦µÄ33×À¶ÔÓ¦µÄÊÇUSB¿ØÖÆ¿¨µÄ1ºÅÏß·
......