vb static
Private Sub fun()
Static a As Integer
A=a+1
Print a;
End Sub
Private Sub Command1_Click()
Dim m As Integer
For m=1 To 3
Call fun
Next m
End Sub
×îºó½á¹ûÊÇ1 2 3
µ«ÆäÖв»ÊÇÓÐStatic a As IntegerÂð
ËüµÄÒâ˼²»ÊÇ´ú±íÿ´Îµ÷ÓÃfun()¶¼ÊÇÒòΪStaticÕâ¸ö¶øÊ¹aµÄ³õֵΪ0Âð£¿ÕâÑù¾ÍÓ¦¸ÃÊÇ1 1 1 Á˰¡
staticÖ»ÊǵÚÒ»´Î³õʼ»¯Ê±Ê¹aΪ0
ºóÃæaµÄÖµ¾Í²»ÊÇ0£¬¶øÊÇÒ»Ö±±£´æ×ÅÁË
µÚÒ»´Îa=1
±£Áôµ½Ï´Îa=a+1=1+1=2
ͬÀíµÚÈý´ÎΪ3
Dim X
Private Sub Form_Click()
X = 2
For K = 3 To 5
AB
s = s + X
Next K
Print s
End Sub
Private Sub AB()
Dim X
X = X + 2
End Sub
¸ù¾ÝÕâ¸ö¿´ÓÖºÃÏñÊÇdim²ÅÊÇÿ´Îµ÷ÓÃAB()¶¼ÊÇÒòΪdimÕâ¸ö¶øÊ¹xµÄ³õֵΪ0
µ½µ×ÊÇdim»¹ÊÇstaticÿ´Î±»µ÷ÓÃʱʹÆäº¯ÊýÄڵıäÁ¿µÄ³õֵΪ0ÄØ
LZ:ÄãµÄÀí½âÊÇ´íÎóµÄ:
Static Óï¾ä
ÔÚ¹ý³Ì¼¶±ðÖÐʹÓã¬ÓÃÓÚÉùÃ÷±äÁ¿²¢·ÖÅä´æ´¢¿Õ¼ä¡£ÔÚÕû¸ö´úÂëÔËÐÐÆÚ¼ä¶¼Äܱ£ÁôʹÓà Static Óï¾äÉùÃ÷µÄ±äÁ¿µÄÖµ¡£
˵Ã÷
Ä£¿éµÄ´úÂ뿪ʼÔËÐкó£¬Ê¹Óà Static Óï¾äÉùÃ÷µÄ±äÁ¿»áÒ»Ö±±£³ÖÆäÖµ£¬Ö±ÖÁ¸ÃÄ£¿é¸´Î»»òÖØÐÂÆô¶¯¡£¿ÉÒÔÔڷǾ²Ì¬µÄ¹ý³ÌÖÐʹÓà Static Óï¾äÏÔʽÉùÃ÷Ö»Ôڸùý³ÌÄڿɼû£¬µ«¾ßÓÐÓë°üº¬¸Ã¹ý³Ì¶¨ÒåµÄÄ£¿éÏàͬÉúÃüÆÚµÄ±äÁ¿¡£
Àí½â±äÁ¿µÄ·¶
Ïà¹ØÎÊ´ð£º
ÎÒÓг§¼Ò×öµÄASPµÄ¼à¿ØÂ¼Ïñ£¨DVR£©µÄ¾ÖÓòÍø²¥·ÅµÄÔ´³ÌÐòÓë¿Ø¼þ£¬ÏëÒªÓÃASP.net×öÒ»¸öÊÓÆµ»Ø·ÅµÄ³ÌÐò£¨ÀûÓÃËûµÄ¿Ø¼þ£©µ«²»ÖªÈçÏÂÈ¥×ö£¬Íû¸÷λָµã¡£
ÏȸãÇå³þËûÃǵĿؼþÊÇÔõôÓõÄ,
È»ºó¾ÍÖ±½ÓÓúÃÁË.
²»¹ý,Èç ......
Printer.ScaleMode = 6
6±íʾºÁÃ×
Printer.PaperSize = vbPRPSA4
'³õÊ¼×ø±ê
x = 1
y = 4
'×î´óµÄÏß¿ð
Printer.DrawStyle = 0
Printer.Line (x, y)-(x + 132.5, y) ......
form1 ÖУ¬ÎÒÔÚText1ÀïÊäÈë1111111111
Dim str1 As String
Private Sub Command1_Click()
str1 = Me.Text1.Text
Combo1.AddItem str1
End Sub
µãCommand1£¬¾Íдµ½Combo1µÄ ÏÂÀ²Ëµ¥ÀïÈ¥ÁË ......
ÓÃʲô£¿
VB×Ô¼ººÃÏñÓлͼº¯Êý°É,ÁíÍâVBÒ²ÊÇ¿ÉÒÔÓÃAPIµÄ,¶øÇҺܷ½±ã
ÒýÓÃ
VB×Ô¼ººÃÏñÓлͼº¯Êý°É,ÁíÍâVBÒ²ÊÇ¿ÉÒÔÓÃAPIµÄ,¶øÇҺܷ½±ã
ΪʲôvcûÓÐ×Ô¼ºµÄ»Í¼º¯Êý£¿
ÒýÓÃ
ÒýÓà 1 Â¥ wltg2001 µ ......
Òª²É¼¯µÄÒ³Ãæ£ºhttp://city.qzone.qq.com/html/user/searchpro.htm#mod=0&act=city&cd=120000&pg=1
ÎÒÏë°ÑËÑË÷³öÀ´µÄQQ¶¼²É¼¯³öÀ´£¬¸ÃÔõô×ö¡£¿´ÁËÏ´úÂëºÃÏñ²»ÊÇÆÕͨµÄÄÇÖÖ£¬ÍøÖ·Àï°Ñ1¸Ä³É2ûÓà ......