Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

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"+&


Ïà¹ØÎÊ´ð£º

VB »ñÈ¡ÍøÒ³Ô´´úÂë

Ò»¸ö²éѯijÐÅÏ¢µÄASPÍøÒ³£¬Ìá½»²ÉÓõÄÊÇpost·½·¨£¬²éÕÒ½á¹ûµÄÍøÒ³±ØÐëÓÒ¼üµã»÷¡°²é¿´Ô´Îļþ¡±²ÅÄÜ¿´µ½ÕæÕý²éѯ½á¹ûÍøÒ³µÄÔ´´úÂ룬ÓÃä¯ÀÀÆ÷²Ëµ¥¿´µ½µÄÊDzéѯǰµÄÔ´´úÂë
ÓÃVBÓÐʲô°ì·¨¿ÉÒÔ»ñÈ¡µ½Õâ¸ö²éѯºóµÄÔ´´ú ......

vb´òÓ¡ÎÊÌâ

´ó¼ÒºÃ£¬Îʸövb´òÓ¡ÎÊÌâ


printer.print "dsff"
.....
....


Printer.EndDoc


´òÓ¡³É¹¦ºóÎÒ½«Ö´ÐÐ

sqlstr = "update vc_yh set pr=' ÒÑ´òÓ¡ ', ......

vbÈçºÎµ÷ÓÃIllustrator£¨´ËǰIllustratorδÆô¶¯£©£¿

Çë½ÌһϣºÎÒÓÃvbдÁËÒ»¸öµ÷ÓÃIllustratorµÄ²âÊÔ³ÌÐò£¬´úÂëºÜ¼òµ¥£ºPrivate Sub Command1_Click()
Dim app As New Illustrator.Application
Dim doc As Illustrator.Document
Dim thislayer As Illustrator.Layer ......

VB ×Ö·ûÎÊÌâ

  TF1.text = " <_2_ZCHGZBH> " & MSFlexGrid1.TextMatrix(k, 1) & " </_2_ZCHGZBH> "
   

´ó¼ÒºÃ£¬ÎÒÓÃÉÏÃæÒ»¸ö¶«Î÷¸³Öµ  TF1.text = & ......

VBµ÷ÓÃUsb7kC.dll

¸÷λ°ïæ¿´¿´
VBµ÷ÓÃUsb7kC.dll

³ÌÐòÊÇÒ»¸ö×ÀÇò·»µÄÓÃÓÚ¿ØÖÆÌ¨×ÀµÄ¿ª¹ØµÆ
Ô­ÏÈÓõÄÊÇPCµÆ¿Ø¿¨£¬ÏÖÔÚÔö¼ÓÁËÒ»¸öUSBµÄ¿ØÖÆ¿¨

´Ó33ºÅÒÔºó¾ÍÊÇUSB¿¨¿ØÖƵģ¬ÏàÓ¦µÄ33×À¶ÔÓ¦µÄÊÇUSB¿ØÖÆ¿¨µÄ1ºÅÏß· ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ