VB6³ÌÐòÉè¼Æ

VB6³ÌÐòÉè¼Æ

±íʾµÄÊ®Áù½øÖƺͰ˽øÖÆÊý

? ±êʶ·ûÊÇΪ³ÌÐò´úÂëÖеıäÁ¿¡¢³£Á¿¡¢ÀàÐÍ¡¢¹ý³Ì¡¢º¯Êý¡¢ÀàºÍÆäËû¶Ô

ÏóµÄÃüÃû¡£VBÖбêʶ·ûµÄÃüÃûÓÐÈçϹæÔò£º

£¨1£©±êʶ·û±ØÐëÊÇ×Öĸ¿ªÍ·£¬ºó¸ú×Öĸ¡¢Êý×Ö»òÏ»®Ïß

£¨2£©±êʶ·û³¤¶È²»Äܳ¬¹ý255¸ö×Ö·û£¬ÆäÖд°Ìå¡¢¿Ø¼þ¡¢ÀàºÍÄ£¿éµÄ

±êʶ·û³¤¶È²»Äܳ¬¹ý40¸ö×Ö·û

£¨3£©²»ÄÜÓëVBÖÐÊܵ½ÏÞÖÆµÄ¹Ø¼ü×ÖͬÃû

4.2 Êý¾ÝÀàÐÍ

Ò»¸ö±äÁ¿µÄÊý¾ÝÀàÐÍÖ¸³ö¸Ã±äÁ¿ÄÜ´æ´¢ºÎÖÖÀàÐ͵ÄÊý¾Ý¡£VBÌṩÁËÐí¶à»ù±¾Êý¾ÝÀàÐÍ£¬Óû§Ò²¿ÉÒÔ¸ù¾ÝÐèÒª×Ô¶¨ÒåÊý¾ÝÀàÐÍ¡£

4.2.1 »ù±¾Êý¾ÝÀàÐÍ

VBµÄ»ù±¾Êý¾ÝÀàÐͼûP46±í4.2.1£¬×¢ÒâËüÃǵÄÀàÐÍÃû¡¢ÀàÐÍ·û¡¢Õ¼ÓÃ×Ö½ÚÊýºÍ±íʾ·¶Î§¡£

Àý£º Dim YesorNo As Boolean

Dim A As Byte,B As Byte Dim I As Integer Dim L As Long Dim A As Single Dim P As Currency

Dim X As Double,Y As Double Private S As String

Dim Name As String*20 Dim D As Date Dim V

Dim a%,b&,c!,d# ?aΪÕûÐÍ£¬bΪ³¤ÕûÐÍ£¬cΪµ¥¾«¶ÈÐÍ£¬

dΪ˫¾«¶ÈÐÍ£¬@Ϊ»õ±ÒÐÍ£¬$Ϊ×Ö·û´®ÐÍ

YesorNo=1>2

A=&H0F:B=&H01 A=A+B

X=1.88E18:Y=2.01D16 X=X*Y

S=¡±Database¡± S=Left(S,4)

D=#4/6/1999 8:30:50PM# V=¡±17¡± V=V-15 V=¡±U¡±&V

³ýÁË¿ÉÒÔÏñÆäËü±ê×¼ÀàÐÍÒ»Ñù²Ù×÷Í⣬VariantsÀàÐͱäÁ¿»¹°üº¬ËĸöÌØÊâÖµ£ºEmpty£¬Nothing£¬NullºÍError¡£

9

µÚËÄÕ VB6±à³Ì»ù´¡

4.2.2 Óû§×Ô¶¨ÒåÊý¾ÝÀàÐÍ

¸ñʽ£º

[Private|Public] Type varname elementname as type ¡­ End Type Àý£º

Private Type StuRecord Name As String*30 Birthday As Date Other As Variant End As Variant

Dim Record1 As StuRecord,Record2 As StuRecord Record1.Name=¡±Abc¡±

4.2.3 ö¾ÙÀàÐÍ

ÔÚÄ£¿éµÄÉùÃ÷¶ÎÓÃEnumÓï¾äÀ´ÉùÃ÷ö¾ÙÀàÐÍ£¬ÀýÈ磺 Private Enum ElementSet Sun Mon Tue End Enum

4.3 ±äÁ¿Óë³£Á¿

ÔÚÓ¦ÓóÌÐòÖ´ÐÐÆÚ¼ä£¬±äÁ¿ÓÃÀ´´æ´¢¿ÉÄܱ仯µÄÊýÖµ£¬³£Á¿±íʾ¹Ì¶¨²»±äµÄÊýÖµ¡£Í¨³££¬ÔÚʹÓñäÁ¿ºÍ³£Á¿Ç°±ØÐëÊÂÏÈÉùÃ÷£¬²¢ÇÒËüÃÇÓÐ×Å×Ô¼ºµÄÓÐЧ·¶Î§¡£

4.3.1 ±äÁ¿

±äÁ¿ÓÐÃû×Ö£¬ËüÊÇÓÃÀ´ÒýÓñäÁ¿Ëù°üº¬µÄÊý¾ÝµÄ±êʶ·û£»±äÁ¿¾ßÓÐÊý¾ÝÀàÐÍ£¬ÒÔÈ·¶¨±äÁ¿Äܹ»´æ´¢µÄÊý¾ÝÖÖÀà¡£

? ±äÁ¿µÄÃüÃûÓ¦×ñÑ­±êʶ·ûÃüÃûµÄ¹æÔò

? Ò»°ãÓ¦ÓñäÁ¿ÉùÃ÷Óï¾äÉùÃ÷±äÁ¿£¨ÏÔʽÉùÃ÷¡¢ÒþʽÉùÃ÷¡¢ÓÐЧ·¶Î§£©

4.3.2 ³£Á¿

VBÖÐÓÐÁ½ÖÖ³£Á¿£¬Ò»ÖÖÊÇϵͳԤ¶¨ÒåµÄ³£Á¿£¬»¹ÓÐÒ»ÖÖÊÇÓû§¶¨ÒåµÄ³£Á¿¡£ ? Óû§¶¨Òå³£Á¿µÄÃüÃû

? Óû§¶¨Òå³£Á¿µÄÉùÃ÷[Public|Private] Const constantname [As

type]=expression

10

VB6³ÌÐòÉè¼Æ

? Óû§¶¨Òå³£Á¿µÄÓÐЧ·¶Î§

4.4 Êý×é

Êý×éÊÇÖ¸¾ßÓÐÏàͬµÄÊý¾ÝÀàÐ͵ÄÓÐÐòÊý¾ÝµÄ¼¯ºÏ£¬¼´Ò»¸öÊý×éÖеÄËùÓÐÔªËØ¾ßÓÐÏàͬµÄÊý¾ÝÀàÐÍ¡£

µ±ÉùÃ÷ÁËVariantÀàÐ͵ÄÊý×éʱ£¬ÆäÔªËØÄܹ»°üº¬²»Í¬ÀàÐ͵ÄÊý¾Ý¡£

4.4.1 ´óС¹Ì¶¨µÄÊý×é

1¡¢Êý×éµÄÃüÃû 2¡¢Êý×éµÄÉùÃ÷

¸ù¾ÝÉùÃ÷µÄÊý×éµÄÓÐЧ·¶Î§²»Í¬£¬ÓÐÈýÖÖ·½·¨ÉùÃ÷´óС¹Ì¶¨µÄÊý×é¡£

? ¹ý³Ì¼¶Êý×飬Ôڸùý³ÌÖÐÓÃDimÓï¾äÉùÃ÷£¬Àý£ºDim Number(10) As

Integer»òDim K(1 To 5)»òStatic State(10) As Boolean ? Ä£¿é¼¶Êý×飬ÔÚÄ£¿éµÄÉùÃ÷¶ÎÖÐÓÃPrivate»òDimÓï¾äÉùÃ÷£¬Àý£ºPrivate

A(10) As Integer»òDim Address(1 To 50) As String*30 ? È«¾Ö¼¶Êý×飬ÔÚÄ£¿éµÄÉùÃ÷¶ÎÖÐÓÃPublicÓï¾äÉùÃ÷£¬Àý£ºPublic Price(10)

As Double»òPublic Name(1 To 50) As String*20 3¡¢Êý×éµÄÒýÓÃ

Dim n As Integer

Dim Number(10) As Integer For n=0 To 10 Number(2)=2 Next n 4¡¢¶àάÊý×é

Àý£º

Dim I As Integer,J As Integer

Static MatrixA(1 To 10,1 To 10) As Double For I=1 To 10 For J=1 To 10

MatrixA(I,J)=I*10+J Next J Next I

11

µÚËÄÕ VB6±à³Ì»ù´¡

4.4.2 ¶¯Ì¬Êý×é

1¡¢¶¯Ì¬Êý×éµÄÉùÃ÷

? ¹ý³Ì¼¶¶¯Ì¬Êý×飺Dim dynArray()»òDim dynList() As Single ? Ä£¿é¼¶¶¯Ì¬Êý×飺Private dynA() As Integer»òDim dynArray() ? È«¾Ö¼¶¶¯Ì¬Êý×飺Public dynArray() As Double»òPublic dynList() 2¡¢¶¯Ì¬Êý×éµÄ¶¨Òå

¶¯Ì¬Êý×éÉùÃ÷ºó²¢²»ÄÜÁ¢¼´Ê¹Ó㬻¹±ØÐëÔÚʹÓÃËüµÄ¹ý³ÌÖУ¬ÓÃReDimÓï¾ä¶ÔËüµÄάÊýºÍÉÏÏÂ½ç½øÐж¨Òå¡£

Àý£º

ReDim dynArray(1 To 10) ReDim dynArray(2,1 To N) ×¢Ò⣺

? ReDimÓï¾äͨ³£ÊÇÒ»¸öÖ´ÐÐÓï¾ä£¬Ö»ÄÜÔÚ¹ý³ÌÖÐʹÓÃ

? ¿ÉʹÓÃReDimÓï¾ä·´¸´¸Ä±ä¶¯Ì¬Êý×éµÄάÊýºÍÉÏϽ磬µ«Ò»°ã²»ÄÜÐÞ

¸ÄËüµÄÊý¾ÝÀàÐÍ

4.5 ÔËËã·ûºÍ±í´ïʽ

4.5.1 ÔËËã·û

ÔËËã·ûÊDZíʾʵÏÖijÖÖÔËË㹦ÄܵķûºÅ¡£°´ÔËËãµÄ²Ù×÷¶ÔÏóºÍ²Ù×÷½á¹ûµÄ²»Í¬Êý¾ÝÀàÐÍ£¬VBÖеÄÔËËã·ûÓÐ×ÔÊöÔËËã·û¡¢Á¬½ÓÔËËã·û¡¢±È½ÏÔËËã·û¡¢Âß¼­ÔËËã·ûºÍλÔËËã·ûµÈ¶àÖÖÀàÐÍ¡£ 1¡¢ËãÊõÔËËã·û

ËãÊõÔËËã·ûÓÃÀ´½øÐÐÊýѧ¼ÆËã¡£

P58±í4.5.1°´ÓÅÏȼ¶±ð´Ó¸ßµ½µÍµÄ˳ÐòÁгöÁËVBÖеÄËãÊõÔËËã·û¡£ Àý£º

V=2^3^2 ?VµÄֵΪ64£¬DoubleÀàÐÍ V=-(3.14+12)*5.2/3 V=13.14\\5.8 ?VµÄֵΪ13³ýÒÔ5µÄÉÌ2£¬LongÀàÐÍ V=15.14 Mod 3.8 ?VµÄֵΪ15³ýÒÔ4µÄÓàÊý3£¬LongÀàÐÍ 2¡¢Á¬½ÓÔËËã·û

Á¬½ÓÔËËã·ûÓÃÀ´Á¬½ÓÁ½¸ö×Ö·û´®¡£

12

ÁªÏµ¿Í·þ£º779662525#qq.com(#Ìæ»»Îª@)