ÎÞÒâÖз¢ÏÖVB ForÑ»·µÄÒ»¸öÌصã
ÎÞÒâÖз¢ÏÖVB ForÑ»·µÄÒ»¸öÌص㣺ÔÚÑ»·ÌåÖУ¬Æóͼ¸Ä±äÑ»·ÖÕÖ¹±äÁ¿Ê¹Ö®ÌáÇ°Í˳öÑ»·ÊÇͽÀ͵ġ£
Private Sub Form_Load()
Dim s(0 To 4) As String
Dim N As Integer, i As Integer
s(0) = "²âÊÔ1"
s(1) = "²âÊÔ2"
s(2) = "²âÊÔ3"
s(3) = "²âÊÔ4"
s(4) = "²âÊÔ5"
N = 4
For i = 0 To N
'ÔÚÑ»·ÌåÖУ¬Æóͼ¸Ä±äÑ»·ÖÕÖ¹±äÁ¿Ê¹Ö®ÌáÇ°Í˳öÑ»·ÊÇͽÀ͵ġ£
'Ö»ÓÐ Åжϡ¾Ñ»·±äÁ¿¡¿ÊÇ·ñ´óÓÚ¡¾Ñ»·ÖÕÖ¹±äÁ¿¡¿À´ÌáÇ°Í˳ö²ÅÊÇ¿ÉÐеģ¬È磺If i > N Then Exit For
Debug.Print s(i)
If i = 0 Or i = 3 Then N = N - 1
Next i
MsgBox "i====" & i & " N==" & N
End Sub
Ïà¹ØÎĵµ£º
ÔÚÈÕ³£µÄ²Ù×÷ϵͳά»¤¹ý³ÌÖУ¬ÓÐʱÎÒÃÇÒ²»áдһЩСµÄ½Å±¾³ÌÐòÀ´¼ò»¯ÏµÍ³¹ÜÀí¹¤×÷£¬ÀýÈçµ÷ÓÃһЩWMIº¯ÊýÀ´×Ô¶¯°²×°Ð¶ÔسÌÐòÖ®ÀàµÄ¡£
ÔÚʵ¼Ê¹¤×÷ÖУ¬ÎÒ·¢ÏÖ³ÌÐòÔ±¶Ô½Å±¾±§Ô¹×î¶àµÄ¾ÍÊǽű¾³ÌÐòºÜÄѵ÷ÊÔÕâ¸öȱµã£¬ÌرðÊǵ÷ÊÔ.vbsµÈWSH³ÌÐòµÄʱºò£¬×ÜÊÇ£º
1. ÔÚ×ÊÔ´¹ÜÀíÆ÷ÀïÃæË«»÷Ò»¸ö. ......
·ÖÀࣺVBѧϰ ×ֺţº ´ó´ó ÖÐÖРСС mid(×Ö·û´®£¬´ÓµÚ¼¸¸ö¿ªÊ¼£¬³¤¶È) ÔÚ[×Ö·û´®]ÖÐ[´ÓµÚ¼¸¸ö¿ªÊ¼]È¡³ö[³¤¶È¸ö×Ö·û´®]
ÀýÈç mid("СÐÀÎÞµÐ",1,3) Ôò·µ»Ø "СÐÀÎÞ"
instr(´ÓµÚ¼¸¸ö¿ªÊ¼,×Ö·û´®1,×Ö·û´®2) ´Ó¹æ¶¨µÄλÖÿªÊ¼²éÕÒ£¬·µ»Ø×Ö·û´®2ÔÚ×Ö·û´®1Öе ......
http://tieba.baidu.com/f?kz=255370663
ËѼ¯µ½Ò»¸ö³ÌÐò
¼¸ºõ¶¼ÓÃËüÀ´Íê³É²É¼¯ÈÎÎñÁË£¡¹±Ï׳öÀ´°¡£¬ºÜ¼òµ¥µÎ
Function strCut(strContent, StrStart, StrEnd) As String 'ͨÓýØÈ¡º¯Êý
Dim strHtml, S1, S2 As String
dim strstart,stren ......
ÕâÄêÍ·,ÔÚÕâ¸öÂÛ̳ÀïÃæÒѾûÓÐʲô¼¼ÊõÌùÁË...ºÇºÇ~·¢Ò»Æª¾ªÌìµØ,Æü¹íÉñµÄÌû×Ó.µ±È»Õâ¸öÖ»ÊÇÄ£Äâ¼üÅ̵ÄÖÕ¼«Ä£Äâ.ºÇºÇ~
¼üÅÌÊÇÎÒÃÇʹÓüÆËã»úµÄÒ»¸öºÜÖØÒªµÄÊäÈëÉ豸ÁË£¬¼´Ê¹ÔÚÊó±ê´óÐÐÆäµÀµÄ½ñÌ죬ºÜ¶à³ÌÐòÒÀÈ»Àë²»¿ª¼üÅÌÀ´²Ù×÷¡£µ«ÊÇÓÐʱºò£¬Ò»Ð©Öظ´ÐԵģ¬ºÜ·±ËöµÄ¼üÅ̲Ù×÷×Ü»áÈÃÈËÆ£±¹£¬ÓÚÊÇ ......
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Private Type GUID
Data1 As Long
Data2 As Integer
Data3 As Integer
&nbs ......