µ±Ç°Î»ÖãºÊ×Ò³ > VB½Ì°¸£¨Ïêϸ½Ì°¸¹²82¿Îʱ£©
ÓÃDimºÍPublic(»òGlobal)£¬Óï¾ä¿ÉÒÔ¶¨Òå¾Ö²¿±äÁ¿¡¢Ä£¿é¼¶±äÁ¿ºÍÈ«¾Ö±äÁ¿¡£¶ÔÓÚ¾Ö²¿±äÁ¿À´Ëµ£¬Ò²¿ÉÒÔ²»ÓÃDim(»òStatic)¶¨Ò壬¶øÔÚÐèҪʱֱ½Ó¸ø³ö±äÁ¿Ãû¡£±äÁ¿µÄÀàÐÍ¿ÉÒÔÓÃÀàÐÍ˵Ã÷·û(£¥¡¢&¡¢!¡¢#¡¢$¡¢@)À´±êʶ¡£Èç¹ûûÓÐÀàÐÍ˵Ã÷·û£¬Visual Basic°Ñ¸Ã±äÁ¿Ö¸¶¨Îª±äÌåÊý¾ÝÀàÐÍ¡£ Private Sub Command1_Click()
Answer = InputBox$(\ If Answer = \
MsgBox \ Else
MsgBox \ End If End Sub ¢ÙÏÔʽÉùÃ÷
ÐÎʽ£º Dim ±äÁ¿Ãû [AS ÀàÐÍ] Dim ±äÁ¿ÃûÀàÐÍ·û
Àý Dim a As integer , b As single µÈ¼ÛÓÚ Dim a%, b! ¢ÚÒþʽÉùÃ÷
δ½øÐÐÉÏÊöµÄÉùÃ÷¶øÖ±½ÓʹÓã¬ÆäÀàÐÍΪ Variant ÀàÐÍ¡£ ¢ÛÇ¿ÖÆÏÔʽÉùÃ÷
ͨÓÃÉùÃ÷´¦¼Ó Option Explicit Óï¾ä¿ÉÇ¿ÖÆÏÔʽÉùÃ÷±äÁ¿¡£ 3¡¢Ð¡½á
¾Ö²¿±äÁ¿£ºÖ»ÄÜÔÚÒ»¸öº¯Êý»ò¹ý³ÌÖзÃÎʵıäÁ¿¡£ÆäËû¹ý³Ì»òº¯Êý²»ÄÜ·ÃÎʴ˱äÁ¿µÄÊý¾Ý¡£Ê¹ÓÃDim»òStatic¶¨Ò壬²»¿ÉÒÔʹÓÃPrivate¶¨Òå¡£
Ä£¿é±äÁ¿£¨´°Ìå±äÁ¿ºÍ±ê׼ģ¿é±äÁ¿£©£ºÖ»ÄÜÔÚÒ»¸öÄ£¿éÖзÃÎʵıäÁ¿¡£ÆäËûÄ£¿éÖв»ÄÜ·ÃÎʴ˱äÁ¿µÄÊý¾Ý¡£¿ÉÒÔʹÓÃPrivateºÍDimÉùÃ÷¡£²»¿ÉÒÔʹÓÃStaticÉùÃ÷¡£
È«¾Ö±äÁ¿£ºÔÚÕû¸ö¹¤³ÌÖеÄÈκεط½¶¼¿ÉÒÔ·ÃÎʵıäÁ¿¡£Ê¹ÓÃPublic»òGlobalÉùÃ÷¡£ ĬÈÏÉùÃ÷£ºÊ¹ÓÃÀàÐÍÉùÃ÷·û·ÅÔÚ±äÁ¿Ãû×ֵĺóÃæ¿ÉÒÔÖ±½ÓÉùÃ÷±äÁ¿ÀàÐÍ¡£ ÀàÐÍÉùÃ÷·û£º%ÕûÐÍ¡¢& ³¤ÕûÐΡ¢!µ¥¾«¶È¡¢#Ë«¾«¶È¡¢@»õ±ÒÐÍ¡¢$×Ö·û´®ÐÍ ¢ó¡¢Ð¡½á
±¾´Î¿ÎÎÒÃÇÒªÕÆÎÕ±äÁ¿£¬³£Á¿µÄÉùÃ÷¼°Ê¹Ó÷½·¨¡£ÒªÕÆÎÕ±äÁ¿ÓÐÄÄЩÀàÐÍ£¬ÔõôʹÓÃËüÃÇ£¬×¢ÒâVBÀïµÄ±äÌåÀàÐ͵ıäÁ¿£¬×Ô¶¨Òå±äÁ¿µÈ£¬ÒÔ¼°³£Á¿µÄʹÓᣠ¢ô¡¢×÷Òµ
P81Ò»¡¢3¡«8 ¶þ¡¢18
Ò»¡¢1¡¢2 ¶þ¡¢¼òÊö±äÁ¿µÄÃüÃû¹æÔò¡£
µÚ19¡¢20¿Îʱ
¿ÎÌ⣺³£ÓÃÄÚ²¿º¯Êý ½ÌѧĿµÄ:
1¡¢»áʹÓÃVB³£ÓÃÄÚ²¿º¯Êý£¬Á˽âVBÆäËûÄÚ²¿º¯Êý ½ÌÑ§ÖØÄѵ㣺
1¡¢ ת»»º¯Êýint¡¢Fix¡¢Asc¡¢Chr¡¢Str¡¢Val 2¡¢ Ëæ»úº¯ÊýRnd
- 21 -
½Ìѧ·½·¨£º ¶àýÌå½Ìѧ ½Ìѧ¹ý³Ì£º
¢ñ¡¢¸´Ï°ÉϽÚÄÚÈÝ 1¡¢±äÁ¿µÄÃüÃû¹æÔò¡£
2¡¢±äÁ¿£¬³£Á¿µÄÉùÃ÷¼°Ê¹Ó÷½·¨¡£ ¢ò¡¢Ð¿Î
VBÌṩ´óÁ¿µÄÄÚ²¿º¯Êý¹©±à³Ìʱµ÷Óᣰ´Æä¹¦ÄܿɷֳÉÊýѧº¯Êý¡¢×ª»»º¯Êý¡¢×Ö·û´®º¯Êý¡¢ÈÕÆÚº¯ÊýºÍ¸ñʽÊä³öº¯ÊýµÈ¡£ 1¡¢×ª»»º¯Êý
1£©È¡Õûº¯ÊýInt( ) º¯Êý¸ñʽ£ºInt(x)
¹¦ÄÜ£ºÇó²»´óÓÚxµÄ×î´óÕûÊý£¬·µ»ØÖµÎªÕûÐÍÊý¡£
¾ÙÀý£ºÉèx=5.67£¬ y=-5.67£¬ ÔòInt(x)=5£¬int(y)=-6¡£ 2£©ÉáȥСÊý²¿·Öº¯ÊýFix(X) º¯Êý¸ñʽ£ºFix(x)
º¯Êý¹¦ÄÜ£ºÈ¥µôxµÄСÊý²¿·Ö£¬·µ»ØÖµÎªÕûÐÍÊý¡£
¾ÙÀý£ºÉèa=5.69£¬b= -5.88£¬Ôò Fix(a) ºÍ Fix(b) µÄÖµ·Ö±ðΪ 5ºÍ-5 3£©Asc(x$)¸ø³ö×Ö·ûxµÄASCIIÂëÖµ£¬½á¹ûΪʮ½øÖÆÊý¡£ ¾ÙÀý£ºAsc(\
4£©Chr$(x) ·µ»ØÒÔxΪASCIIÂëµÄ×Ö·û¡£ ¾ÙÀý£ºChr$(65)= \
5£©Str$(x) ½«ÊýÖµÊý¾Ýxת»»³É×Ö·û´®¡£ ¾ÙÀý£ºStr$(123.45)=\
6£©Cint(x) ½«ÊýÖµÐÍÊý¾ÝxµÄСÊý²¿·ÖËÄÉáÎåÈëÈ¡Õû¡£
cint(2.6)= 3 cint(-2.6)= -3 cint(-2.3)= -2 cint(2.3)= 2 7£©Val(x) ½«×Ö·û´®xÖеÄÊý×Öת»»³ÉÊýÖµ¡£Êý×Ö×Ö·û´®×ª»»ÎªÊýÖµ¡£ Val(\123 Val(\Val(\
Val(\ת»»º¯Êý˵Ã÷:
(1) ChrºÍAscº¯Êý»¥Îª·´º¯Êý¡£
(2) Strº¯Êý½«·Ç¸ºÊýֵת»»³É×Ö·ûÀàÐͺ󣬻áÔÚת»»ºóµÄ×Ö·û´®×ó±ßÔö¼ÓÒ»¿Õ¸ñ¡£
(3) Val½«Êý×Ö×Ö·û´®×ª»»ÎªÊýÖµÀàÐÍ£¬µ±×Ö·û´®ÖгöÏÖÊýÖµÀàÐ͹涨µÄ×Ö·ûÍâµÄ×Ö·û£¬Ôòֹͣת»»£¬º¯Êý·µ»ØµÄÊÇֹͣת»»Ç°µÄ½á¹û¡£ ÀýÈç±í´ïʽ£ºVal(\½á¹ûΪ-123.45 2¡¢Êýѧº¯Êý
1£©Sin(x) ÇóxµÄÕýÏÒÖµ£¬xµÄµ¥Î»ÊÇ»¡¶È£¬1¶È=¦Ð/180=3.14159/180£¨»¡¶È£© 2£©Cos(x) ÇóxµÄÓàÏÒÖµ£¬xµÄµ¥Î»ÊÇ»¡¶È Cos(0)= 1 Sin(0)=0 3£©Tan(x) ÇóxµÄÕýÇÐÖµ£¬xµÄµ¥Î»ÊÇ»¡¶È Tan(0)=0
4£©Atn(x) ÇóxµÄ·´ÕýÇÐÖµ£¬xµÄµ¥Î»ÊÇ»¡¶È£¬º¯Êý·µ»ØµÄÊÇ»¡¶ÈÖµ 5£©Abs(x) ÇóxµÄ¾ø¶ÔÖµ Abs(-3.5)=3.5
6£©Sgn(x)·µ»Ø×Ô±äÁ¿XµÄ·ûºÅ£¬XΪÕýÊý·µ»Ø1£¬XΪ¸ºÊý·µ»Ø-1 £¬XΪ0·µ»Ø0 7£©Sqr(x) ÇóxµÄƽ·½¸ù£¬x±ØÐë´óÓÚ»òµÈÓÚ0
8£©Exp(x)·µ»ØÒÔeΪµ×¡¢ÒÔxΪָÊýµÄÖµ£¬¼´ÇóeµÄx´Î·½
- 22 -
3¡¢ÈÕÆÚºÍʱ¼äº¯Êý
Now£º·µ»ØÏµÍ³ÈÕÆÚºÍʱ¼ä
Date: ·µ»ØÏµÍ³ÈÕÆÚ Time£º·µ»ØÏµÍ³Ê±¼ä 1£©Day(Now) ·µ»ØÈÕÆÚ´úºÅ£¨1-31£©
2£©WeekDay(Now) ·µ»ØÐÇÆÚ´úºÅ£¨1-7£©£¬ÐÇÆÚÈÕΪ1 3£©Month(Now) ·µ»ØÔ·ݴúºÅ£¨1-12£© 4£©Year(Now) ·µ»Øµ±Ç°µÄÄê·Ý 5£©Hour(Now)·µ»ØÐ¡Ê±£¨0-23£© 6£©Minute(Now) ·µ»Ø·ÖÖÓ£¨0-59£© 7£©Second(Now) ·µ»ØÃ루0-59£©
Àý:¼ÆËã´ÓÏÖÔÚ¿ªÊ¼ÀëÄã±ÏÒµ»¹ÓжàÉÙÌ죿 #6/7/2008# - Date 4¡¢Ëæ»úÊýº¯ÊýRnd(x)
Rnd [(x)]£¬±äÁ¿x¿ÉÊ¡ÂÔ£¬¿É²úÉúÒ»¸ö[0,1)Ö®¼äµÄµ¥¾«¶ÈËæ»úÊý¡£ ¢Ùµ±x£¼0ʱ£¬Ôòÿ´Î²úÉúµÄËæ»úÊý¶¼Ïàͬ¡£ ¢Úµ±x£¾0»òÊ¡ÂÔʱ£¬²úÉúÏÂÒ»¸öËæ»úÊý¡£
¢Ûµ±x£½0ʱ£¬Ôò¸Ã´Î²úÉúµÄËæ»úÊýÓëÉÏÒ»´Î²úÉúµÄËæ»úÊýÏàͬ
? Rndº¯Êý·µ»Ø0ºÍ1£¨°üÀ¨0µ«²»°üÀ¨1£©Ö®¼äµÄµ¥¾«¶ÈËæ»úÊý¡£
? ÿ´ÎÔËÐÐʱ£¬Òª²úÉú²»Í¬ÐòÁеÄËæ»úÊý£¬ÏÈÖ´ÐÐRandomize Óï¾ä£¨²ÎÊý×îºÃΪ²»¶Ï±ä
»¯µÄÖµ£¬Èç¼ÆËã»úϵͳTimer£©¡£
? ²úÉúa¡«bµÄÖ®¼äµÄËæ»úÕûÊý£ºInt(Rnd *(b-a+1)+a)¡£
Àý1£º²úÉú[30£¬50]Ö®¼äµÄËæ»úÕûÊý£¬¿ÉÓÃÏÂÃæ±í´ïʽ£º Int(Rnd*21+30)
Àý2£ºÊ¹Óà Rnd º¯ÊýËæ»úÉú³ÉÒ»¸ö 1 µ½ 6 µÄËæ»úÕûÊý, ¿ÉÓÃÏÂÃæ±í´ïʽ£ºInt(Rnd*6 + 1) ¢ó¡¢Ð¡½á
±¾´Î¿ÎÎÒÃÇÒªÕÆÎÕ³£ÓõÄÄÚ²¿º¯ÊýµÄʹÓᣠ¢ô¡¢×÷Òµ
Ò»¡¢Ð´³öÏÂÁк¯ÊýµÄ½á¹û£º
1¡¢int(5.3) int(5.6) int(-5.3) int(-5.6) 2¡¢fix£¨5.3£© fix£¨5.6£© fix£¨-5.3£© fix£¨-5.6£©
3¡¢Abs(-3.9) cint(-2.3) Asc(\ chr£¨68£© sgn£¨-2£© ¶þ¡¢Ð´³ö²úÉú[100£¬200]Ö®¼äµÄËæ»úÕûÊýµÄ±í´ïʽ¡£
µÚ21¡¢22¿Îʱ
¿ÎÌ⣺ÔËËã·ûºÍ±í´ïʽ ½ÌѧĿµÄ:
1¡¢ÕÆÎÕÔËËã·û×é³ÉµÄ±í´ïʽµÄ¼ÆËã 2¡¢ÕÆÎÕ±í´ïʽµÄÓ÷¨¼°Êéд¹æÔò ½ÌÑ§ÖØÄѵ㣺
1¡¢VB³£ÓõÄÔËËã·û¼°±í´ïʽ 2¡¢ÔËËã·ûµÄÓÅÏÈ˳Ðò ½Ìѧ·½·¨£º ¶àýÌå½Ìѧ ½Ìѧ¹ý³Ì£º
- 23 -
¢ñ¡¢¸´Ï°ÉϽÚÄÚÈÝ
1¡¢³£ÓõÄÄÚ²¿º¯ÊýµÄʹÓᣠ¢ò¡¢Ð¿Î
Òª½¨Á¢Ò»¸öVBÓ¦ÓóÌÐò»áÓõ½¸÷ÖÖ²»Í¬µÄÊý¾ÝÒÔ¼°ÓÉÕâЩÊý¾ÝºÍ¸÷ÖÖÔËËã·ûºÅ×é³ÉµÄ±í´ïʽ£¬»¹ÓÐһЩ³£Óú¯Êý¡£ Ò»¡¢ÔËËã·ûÓë±í´ïʽ
1¡¢ËãÊõÔËËã·û£º^ -(¸ººÅ) * / \\ mod + - &
ia=3
2¡¢ËãÊõ±í´ïʽ
Óɳ£Á¿¡¢±äÁ¿¡¢ËãÊõÔËËã·û¡¢Ô²À¨ºÅºÍº¯ÊýµÈÁ¬½ÓÐγɡ£ 1£©Visual BasicÖв»ÄÜÊ¡ÂԳ˺ÅÔËËã 2£©ËùÓеÄÀ¨ºÅÒ»ÂÉʹÓÃÔ²À¨ºÅ
3£©Êýѧ±í´ïʽÖеıíÊ¾ÌØ¶¨º¬ÒåµÄ·ûºÅҪд³É¾ßÌåµÄÊýÖµ¡£Èç½âÔ²Ãæ»ýµÄ±í´ïʽ2¦Ðr£¬ÔÚ VBÖÐҪд³É 2*3.14*r
Àý£º5+10 mod 10 \\ 9 / 3 +2 ^2 ½á¹û£º10 ×¢Ò⣺
¶ÔËãÊõÔËËã·ûÁ½±ßµÄ²Ù×÷ÊýÓ¦ÊÇÊýÖµÐÍ£¬ÈôÊÇÊý×Ö×Ö·û»òÂß¼ÐÍ£¬Ôò×Ô¶¯×ª»»³ÉÊýÖµÀàÐͺóÔÙÔËËã¡£ ÀýÈ磺
30-True ½á¹ûÊÇ31£¬Âß¼Á¿TrueתΪÊýÖµ-1£¬FalseתΪÊýÖµ0 False + 10 + \½á¹ûÊÇ14 3¡¢×Ö·û´®Á¬½ÓÔËËã·û Á¬½ÓÔËËã·û£º& ºÍ+£¬¡°&¡±×¨ÃÅÓÃ×÷×Ö·û´®Á¬½Ó£¬¡°+¡±¼´¿É×÷¼Ó·¨ÔËËãÒ²¿É×÷×Ö·û´®Á¬½Ó \½á¹û\£¬\½á¹û579£¬123+\½á¹û579 4¡¢×Ö·û´®±í´ïʽ
Ò»¸ö×Ö·û´®±í´ïʽÊÇÓÉ×Ö·û´®³£Á¿¡¢×Ö·û´®±äÁ¿¡¢×Ö·û´®º¯Êý¡¢×Ö·û´®ÔËËã·ûºÍÀ¨ºÅµÈÁ¬½ÓÐγɵÄÒ»¸öÓÐÒâÒåµÄÔËËãʽ×Ó£¬È磺
¡°xyz¡±& ¡°123¡±&left(¡°abc¡±,2) ¾ÍÊÇÒ»¸ö×Ö·û´®±í´ïʽ£¬
×Ö·û´®Á¬½ÓÔËËã·û¡°&¡±µÄÓÅÏȼ¶µÍÓÚËùÓеÄËãÊõÔËËã·û£¬¶ø¸ßÓÚÆäËûµÄÔËËã·û¡£ ×¢Ò⣺
1¡¢& Á½ÅԵIJÙ×÷Êý¿ÉÈÎÒ⣬ת»»³É×Ö·ûÐͺóÔÙÁ¬½Ó 2¡¢ÔÚ±äÁ¿ºóʹÓÃÔËËã·û£¦Ê±£¬±äÁ¿Ó룦¼äÓ¦¼ÓÒ»¸ö¿Õ¸ñ
3¡¢ + Á½ÅԵIJÙ×÷ÊýÓ¦¾ùΪ×Ö·ûÐÍ£»ÈôΪÊýÖµÐÍÔò½øÐÐËãÊõ¼ÓÔËË㣻ÈôÒ»¸öΪÊý×Ö×Ö·û£¬Áí
- 24 -
¹²·ÖÏí92ƪÏà¹ØÎĵµ