【VB开源代码栏目提醒】：网学会员VB开源代码为您提供VB程序设计代码基础 - 编程语言参考，解决您在VB程序设计代码基础 - 编程语言学习中工作中的难题，参考学习。

    

1:??????????2 VB … … 33.1 1. Unicode:: 09: azAZ: -/ . : _ 2. VB: 43????25540????SumAgeAveragestuNameVisual BasicA1a153.2 ????????????63.2.1 ??Integer??Long??Single??Double??Currency??Byte71. 1 Integer2: -09 : -3276832767: O07: O0 O177777: H09AF: H0 HFFFF: -325 0 56 100O456 O36H1AC H38 H282 Long 4: -09 : -21474836482147483647: O: O0 O37777777777: H: H0HFFFFFFFF: 453466 -34568 1000000O456O36H1ACH38H292. IEEE : -....... ED -1 Single47: 3.234E2 3.234102-28E9 -281094.56E-17 4.5610-172 Double8163.234D2 3.234102-28D9 -281094.56D-17 4.5610-17ed103 Currency81543. Byte0255113.2.2 String: abc ABC 12.34 32 : You must study hard he said.: You must study hard he said. 123.2.3 Boolean????TrueFalse133.2.4 Date: ……VB: Date/Time 3-6-93 13:20March 271993 1:20am Apr-2-9314 April 199312/18/19993.2.5 Object43.2.6 Variant143.2.7 ????Public Private Enum 1 2…End Enum15??????Long??PublicPublicPrivatePublic??Private。

    16101Public Enum DaysSunday 0Monday 1TuesdayWednesdayThursdayFridaySaturdayEnd Enum172Public Enum WorkDaysSaturday 0Sunday 0 0Monday 1TuesdayWednesdayThursdayFridayInvalid -1 -1End Enum 183VBVisual Basic4Public Enum WorkDaysSunday 0MondayTuesdayWednesdayThursdayFridaySaturday Days.Saturday–6 Invalid -1End Enum 195 Dim MyDay As WorkDays Saturday 0MyDay Saturday6Debug.Print Days.Saturday Days.SaturdayDebug.Print WorkDays.Saturday _WorkDays.Saturday7VBvbDayOfWeek203.2.8 TypeTypePrivatePublic Type As …End Type21:1Visual BasicPrivatePublicPublic2Private3422.StudentsPrivate TypeStudentsDeptAs String 20 ClassNoAs String 10 NameAs String AgeAs Integer End Type23 StudDim Stud As Students Stud.Dept Stud.ClassNo 2001-1Stud.Name Stud.Age 18 Print Stud.Dept Stud.ClassNo Print Stud.Name Stud.Age245Dim Stud1 As Students Stud2 As StudentsStud2 Stud1256Private Type AddressAddr As String Zip As Integer Phone As String End TypePrivate Type StudentName As String Age As Byte TosAddr As Address AddressEnd Type263.3 : 3.3.1 : Visual Basic 12345 True 11/10/2001 3.3.2 :Const As: Integer Long Single Double String StringnBooleanDate Currency Byte Variant27: Const Pi 3.14159Const Max As Integer 9 Const BirthDate 1/1/01Const MyString friend Const Pi 3.14 Max 9MyStrHello Const Pi2 Pi 2 Const sinx Sin20 3.14 / 180 : : AREAPiR2: Pi3.1428VB:→→ : VBRUN ColorConstants ShapeConstantsVbredvbShapeCircle: Private Sub Form_ActivateConst AAs String Form1.BackColor vbGreenForm1.ForeColor vbRedForm1.FontSize 14Print AEnd Sub3.3.3 293.4 ??…5A1. ??????302. ????255??????: Student1 MyName intMax strName313. 1 :DimPrivatePublic Static ??Dim: ??Private: ??Public: ??Static: 32: Dim Sum As Long Dim Address As StringDim No As String 8Private b As IntegerDim Num Total As Integer NumPublic Average As SingleStatic A As Long2 3 : Option Explicit: →→→Option Explicit33: DimCommand1Command2Dim a As IntegerPrivate Sub Command1_Click a a 10Print aEnd SubPrivate Sub Command2_Clicka a 15Print aEnd SubDim a As Integer34: StaticC1Private Sub C1_ClickStatic a As Integera a 10Print aEnd SubPrivate Sub C1_ClickDim a As Integera a 10Print aEnd SubC1353.5 : 36: Fix45.67 45Int45.67 45Fix-2.89 -2Int-2.89 -3Abs-4 4Log10 2.30258509299405Sgn3 1Sgn-6 -1Sgn0 0: sin300 Sin30 3.14 / 180 3.5.1 37: YXIntY/XY/X : log10X:10lnlogln10xx: LogX/Log10: e3 : Exp3: e338: LTrimABC ABCRTrimABC ABCTrimABC ABCLeftABCDE2 ABRightABCDE2 DEMidABCDE23 BCDMidABCDE26 BCDELenABCDE 5String3ABC AAAString365 AAAInStrABCDECDEDE 4InStr5ABCDECDEDE 7UCaseAbc ABCLCaseABc abc3.5.2 391. Rndx01x0: x0: x: x02. RandomizeRandomizenn:3.5.3 40abInt b-a1 Rnd a199Int99Rnd1199Int97Rnd241: AscA 65AscABC 65Chr65 AStr123 123 Str-123 -123 Val123 123Val123AB 123Val.123AB .123Vala123AB 0Val12E2ABC 12003.5.4 42Hex27 1BHex45.7 2EOct27 33Oct45.7 56CInt5.3 5CInt-5.7 -6CInt32766.6 32767CInt32767.8 CInt0.5 0CLng10.5 10CSng123.56789 123.5679CDbl123.56789 123.5678943CCur123.56789 123.5679CBool5.8 4 TrueCBool-5.8 TrueCBool0 FalseCBool12 TrueCBool0 FalseCBoolabc 443.5.5 ??Now??Date??Time??Daydd??WeekDaydd??Monthdd??Yeard45??Hourd023??Minuted059??Secondd059??Timer46: Format123.45 0000.000 0123.450Format123.45 0.0 123.5Format123.45 . 123.45Format123.45 . 123.5Format0.123 . .12Format0.123 0. 0.12FormatHELLO THIS IS IT: Format:Format123 Format456 123456:Str123 Str456 1234563.5.6 47ShellWindowsShell: : P543-13.5.7 ShellPrivate Sub Form_ClickShell c:winntsystem32calc.exe vbNormalFocusEnd SubShell483.6 : : 493.6.1 1322--93353/10/3410/35Mod10 mod 36236-2-3: 50: VBna1yxxyxyza1a2a-ba-b a1a2 a-ba-b xyza1/ny/-xx/-y384A/48/3B