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

Çë½ÌvbÖÐÔõô°´¸ñʽÊä³öÊý×é

vbÖУ¬°´
1£¬2£¬3£¬4£¬...
2£¬3£¬4£¬56£¬...
5£¬6£¬7£¬8£¬...
¡£¡£¡£

ÕâÑùµÄ¸ñʽ¶ÁÈëÁËÊý×飬ÏÖÔÚÏë°ÑÊýÖµ°´Ô­À´µÄÅÅÁз½Ê½Êä³öµ½csvÎļþÖÐ

Çë½ÌÓ¦¸ÃÔõô²Ù×÷£¬Ð»Ð»Äú°ïÖú
ÓÃSplitº¯Êý
±ÈÈçÒ»ÐÐÎı¾
Dim a As String
a="1,2,3,4,5,6,78,9"
Dim UU() As String
UU=Split(a,",")
ÕâÑù¾ÍÒÔ","Ϊ·Ö¸î·ûºÅ·Ö¸îµ½UUÊý×éÀïÁË,Èç
Msgbox "UU(0):" & UU(0)
½á¹ûÊÇ "UU(0):1"

Splitº¯ÊýÏêϸµÄÄã×Ðϸ¿´¿´MSDN°É

VB code:
Dim s$(3)
s(0) = "1": s(1) = "2": s(2) = "3": s(3) = "4"
MsgBox Join(s, ",")


ÔËÐнá¹û£º¡°1,2,3,4¡±
²»ÖªµÀÂ¥Ö÷ÊÇ·ñÕâ¸öÒâ˼£¿

лл¥ÉÏÁ½Î»£¬
ÎÒûÓн²ÊöÇå³þÒâ˼¡£

ÎÒÒѾ­ÓÐÁËÕâÑùÒ»¸öÊý×飬
ÏÖÔÚÏë°ÑËüÔ­ÑùÊä³öÀ´¡£
¼ÙÈçÒѾ­ÓÐÁËÕâÑùµÄÊý×é
array£¨x£¬y£©

ÎÒÒªÍêÕûÊä³öÕâ¸öÊý×éµ½Ò»¸öÎļþ£¬
ÅųÉx+1ÐУ¬y+1ÁУ¬×Ô¶¯ÓöººÅ·Ö¸î£¬±£´æÎªcsv»òÎı¾Îļþ¡£

ÔõôʵÏÖ£¿



ÊÔÊÔ¿´£¬²»ÖªµÀÊDz»ÊÇÂ¥Ö÷ÒªµÄ½á¹û
VB code:
Private Sub Command1_Click()
Dim s$(3, 2), ss$
For i = 0 To UBound(s)
For j = 0 To UBound(s, 2)


Ïà¹ØÎÊ´ð£º

ΪʲôÓÃVB¸Ä±ä²»Á˹¤¾ßÀ¸°´Å¤µÄ¿í¶È - VB / ¿Ø¼þ

Ϊʲô¹¤¾ßÀ¸°´Å¤µÄ¿í¶È¸Ä±ä²»ÁË,ÔÚÊôÐÔÀï¸ÄÁËÓÖ±ä³ÉÔ­À´µÄÊýÖµÁË

´óºú×ÓÕæÀ÷º¦£¬»Ø´ð»ù±¾¶¼ÊDZ¬Áϼ¶µÄ
´óºú×ÓÉý¼¶Õæ¿ì°¡£¬Õâ²Å¼¸Ìì¾Í5Ìõ¶Ì¿ãÍâ¼ÓÔÂÅÅÃûµÚÒ»ÁË
ÏëÏëÎÒÕâ5¸ö¶Ì¿ã»ìÁ˲¶à8Äê²ÅµÃµ½µÄ¡£

»Ø¸´ ......

vb Å£Âð - Web ¿ª·¢ / vbScript

vbÊDz»ÊǺÜÅ£°¡ ÔõôÄÇô¶àµÄ²¡¶¾¶¼ÊÇvb×öµÄ°¡ c#Ðв»ÐУ¿
c#ÔÚXPÔËÐв»ÁË£¬³ý·ÇÈñðÈËÏÈ×°ÉÏ.net.
VBÏà¶ÔÓÚC,C++,ASMµÈµÈ£¬¾ÖÏÞÐÔ´ó¶àÁË¡£

±ðÔÙ˵ʲôÓïÑÔ²»ÈçʲôÓïÑԵϰÁË£¬Ö»ÓÐÄã²»»áÓûòÓÃ×Ų»Ë³ÊÖµÄÓ ......

vb - VB / »ù´¡Àà

ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£

²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°

Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......

vb - VB / »ù´¡Àà

vbÖÐ ÏÖÔÚÎÒÒª°ÑÊý¾Ý¿âÀï´æ´¢µÄÒ»¸ö¸½¼þµÄÄÚÈÝÌæ»»ÁË£¬Ôõô×ö£¬Ö»ÊÇÌæ»»ÎÒÖ¸¶¨µÄλÖ㬲»ÊÇÈ«²¿Ìæ»»
Ç뽫ÎÊÌâ˵Ã÷°×£¬´æ´¢×ֶθñʽ£¬Èç¹ûÊÇBinary¸ñʽµÄ±È½ÏÂé·³£¬Èç¹ûÊÇ×Ö´®£¬Ö±½ÓÌæ»»¡£×îºÃ²»Òª½øÐÐÖ¸¶¨Î»ÖÃÌæ»»¡ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ