vb»ù´¡

ÏÈçÏÂͼ¡£

ÕâÑùVB¾Í»áÔÚÈκÎÐÂÄ£¿éÖÐ×Ô¶¯²åÈëOption ExplicitÓï¾ä£¬µ«Ö»»áÔÚÒѾ­½¨Á¢µÄÄ£¿éÖÐ×Ô¶¯²åÈë¡£ËùÒÔ¶ÔÓÚÒѾ­½¨Á¢µÄÄ£¿é£¬Ö»ÄÜÓÃÊÖ¹¤·½·¨ÏòÏÖÓÐÄ£¿éÌí¼ÓOptIon ExplIcItÓï¾ä¡£ £¨£³£©Ê¹ÓÃdimÓï¾äÉùÃ÷±äÁ¿

ÏÔʽÉùÃ÷±äÁ¿Ê±Ê¹ÓÃdimÓï¾ä½øÐÐÉùÃ÷£¬dimÓï¾äÒ²¿ÉÒÔÓÃÀ´ÉùÃ÷Êý×é¡£DImÓï¾äµÄ¸ñʽΪ£º DIm±äÁ¿Ãû[ASÀàÐÍ]

ÀýÈ磬ÎÒÃÇ¿ÉÒÔÔÚForm-Loadʼþ¹ý³ÌÖÐÉùÃ÷Ò»¸ö±äÁ¿X£¬²¢½«Æ丳ֵΪ3£º Sub Form-Load() DIm x X=3 End Sub

DImÓï¾äÖÐÓ÷½À¨ºÅÀ¨ÆðÀ´µÄ¡°AsÀàÐÍ¡±×Ó¾ä±íʾÊÇ¿ÉÑ¡µÄ£¬Èç¹ûʹÓÃÕâÒ»×Ó¾ä¾Í¿ÉÒÔ¶¨Òå±äÁ¿µÄÊý¾ÝÀàÐÍ¡£Êý¾ÝÀàÐͶ¨ÒåÁ˱äÁ¿Ëù´æ´¢ÐÅÏ¢Á¿ÀàÐÍ£¬ÕâЩÀàÐÍ¿ÉÒÔÊÇString£¨×Ö·û´®£©¡¢Integer£¨ÕûÐÍ£©¡¢Currency£¨»õ±ÒÀàÐÍ£©»òÆäËûÀàÐÍ¡£±äÁ¿Ò²¿ÉÒÔ°üº¬À´×ÔVIsual BasIc »òÆäËûÓ¦ÓóÌÐòµÄ¶ÔÏóÀàÐÍ¡£ÔÚÏÂÃæµÄÀý×ÓÖоͽ«±äÁ¿x¶¨ÒåΪÕûÊýÀàÐ͵ıäÁ¿£º

Sub Form-Load() Dim x As Integer X=3 End Sub

£¨£´£©È«¾Ö±äÁ¿µÄÉùÃ÷

È«¾Ö±äÁ¿ÊÇ¿ÉÒÔÔÚ¹¤³ÌÖеÄËùÓгÌÐòÄ£¿éʹÓõıäÁ¿£¬Ê¹Óùؼü×ÖpublICʽglobalÉùÃ÷¡£È«¾Ö±äÁ¿µÄÉùÃ÷Ö»ÄÜλÓÚ±ê׼ģ¿éµÄÉùÃ÷²¿·Ö¡£Òª½øÈëÄ£¿éµÄÉùÃ÷£¬Ó¦µ¥»÷´úÂë´°¿ÚµÄ¶ÔÏóÁбí¿ò£¬È»ºó´ÓÖÐÑ¡Ôñ¡°£¨Í¨Óã©¡±Ñ¡Ïî¡£ ÔÚ´°ÌåÄ£¿éµÄÉùÃ÷ÖÐÉùÃ÷±äÁ¿£¬»¹¿ÉÒÔʹÓÃPrIvate¹Ø¼ü×Ö¡£ PrIvate a as Integer

µ±Ò»¸ö±äÁ¿ÓÃPrIvate¹Ø¼ü×ÖÉùÃ÷ºó£¬±¾´°ÌåÄ£¿éÖеĹý³Ì¿ÉÒÔ·ÃÎÊËü£¬µ«ÆäËûÄ£¿éµÄ´úÂë²»ÄÜ¡£

ÐèҪעÒâµÄÊÇ£¬ÔÚ¹ý³ÌÖв»ÄÜʹÓÃPublic»òÕßPrivate¹Ø¼ü×ÖÉùÃ÷±äÁ¿£¬Õ⼸¸ö¹Ø¼ü×ÖÖ»ÄÜÔÚÄ£¿éµÄÉùÃ÷ÖÐʹÓᣠ£¨£µ£©¾²Ì¬±äÁ¿

ÓëÄ£¿é¼¶±äÁ¿Ïà¶Ô£¬ÔÚ¹ý³ÌÖÐÉùÃ÷µÄ±äÁ¿±»³ÆΪ¾Ö²¿±äÁ¿£¬Òâ˼ÊDZäÁ¿Ö»ÄÜÔÚ¹ý³ÌÖ´ÐÐÆÚ¼äÓÐЧ£¬ÆäËû¹ý³ÌÖеĴúÂë²»ÄÜʹÓá£

ʹÓÃDIm¹Ø¼ü×ÖÉùÃ÷µÄ¾Ö²¿±äÁ¿£¬ÔÚ¹ý³ÌÖ´ÐнáÊøºó±äÁ¿µÄÖµ²»Äܱ»±£ÁôÏÂÀ´¡£ÔÚÿһ´Î¹ý³ÌÖØÐÂÖ´ÐÐʱ£¬±äÁ¿ µÄÄÚÈݽ«Çå³ýΪÁã¡£

Èç¹ûÏ£ÍûÔÚÀ뿪¸Ã¹ý³ÌÖ®ºó£¬»¹Äܱ£³Ö ¹ý³ÌÖоֲ¿±äÁ¿Ô­Öµ£¬¾ÍÓ¦¸Ã½«Õâ¸ö±äÁ¿Ê¹ÓÃStatIc¹Ø¼ü×ÖÉùÃ÷Ϊ¾²Ì¬±äÁ¿¡£ÓÃStatIc¹Ø¼ü×ÖÔÚ¹ý³ÌÖÐÉùÃ÷µÄ¾Ö²¿±äÁ¿£¬¼´Ê¹¹ý³Ì½áÊø£¬±äÁ¿µÄÖµÒ²ÈÔÈ»±£Áô×Å£¬ÀýÈçÎÒÃÇ¿ÉÒÔΪһ¸ö´°Ìå±àдÏÂÃæÕâÑùÒ»³ÌÐò£¬¿ÉÒÔ¶ÔÓû§ÔÚ´°ÌåÉϵ¥»÷µÄ´ÎÊý¼ÆÊý¡£ Private Sub Form_click() Static I As Integer I=I+1 End Sub

¾ÍÏñÔÚ¹ý³ÌÖв»ÄÜʹÓÃPublIcºÍPrIvate¹Ø¼ü×ÖÒ»Ñù£¬ÔÚÄ£¿éµÄÉùÃ÷ÖÐÒ²²»ÄÜʹÓÃStatIc¹Ø¼ü×Ö¡£ 2. ³£Á¿

ÔÚ½øÐÐVB³ÌÐòÉè¼Æ µÄ¹ý³ÌÖУ¬Ò²»áÓöµ½ÔÚ´úÃæÖÐÒª¾­³£Ê¹Óà µ½Ò»Ð©Êý×Ö£¬ËüÃÇÒ»´ÎÓÖÒ»´ÎµØ·´¸´³öÏÖ¡£¸ü¿ÉŵÄÊÇ£¬ÕâЩÊý×ֺܳ¤¶øÇÒûÓÐÃ÷È·ÒâÒ壬Òò´ËºÜÄѼÇס£¬Ã¿´ÎÔÚ´úÂëÖÐÓõ½ËüÃÇʱ¶¼ Ҫȥ²éÔĺ˶ԡ£Èç¹ûÕâÑùµÄÊý×ֺܶàÔ­»°£¬ÊÂÇé¾Í»á¸üÂé·³¡£

ÔÚÕâЩÇé¿öÏ£¬¶¨Òå³£Êý¿ÉÒÔ´ó·ù¶ÈµØ¸Ä½ø´úÂëµÄ¿É¶ÁÐԺͿÉά»¤ÐÔ¡£³£ÊýµÃÓÐÒâÒåµÄÃû×Ö£¬ÓÃÒÔÈ¡´úÔÚ³ÌÐòÔËÐÐÖÐÓÀÔ¶²»±äµÄÊýÖµ»ò×Ö·û´®¡£¾¡¹Ü³£ÊýÓеãÏñ±äÁ¿£¬µ«²»ÄÜÏñ¶Ô±äÁ¿ÄÇÑùÐ޸ij£Êý£¬Ò²²»ÄܶԳ£Êý¸³ÒÔÐÂÖµ¡£VBÓÐÐí¶àÄÚ²¿³£Êý£¬µ«Ò²¿ÉÒÔ½¨Á¢×Ô¶¨Òå³£Êý¡£

[PublIc/Private]const ³£ÊýÃû[As ÀàÐÍ]=±í´ïʽ

²ÎÊý¡±³£ÊýÃû¡±ÊÇÓÐЧµÄ·ûºÅÃû£¬¶ø²ÎÊý¡±±í´ïʽ¡±ÓÉÊýÖµ³£ÊýÉý×Ö·û´®³£ÊýÒÔ¼°ÔËËã·û¼¶×é³É£»µ«ÔÚ¡±±í´ïʽ¡±Öв»ÄÜʹÓú¯Êýµ÷ÓᣠConstÓï¾ä¿ÉÒÔ±íʾÊýÁ¿¡¢×Ö·û´®»òʱ¼ä/ÈÕÆÚ¡£ÀýÈ磺 Const conpi=3.1415926535879

Public Const conYearsMissyou As Integer=6 Const conBirthday=#3/22/93#

Èç¹ûÓöººÅ½øÐзָô£¬ÔòµØÒ»ÐÐÖпɷÅÖöà¸ö³£ÊýÉùÃ÷£º Const conpi=3.1415926535879,Const conBithday=#3/22/93#

µÈºÅ¡±=¡±Óұߵıí´ïʽÍùÍùÊÇÊý×Ö»ò×Ö·û´®£¬µ«Ò²¿ÉÒÔÊÇÆä½á¹ûΪÊý×Ö»ò×Ö·û´®µÄ±í´ïʽ¡£ÉõÖÁ¿ÉÓÃÏÈÇ°¶¨Òå¹ýµÄ³£Êý¶¨Òåг£Êý¡£ Const conPi2=conpi*2

Ò»µ©ÒѶ¨Òå³£Êý£¬¾Í¿É½«Æä·ÅÖÃÔÚ´úÂëÖУ¬Ê¹´úÂë¸ü¿É¶Á¡£ÀýÈ磺If Today=ConBirthday Then PrInt¡±ÉúÈÕ¿ìÀÖ¡±

ºÍ±äÁ¿ÉùÃ÷Ò»Ñù£¬ConstÓï¾äÒ²ÓÐ×÷Ó÷¶Î§£¬Ò²Ê¹ÓÃÏàͬµÄ¹æÔò¡£ÐèҪעÒâµÄÊÇÈç¹û´´½¨ÔÚÕû¸öÓ¦ÓóÌÐòÖÐÓÐЧµÄ³£Êý£¬ÇëÔÚ±ê׼ģ¿éµÄÉùÃ÷¶ÎÖнøÐÐ ÉùÃ÷£¬²¢ÔÚConstÇ°Ãæ·ÅÖÃPublic¹Ø¼ü×Ö¡£ÔÚ´°ÌåÄ£¿é»òÀàÄ£¿éÖв»ÄÜÉùÃ÷PublIc³£Êý¡£Óйرê׼ģ¿éµÄÏêϸ½éÉÜÇë²Î¼ûµÚ4Õ¡±Ê¹ÓÃVB5µÄ¼¯³É¿ª·¢»·¾³¡±¡£

Êý×é

£±.ÉùÃ÷¹Ì¶¨´óСµÄÊý×é Êý×éÊÇÓÐÐòÊý¾ÝµÄ¼¯ºÏ¡£Ò»¸öÊý×éÖеÄËùÓÐÔªËؾßÓÐÏàͬµÄÊý¾ÝÀàÐÍ¡£µ±È»£¬

Èç¹ûÊý¾ÝÀàÐÍΪVarIantʱ£¬¸÷¸öÔªËØÄܹ»°üº¬²»Í¬µÄÊý¾Ý¡£ÔÚ³ÌÐòÖпÉÒÔÉùÃ÷Èκλù±¾Êý¾ÝÀàÐ͵ÄÊý×飬°üÀ¨Óû§×Ô¶¨ÒåÀàÐÍ¡£ÓÐÈýÖÖ·½·¨ÉùÃ÷¹Ì¶¨´óСµÄÊý×飬ÓÃÒ»ÖÖ·½·¨È¡¾öÓÚÊý×éÓ¦ÓеÄÓÐЧ·¶Î§£º

½¨Á¢¹«ÓÃÊý×飬ÔÚÄ£¿éµÄÉùÃ÷¶ÎÓÃPuBlIcÓï¾äÉùÃ÷Êý×é¡£ ½¨Á¢Ä£¿é¼¶Êý×飬ÔÚÄ£¿éµÄÉùÃ÷¶ÎÓÃPrIVateÓï¾äÉùÃ÷Êý×é¡£

½¨Á¢¾Ö²¿Êý×飬ÔÚ¹ý³ÌÖÐÓÃDImÓï¾äÉùÃ÷Êý×é¡£Êý×éÓÐÉϽçºÍϽ磬Êý×éµÄÔªËØÔÚÉÏϽçÄÚ ÊÇÁ¬ÐøµÄ¡£

ÉùÃ÷Êý×éµÄÓï·¨ÊÇ£º {DIm/Private/Public}Êý×éÃû£¨[ϽçTo]ÉϽ磩As Êý×éÀàÐÍ ÀýÈ磺

Dim Counters(1TO 14)As Integer ¡®14¸öÔªËصľֲ¿Êý×é¡£ PrIvate Sume (1 tO 20) As Double ¡®20¸öÔªËصÄÄ£¿é¼¶Êý×é¡£ ´ÓÉÏÃæµÄÀý×Ó¿ÉÒÔ¿´³ö£¬ÔÚÉùÃ÷Êý×éʱ£¬ÔÚÊý×éÃûÖ®ºó¸úÒ»¸öÓÃÀ¨ºÅÀ¨ÆðÀ´µÄϽçºÍÉϽ磬±íʾË÷ÒýµÄ·¶Î§¡£Èç¹ûÓû§²»ÏÔʽµØʹÓÃTo¹Ø¼ü×ÖÉùÃ÷Ͻ磬ÔòVBĬÈÏϽçΪ0.ÐèҪעÒâµÄÊÇÊý×éµÄÉϽ粻µÃ³¬¹ýLong Êý¾ÝÀàÐ͵ķ¶Î§£¬¶øÇÒÊý×éµÄÉϽç±ØÐë´óÓÚµÈÓÚϽ硣

optIon base Óï¾äÔÚÄ£¿é¼¶±ðÖÐʹÓã¬ÓÃÀ´ÉùÃ÷Êý×éϱêµÄȱʡϽ硣 Óï·¨ÈçÏ£ºoption base {0|1},ȱʡ״̬ÏÂÊý×éϽçΪ£°¡£ ˵Ã÷£ºÈ±Ê¡×´Ì¬ÏÂÊý×éϽçΪ 0£¬´ËʱÎÞÐèʹÓà OptIOn Base Óï¾ä¡£Èç¹ûʹÓøÃÓï¾ä¹æ¶¨Êý×éϽç1£¬Ôò±ØÐëÔÚÄ£¿éµÄÊý×éÉùÃ÷֮ǰʹÓÃOptIoN Base Óï¾ä¡£ ×¢Ò⣺

£¨1£©DIm¡¢Private¡¢Public¡¢ReDim ÒÔ¼° Static Óï¾äÖÐµÄ To ×Ó¾äÌṩÁËÒ»ÖÖ¸üÁé»îµÄ·½Ê½À´¿ØÖÆÊý×éµÄϱꡣ²»¹ý£¬Èç¹ûûÓÐʹÓà To ×Ó¾äÏÔʽµØÖ¸¶¨Ï½磬Ôò¿ÉÒÔʹÓà OPtIon Base ½«È±Ê¡Ï½çÉèΪ 1¡£Ê¹Óà Array º¯Êý´´½¨µÄÊý×éµÄϽçÒ²ÊÜ OptIon Base Óï¾äÖ¸¶¨µÄϽçµÄ¾ö¶¨, ³ý·Ç Array ÊÇÓÉÀàÐͿ⣨ÀýÈç VBA.Array )Ãû³ÆÏÞ¶¨£¬Èç¹ûÊÇÓÉÀàÐÍ¿âÃû³ÆÏÞ¶¨£¬Ôò ʹÓÃArray º¯Êý´´½¨µÄÊý×éµÄϽ粻ÊÜ OptIoN Base µÄÓ°Ïì¡£

£¨2£© OptIon Base Óï¾äÖ»Ó°ÏìλÓÚ°üº¬¸ÃÓï¾äµÄÄ£¿éÖеÄÊý×éϽ硣 ¹ØÓÚÊý×éÉùÃ÷µÄ¼¸µã˵Ã÷£º

ÁªÏµ¿Í·þ£º779662525#qq.com(#Ì滻Ϊ@)