untitled

Visual Basic

Visual Basic 7 Visual Basic Visual Basic CIP Visual Basic/. 2003 ISBN 7-302-07899-8... BASIC. TP312 44 CIP 2003 124777 http://www.tup.com.cn 100084 010-62770175 010-62776969 185 260 24.25 536 2004 1 1 2004 1 1 ISBN 7-302-07899-8/TP 5737 1 5000 35.00 1

2002 B Windows C QBasic FoxBASE+ Fortran Visual Basic Visual FoxPro PC

Visual Basic Fortran 2003 12 IV

1 2 3 4 5 6 7 8 2 5 6 10 10 9 DOS Windows OS/2 Macintosh Unix Linux 10 11 PC 12 CD-ROM (E-mail th_press@263.net) Visual Basic 100084 010 62791976/77 221 010 62788903 www.thjd.com.cn 15%

1994 1 2 3 4 Visual Basic 2003 12

1 Visual Basic...1 1.1 Visual Basic...1 1.1.1...1 1.1.2...3 1.2...4 1.2.1...4 1.2.2...6 1.3...6 1.3.1...6 1.3.2...8 1.4...10 1.4.1...10 1.4.2...12 1.5...13 1.6...13 2 Visual Basic...16 2.1...16 2.1.1...16 2.1.2...22 2.1.3...25 2.2...29 2.2.1...29 2.2.2...42 2.2.3...46 2.3...51 2.3.1...51 2.3.2...56 2.3.3...57 2.4...59

Visual Basic 2.5...59 3 Visual Basic...64 3.1 Visual Basic...64 3.1.1...64 3.1.2...66 3.1.3...69 3.2...70 3.2.1...70 3.2.2...73 3.2.3...75 3.3...81 3.3.1...81 3.3.2...86 3.3.3...87 3.4...89 3.4.1...89 3.4.2...94 3.4.3...99 3.5...104 3.5.1...104 3.5.2...113 3.5.3...116 3.6...127 3.6.1...127 3.6.2...132 3.6.3...135 3.7...142 3.8...144 4...151 4.1...151 4.1.1...151 4.1.2...153 4.1.3...158 4.2...161 4.2.1...161 4.2.2...163 VIII

4.2.3...166 4.3...169 4.3.1...169 4.3.2...174 4.3.3...175 4.4...176 4.5...177 5...184 5.1 Sub...184 5.1.1...184 5.1.2...190 5.1.3...192 5.2 Function...196 5.2.1...196 5.2.2...197 5.2.3...198 5.3...203 5.3.1...203 5.3.2...209 5.3.3...210 5.4...212 5.4.1...212 5.4.2...219 5.4.3...220 5.5...222 5.6...224 6...231 6.1...231 6.1.1...231 6.1.2...237 6.1.3...238 6.2...239 6.2.1...239 6.2.2...242 6.2.3...243 6.3 Visual Basic...243 IX

Visual Basic 6.3.1...243 6.3.2...246 6.3.3...247 6.4...248 6.5...249 7...252 7.1...252 7.1.1...252 7.1.2...253 7.1.3...254 7.2...255 7.2.1...255 7.2.2...257 7.2.3...257 7.3...258 7.3.1...258 7.3.2...262 7.3.3...264 7.4...267 7.4.1...267 7.4.2...269 7.4.3...270 7.5...274 7.5.1...274 7.5.2...278 7.5.3...280 7.6...281 7.6.1...281 7.6.2...283 7.6.3...284 7.7...285 7.8...286 A...290 B...295 X

C...306 D...311 E...342 F...368 XI

1 Visual Basic 1 Visual Basic 2 Visual Basic 3 1.1 Visual Basic 1.1.1 Visual Basic Microsoft MS-Windows BASIC BASIC Windows API DLL DDEOLE ODBC Visual Basic 1.0 Microsoft 1991 1992 1995 2.0 3.0 4.0 16 DOS MS-Windows 3.x 1997 5.0 1998 6.0 32 MS-Windows 9x/NT/2000 32 5.0 Microsoft Visual Basic Visual Basic Visual Basic 6.0 Microsoft Microsoft Visual Studio Visual Basic Windows Tab ActiveX Internet Crystal Report Writer

Visual Basic / Internet/Intranet Microsoft Visual Source Safe Visual Basic 1. Visual Basic Visual Basic 2. Visual Basic 4.0 OOP Visual Basic 3. Visual Basic Visual Basic Visual Basic 4. Visual Basic Visual Basic 5. Visual Basic MS-Access.mdb dbase FoxPro Paradox ODBC SQL Server Oracle SQL Visual Basic ActiveX ADO RDO Visual Basic 2

1 Visual Basic 1.1.2 1 Visual Basic 1 2 Visual Basic Visual Basic 1 2 2 Visual Basic 1 2 MS-Windows Visual Basic Microsoft MS-Windows Visual Basic 1 Microsoft 2 3 Visual Basic 1 MS-Access dbase FoxPro Paradox 2 SQL Server Oracle / MS-Access dbase FoxPro Visual Basic / SQL Server Oracle Visual Basic ODBC 1 2 ODBC 4 A Visual Basic B C++ C Java D Pascal Visual Basic C++ Java Pascal 3

Visual Basic D 5 4 A B C D D 6 GUI A C B D GUI Graphical User Interface B 1.2 1.2.1 Visual Basic 6.0 Microsoft Visual Basic 6.0 Microsoft Visual Basic 6.0 Microsoft Visual Basic 6.0 Visual Basic 6.0 Visual Basic vb60 vb6.exe Visual Basic 1-1 EXE Visual Basic IDE 1-2 Visual Basic MDI 1-2 SDI Visual Basic Visual Basic Visual Basic 4

1 Visual Basic 1-1 1-2 Visual Basic IDE Visual Basic Alt+Q Windows 5

Visual Basic 1.2.2 1 Visual Basic SDI Visual Basic MDI SDI Multiple Document Interface MDI MDI 2 Visual Basic 1 2 1 2 3 Visual Basic A Alt+Q B Del C Ctrl+Q D Ctrl+P Del Ctrl+P Ctrl+Q Alt+Q Visual Basic A 1.3 1.3.1 Visual Basic 1. 1-3 6

1 Visual Basic 1-Microsft Visual Basic 1 Visual Basic 3 Windows Word 13 / MS-Office 1 2 N Ctrl+N Ctrl N 3 F10 Alt 4 F10 Alt F 5<Alt+ > <Alt+F> 7

Visual Basic 6 Esc Alt 2. Visual Basic 4 1-4 1-5 1-4 1-5 / twip 1 inch=1440 twip 1.3.2 1 1-Microsft Visual Basic 8

1 Visual Basic 1 2 Visual Basic Visual Basic Standard EXE 3 1 2 3 Visual Basic Visual Basic 1 2 3 4 1 2 1 Esc 2 Alt 5 Visual Basic A F1 C F9 B F5 D F10 F1 F5 F9 F10 D 6 Visual Basic A B C D Visual Basic 3 Visual Basic D 9

Visual Basic 1.4 1.4.1 Visual Basic 1. 1-6 Form 1-6 1-7 / Name 1.vbp 2.vbg 3.frm 10

1 Visual Basic 4.bas 5.cls 6.res 1-7 2. 1-8 1-9 1-8 1-9 11

Visual Basic 1.4.2 1 Visual Basic 1 2 Visual Basic 1 2 2 1 2 Visual Basic Visual Basic 1 2 3 A Ctrl+D B Ctrl+E C Ctrl+F D Ctrl+G Ctrl+D Ctrl+E Ctrl+F Ctrl+G D 4 A B C Ctrl+T D F4 Ctrl+T Visual Basic C 5 / A Ctrl+T B Shift+F4 12

1 Visual Basic C Ctrl+J D F4 Ctrl+T Visual Basic Shift+F4 Ctrl+J / F4 D 1.5 Visual Basic Microsoft MS-Windows 1 Visual Basic 2 Visual Basic 3 Visual Basic IDE 1.6 1 Visual Basic A B C D 2 MSDN A Help B F10 C Esc D F1 3 ODBC A B C D 4 A Alt+Q B Shift+F4 13

Visual Basic C F4 D Ctrl+R 5 A F4 B Alt+Q C Shift+F4 D Ctrl+R 6 Dim vb vb="visual Basic 6.0" Debug. Print vb A True B False C Visual Basic 6.0 D "Visual Basic 6.0" 7 A inch B twip C cm D pixel 8 API A B C D 9 Visual Basic A B C D 10 Visual Basic A B C D 11 A F2 B Ctrl+F2 C F4 D Ctrl+F4 12 Visual Basic A ADO B DAO C DRO D RDO 13 4 A B C D 1 Visual Basic 1 2 4 3 14

1 Visual Basic 2 Visual Basic 1 2 3 1 2 4 4 Visual Basic 6.0 ActiveX 5 Visual Basic 6 Visual Basic 7 Visual Basic 1 2 8 1-Microsft Visual Basic 9 Visual Basic 1 2 3 15

2 Visual Basic 1 2 3 4 2.1 2.1.1 1. Visual Basic Visual Basic Visual Basic 1 2 3 F4 4 5 <Ctrl+PgDn> <Ctrl+PgUp>

2 Visual Basic 3 Caption Text Enable Alt+ Visual Basic print. 2. Windows 1 AutoRedraw True False BackColor ForeColor & BorderStyle 0-None 1-Fixed Single 2-Sizeable 3-Fixed Dialog 4-Fixed Tool Window 5-Sizeable ToolWindow 2 17

Visual Basic Caption ControlBox True False BorderStyle 0-None ControlBox True Enabled True False Font Height Width twip Icon.ICO MaxButton MinButton True False BorderStyle 0-None Name Visual Basic Picture Top Left Top Left Visible True False WindowState 0 1 2 2 Click DbClick Load UnLoad Activate Deactivate 18

2 Visual Basic Paint AutoRedraw True( 1) 3. Visual Basic 3 ActiveX OLE ActiveX Name Form1 Text1 Command1 4. 2 1 + 2-1 2-2 1 Ctrl 2 3 19

Visual Basic 2-1 2-2 2 2 1 8 2-2 20

2 Visual Basic Width Height Top Left twip Top Left Visual Basic Del 2 1 Shift 8 Shift 2 2-3 2-3 21

Visual Basic 5. Visual Basic Visual Basic 1 Paint AutoDraw True( 1) Resize 2 GotFocus LostFocus 3 Click DbClick MouseDown MouseUp MouseMove DragDrop DragOver 4 KeyDown KeyUp KeyPress 5 Change DropDown PathChange 6 Timer 2.1.2 1 Visual Basic 1 2 Visual Basic 22

2 Visual Basic 1 2 2 Visual Basic 3 1 2 3 Visual Basic ActiveX 3 ActiveX 1 ActiveX 2 3 3 Name 1 Visual Basic Name Name Form1 Name Text4 N Name CommandN Command1 4 A B ActiveX C D OLE OLE B 5 Visual Basic A Show B Hide C Load D UnLoand Show Hide Load UnLoad B 6 Visual Basic 23

Visual Basic A Name C Text B Caption D Enabled Name Caption Text Enabled A 7 A DragDrop B MouseDown C DbClick D Change DragDrop MouseDown DbClick Change D 8 Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button=2 Then Print "AAAAA" End If Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single) Print "BBBBB" A AAAAA B BBBBB BBBBB AAAAA BBBBB BBBBB C AAAAA D BBBBB BBBBB BBBBB MouseDown MouseUp MouseDown MouseUp Button Button 1 Button 2 Form_MouseDown Button 2 IF AAAAA Form_MouseUp 24

2 Visual Basic BBBBB Button 1 IF BBBBB A 9 Option Base 1 Private Sub Form_KeyPress(KeyAscii As Integer) a = Array(237, 126, 87, 48, 498) t1 = a(1) t2 = 1 If KeyAscii = 13 Then For i = 2 To 5 If a(i) > t1 Then t1 = a(i) t2 = i End If Next i End If Print t1 Print t2 A 48 B 237 C 498 D 498 4 1 5 4 Option Base 1 1 KeyAscii = 13 13 KeyAscii = 13 a t1 t2 IF KeyAscii = 13 For a(2) a(3) a(4) a(5) t1 t1 t2 a() t1 t2 t1 t2 C 2.1.3 1 25

Visual Basic A F4 B Ctrl+PgDn C F5 D Ctrl+PgUp 2 Visible A True B False C 0 D 1 3 Visual Basic A Name B Caption C Text D Enabled 4 A Name B Visible C Text D Caption 5 A AutoRedraw B Enabled C MaxButton D BorderStyle 6 A Deactivate B Activate C Load D Click 7 A B C ActiveX D OLE 8 A DragOver B Change C DbClick D MouseDown 9 A B C D 10 Visual Basic A Show B Hide C Load D Unload 11 A Contro1Box False B Contro1Box True BorderStyle 1~5 C Contro1Box False BorderStyle 0 D Contro1Box True BoderStyle 0 26

2 Visual Basic 12 Visual Basic A Show B Load C Hide D Unload 13 A Unload B OnFocus C GetFocus D QueryUnload 14 Visual Basic A B ActiveX C D 15 Visual Basic A Shift+Ctrl B Shift+ C Ctrl+ D Ctrl+ 16 A Load B Unload C Resize D Paint 17 a=1:b=2:c=3 a=b:b=c:c=a Print a;b;c A 1 2 3 B 2 3 1 C 2 3 2 D 2 2 3 18 Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then Print "****" Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Print "####" 27

Visual Basic A **** B #### C **** D #### #### **** **** #### **** #### #### **** 19 Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) FillColor = QBColor(Int(Rnd * 15)) FillStyle = Int(Rnd * 8) Circle (X, Y), 250 A B C D 20 A DragDrop C DbClick B MouseDown D DropDown 1 2 1 2 3 3 4 Visual Basic 1 2 5 Dim Msg As Integer Form1. 1 MsgBox "Form1 " Form1. 2 28

2 Visual Basic 2.2 2.2.1 1. 2-4 2-5 2-5 2-4 2-5 1 Caption Name Font Height Width Left Top Visible Enabled Alignment 0 1 2 AutoSize True BorderStyle 0 1 BackStyle 0 1 WordWrap AutoSize True WordWrap True WordWrap False 29

Visual Basic Click DbClick 2 MaxLength 0 32 768 MultiLine False True PasswordChar * ScrollBars 0 1 2 3 MultiLine True ScrollBars Text SelText SelLength SelStart 0 1 Locked True Click DbClick Change GotFocus LostFocus SetFocus Change Text GotFocus LostFocus SetFocus 2. 4 30

2 Visual Basic 1 2-6 2-7 Print 2-6 2-7 Name Enabled Visible Font AutoRedraw Top Left Height Width Picture none Visual Basic BitmapIconMetafile( ) JPEG GIF CurrentX CurrentY Stretch False Click DbClick Cls Print 2 1 Picture 31

Visual Basic Picture Picture 2 Windows.Picture=LoadPicture(" ") 3 2-8 2-8 Name Visible Height Width Top Left BorderColor BorderStyle 0~6 7 2-9 1~6 0 1 Solid 2 Dash 3 Dot 4 Dash-Dot 5 Dash-Dot-Dot 6 Inside Solid 7 Transparent 2-9 BorderStyle BorderWidth BorderStyle 6 32

2 Visual Basic BackStyle 0 1 BackColor FillStyle 0 Solid 1 Transparent 2 Horizontal Line 3 Vertical Line 4 Upward Diagonal 5 Downward Diagnoal 6 Cross 7 Diagnoal Cross FillColor FillStyle Shape 2-10 0~5 0 Rectangle 1 Square 2 Oval 3 Circle 4 Rounded Rectangle 5 Rounded Square 2-10 Shape X1 Y1 X2 Y2 X1 Y1 X2 Y2 33

Visual Basic 3. 2-11 Caption Name Enable Visible Font Height Width Top Left 2-11 Cancel True Esc Cancel True Default True Default True Style 0 1 Picture Style 1 DownPicture Style 1 Picture DisablePicture Enabled False Style 1 Click DbClick 4. Visual Basic 4 2-12 2-13 34 2-12

2 Visual Basic 2-13 Value True False 0 1 2 Alignment 0 1 Style 0 1 1 2-14 Picture DownPicture DisablePicture 35

Visual Basic 2-14 Click Click Click Columns 0 1 2-15 2-15 Columns List 0 n n 1 ListCount 36

2 Visual Basic ListIndex List 0 n n 1 1 MultiSelect 0-None 1-Simple 2-Extended Shift Ctrl ListIndex Text Selected List True False SelCount Sorted True False Style 0 1 Text AddItem.AddItem [, ] 0 Clear.RemoveItem.Clear RemoveItem.RemoveItem Click DbClick Click DbClick Text 37

Visual Basic Style 0 1 2 2-16 2-16 Style=0 Style=1 Style=2 0 1 2 Text Text Text Click DropDown Change Click DbClick Change Click DropDown AddItem RemoveItem Clear 5. 2-17 38

2 Visual Basic 2-18 2-18 Min Max Min Max 32 768 32 767 Min Max Min Max Value Min Max SmallChange Value LargeChange Value Scroll Change Scroll Value Change 6. 2-19 39

Visual Basic Visual Basic Enable True True False Interval 1/1000 65 535 56 Interval Timer Timer 7. 2-20 Enable False 2-20 2-21 40

2 Visual Basic Ctrl Caption Click DbClick 8. Tab SetFocus GetFocus LostFocus Enable Visible True Form_Load Show Tab Tab Tab Tab Tab Tab Tab TabStop TabIndex TabStop False Tab TabStop True TabStop False TabIndex Tab TabIndex TabIndex Tab Tab Tab Tab Tab Tab Tab 41

Visual Basic 2.2.2 1 1 2 3 Visual Basic Print 1 2 3 2 A Alignment B BorderStyle C Caption D Text Alignment BorderStyle Caption Text D 3 A GotFocus B LostFocus C SetFocus D Click GotFocus LostFocus Click SetFocus C 4 Visual Basic A Image C Frame B TextBox D CheckBox Frame TextBox Image CheckBox TextBox Image CheckBox C 42

2 Visual Basic 5 Text A Text1.Alignment=1 B Text1.Alignment=2 Text1.BorderStyle=0 Text1.BorderStyle=1 C Text1.Alignment=1 D Text1.Alignment=2 Text1.BorderStyle=1 Text1.BorderStyle=0 Alignment 0 1 2 BorderStyle 0 1 A 6 ComboBox A List B ListIndex C AddItem D Move ComboBox List ListIndex AddItem ComboBox ComboBox Move C 7 A Activate B Deactivate C LostFocus D Initialize Activate Deactivate LostFocus Initialize Form MDIForm User Property Page Webclass DHIML PageDesigner C 8Name Form1 Name Text1 Text2 Name Command1, m = Text1.Text + Text2.Text Print m Private Sub Form_Load() 43

Visual Basic Text1.Text = "" Text2.Text = "" Text1 Text2 123 456 A 579 B 123 456 C 123 456 D 456 123 Form_Load Command1_Click Text 123 456 123 456 + Text1.Text+Text2.Text 123 456 123 456 C 9 True A Value B Enabled C Cancel D Default Value Variant / Enabled Cancel Default B 10 Label1 A Label1.BackStyle=0 B Label1.BackStyle=1 Label1.BorderStyle=0 Label1.BorderStyle=1 C Label1.BackStyle=True D Label1.BackStyle=False Label1.BorderStyle=True Label1,BorderkStyle=False BackStyle 0 1 BorderStyle 0 1 True False A 11 Combo1 Command1 Combo1 44

2 Visual Basic m = InputBox(" 0 2 ") a = Combo1.List(m) Print a Private Sub Form_Load() Combo1.AddItem "12" Combo1.AddItem "34" Combo1.AddItem "56" 2 A 12 B 34 C 56 D 0 Combo1 Command1 Command1_Click Form_Load Combo1 AddItem Combo1.AddItem [ ] 0 Form_Load Combo1 AddItem Command1_Click InputBox 2 a=combo1.list(m) 2 0 2 3 a Print a 56 C 12 False A Enabled B Timer C Visible D Interval TimerEnable True Interval Interval 45

Visual Basic Timer Timer Visible A 13 picturefile.jpg Picture1 LoadPicture LoadPicture Picture1 Picture Picture1. Picture = LoadPrcture("picturefile.jpg") 2.2.3 1 A ScrollBars B BorderStyle C MaxLength D MultiLine 2 A Click B GotFocus C Change D LostFocus 3 A ScrollBars B SelText C PasswordChar D Text 4 A BackStyle B FillStyle C BorderStyle D Shape 5 A Shape B ScrollBars C BorderStyle D BackStyle 6 Esc A Enable B Visible C Cancel D Style 7 A Click B KeyUp 46

2 Visual Basic C DbClick D GotFocus 8 Picture DownPicture DisablePicture A B C D 9 A Click B DropDown C DbClick D Change 10 A B C D 11 A Scroll B MouseMove C Change D DragOver 12 A B C D 13 A B C D 14 A F4 B F3 C Tab D Alt+Tab 15 A SetFocus B Visible C Refresh D GetFocus 16 Command1 Label1 Command1 Click Dim a(3) As Single Dim p As String For n = 0 To 3 a(n) = Val(InputBox(" " & (n + 1) & " ")) Next p = a(0) & ";" & a(1) & ";" & a(2) & ";" & a(3) Label1.Caption = p 47

Visual Basic InputBox 1 2 3 4 A 1 2 3 4 B 1234 C 1 2 3 4 D 1;2;3;4 17 Name Text1 Tex12 Name Command1 x = 0 Do While x < 10 x = (x + 2) * (x + 3) n = n + 1 Loop Text1.Text = Str(n) Text2.Text = Str(x) A 1 0 B 2 72 C 3 50 D 4 168 18 Visual Basic A Show B Hide C Load D UnLoad 19 OptionButton Index 1 2 CommonDialog Private Sub Form_Load() Static FlagFormPainted As Integer If FlagFormPainted <> True Then Option1(1).Caption = "Color" Option1(2).Caption = "Font" Command1.Caption = "Show Dialog" FlagFormPainted = True End If If Option1(1).Value Then 48

2 Visual Basic CommonDialog1.ShowColor ElseIf Option1(2).Value Then CommonDialog1.Flags = cdlcfboth CommonDialog1.ShowFont End If A Color Font B Color Font C Color Font D Color 256 Font 20 Private Sub Form_Load() List1.AddItem "357" List1.AddItem "246" List1.AddItem "123" List1.AddItem "456" Text1.Text = "" Private Sub List1_DblClick() a = List1.Text Print a + Text1.Text 789 456 A 456 B 456 789 C 789 456 D 789 21 Name Combo1 Private Sub Form_Load() Combo1.Text = "1" For I = 1 To 10 Sum = Sum + I 49

Visual Basic Next I Combo1.Text = Sum A B Combo1 55 C Combo1 1 D Combo1 1 1 Visual Basic 1 2 2 Visual Basic 3 Visual Basic Value 1 2 3 4 Visual Basic 5 Timer1 Timer Timer1.lnterval=900 900 6 Name Command1 Command2 Command1 Command2 Command2 Command1 Private Sub Command2_Click() 1 Private Sub Form_Load() 2 7 Command1 ListBox 50 Dim n As Long

2 Visual Basic Dim L1 As Boolean, L2 As Boolean, L3 As Boolean List1.Clear For n = 1 To 100 L1 = n = n ^ 2 Mod 10 L2 = n = n ^ 2 Mod 100 L3 = n = n ^ 2 Mod 1000 If L1 Or L2 Or L3 Then List1.AddItem n End If Next ListBox1 2.3 2.3.1 Visual Basic 2 1. Visual Basic 6 Visual Basic Ctrl+E 51

Visual Basic 2-22 2-22 1 - & Alt+ Visual Basic Caption Name ID 0-None 1-Left 2-Middle 52

2 Visual Basic 3-Right 2 3. 4. 6 4 2-23 53

Visual Basic 2. 2-24 1.Enabled = True.Enabled = False 2 MS-Word \ MS-Word.Checked = True 54

2 Visual Basic.Checked = False 3 Visual Basic Alt+ & Copy o C&opy 3. MS-Word 4. Windows Visual Basic.PopupMenu [ Flags X Y BoldCommand] PopupMenu X Y Flags X Y 55

Visual Basic Flags=0 X Y Flags=4 X Y Flags=8 X Y BoldCommand Flags vbpopupmenuleftalign 0 X Y vbpopupmenucenteralign 4 X Y vbpopupmenurightalign 8 X Y Flags vbpopupmenuleftbutton 0 vbpopupmenurightbutton 8 Flags Or MouseDown If Button=2 Then PopupMenu 2.3.2 1 A Ctrl+E B C D Shift+Alt+M 3 Shift+Alt+M D 2 A % B * C & D # & & Alt Alt+S &S S & & && & 56

2 Visual Basic C 3 MenuItem A MenuItem. Enabled=False B MenuItem. Enabled=True C MenuItem. Visible=True D MenuItem. Visible=False Enabled True Visible True A 4 Visual Basic 1 Caption 2 Name Visual Basic Caption Name 1 2 5 Visual Basic Visual Basic - - 2.3.3 1 Menu1 A Menu1.Enabled =True B Menu1.Enabled = False C Menu1.Visible = True D Menu1.Visible = False 2 Menu1 A Menu1.Enabled =True B Menu1.Enabled = False C Menu1.Visible = True D Menu1.Visible = False 3 A Click B LostFocus C Change D GetFocus 4 A MouseDown B DragDrop C KeyDown D KeyPress 57

Visual Basic 5 Visual Basic A 4 B 6 C 8 D 10 6 A B C D 7 Menu1 A Menu1.Enabled =True B Menu1.Enabled = False C Menu1.Checked = True D Menu1. Checked = False 8 A B C D 9 A Enabled B Checked C PopupMenu D Menu 1 1 2 2 2 Visual Basic 3 1 2 4 Visual Basic 5 Visual Basic 6 Visual Basic 7 Visual Basic 58

2 Visual Basic 2.4 Visual Basic 1 Visual Basic Visual Basic 2 3 Visual Basic 3 Visual Basic Name Caption BorderStyle Enabled Visible AutoRedraw BackColor ForeColor Click DbClick Load UnLoad Activate Deactivate 4 Visual Basic 3 ActiveX ActiveX 5 6 7 8 9SetFocusGetFocus LostFocus 10 Tab Tab Tab 11 Visual Basic 2.5 1 Visual Basic BorderStyle 59

Visual Basic A 0-None B 1-Fixed Single C 2-Sizeable D 3-Fixed Dialog 2 Visual Basic A B Shift C Ctrl D Alt 3 Visual Basic A Click Show B Show C LostFocus D GotFocus 4 Visual Basic A Load B Unload C Show D Hide 5 A B C ActiveX D OLE 6 Visual Basic A KeyDown B KeyUp C KeyPress D Click 7 A SetFocus B LostFocus C GotFocus D Click 8 Text A Text1.Alignment=1 B Text1.Alignment=2 Text1.BorderStyle=0 Text1.BorderStyle=1 C Text1.Alignment=1 D Text1.Alignment=2 Text1.BorderStyle=1 Text1.BorderStyle=0 9 A Move B Change C Scroll D Getfocus 10 Label1 A Label1.BackStyle=0 B Label1.BackStyle=1 Label1.BorderStyle=0 Label1.BorderStyle=1 C Label1.BackStyle=0 D Label1.BackStyle=1 Label1.BorderStyle=1 Label1,BorderkStyle=0 11 Combo1 Command1 60

2 Visual Basic a = Combo1.List(1) Print a Private Sub Form_Load() Combo1.AddItem "12" Combo1.AddItem "34" Combo1.AddItem "56" A 12 B 34 C 56 D 0 12 A LostFocus B OutFocus C Lost D Fause 13 ListBox1 Dim a, i, msg msg = "Choose OK to add 100 items to your listbox." MsgBox msg For i = 1 To 100 a = "a: " & i List1.AddItem a Next i A AddItem 100 B AddItem 100 1~100 C AddItem 1~100 D AddItem 100 14 Label1 A Label1.Enabled = False B Label1.Enabled = True C Label1.Visible = True D Label1.Visible = False 15 Visual Basic ( ) A Shift+Ctrl B Shift+ C Ctrl+ D Ctrl+ 61

Visual Basic 16 Txt1 A Txt1.MultiLine=True B Txt1.MultiLine=True Txt1.ScrollBars=0 Txt1.ScrollBars=3 C Txt1.MultiLine=False D Txt1.MultiLine=False Txt1.ScrollBars=0 Txt1.ScrollBars=3 17 Value A Move B Change C Scroll D GotFocus 18 Form1 A Load Form1 B Form1.Show C Form1.Hide D Unload Form1 19 3 Command1 Command2 Command3 Command2.Enabled = False Command3.Visible = False A Command1 Command2 Command3 B Command1 Command2 Command3 C Command1 Command2 Command3 D Command1 Command2 Command3 20 Combo1 Chardonnay Fun_ Blanc Gewrztraminer Zinfandel Combo1 Private Sub Form_Load() Combo1.AddItem "Chardonnay" Combo1.AddItem "Fun_ Blanc" Combo1.AddItem "Gewrztraminer" Combo1.AddItem "Zinfandel" text1 A Text1.Text = Combo1.List(0) B Text1.Text = Combo1.List(1) C Text1.Text = Combo1.List(2) D Text1.Text = Combo1.List(3) 62

2 Visual Basic 21 PictureBox A Set Picture1.Picture = LoadPicture("c:\Win1.bmp",vbLPLarge, vblpcolor) B Picture1.Picture = LoadPicture("c:\Win1.bmp",vbLPLarge, vblpcolor) C Set Picture1.Pricture = LoadPicture D Priture1.Picture = LoadPicture 22 Visual Basic A & B * C $ D @ 23 Visual Basic A B C D 1 Visual Basic ActiveX 3 1 ActiveX 2 3 2 Name 3 Visual Basic 4 Visual Basic 1 2 3 5 Visual Basic Text 6 Save v 63

3 Visual Basic 1 Visual Basic 2 3 4 5 6 3.1 Visual Basic 3.1.1 1. Visual Basic Visual Basic 1 255 2 3 Visual Basic 4 Visual Basic 4.frm.bas.cls

3 Visual Basic.vbp 5 Visual Basic.exe 2. Visual Basic 1 2 3 F7 4 3-1 65

Visual Basic 3. Visual Basic Visual Basic 3 4. Visual Basic Visual Basic Visual Basic Visual Basic Visual Basic Windows Visual Basic.exe.EXE Visual Basic 3 Debug.Print 3.1.2 1 Visual Basic 4 1 2 3 4 Visual Basic 4.frm 66

3 Visual Basic.bas.cls.vbp 1.frm 2.bas 3.cls 4.vbp 2 Visual Basic 3 1 2 3 4 Visual Basic 3 1 2 3 4 3 Visual Basic 3 1 2 3 1 2 3 4 A B C Stop D Visual Basic 4 Stop B B 5 a = 10: b = 50 Rem Print a;b 67

Visual Basic ' Print b;a Print a; b A 10 50 50 10 10 50 B 10 50 C 10 50 50 10 D 50 10 REM [ ] ' [ ] Visual Basic REM ' B 6 A B F7 C D 4 F7 A A 7 a = 1: b = 2: c = 3 a = b: b = c: c = a Print c A 0 C 2 B 1 D 3 a = 1 b = 2 c = 3 a = b a = 2 b = 2 c = 3 b = c a = 1 b = 3 c = 3 c = a a = 2 b = 3 c = 2 c 68

3 Visual Basic 2 C 3.1.3 1 Visual Basic A.doc.txt B.com.exe C.vbp.frm D.bat.sys 2 x = "X" y = "Y" z = "Z" x = y: y = z: z = x Print x; y; z A YZY B Y Z Y C YZX D Y Z X 3 A My Documents B VB98 C \ D Windows 4 Visual Basic A.vbp B.bas C.frm D.cls 5.exe.exe A.frm B Visual Basic C D 6 69

Visual Basic a = 1 b = 2 a = b + a b = a b a = (a + b) / 2 b = a b Print "a=";a;";b=";b A a=1;b=2 C a=3;b=1 B a=2;b=1 D a=3;b= 1 1 1 2 2 Visual Basic REM 3 Visual Basic Visual Basic 1 2 Visual Basic 3 4 5 4 Visual Basic 3 1 2 3 4 5 3.2 3.2.1 1. 1 Integer 16 32 768 +32 767 Long 32 2 147 483 648 70

3 Visual Basic +2 147 483 647 Float 1 234.56 1.234 56E+3 1.234 56 10 3 1.234 56 3 32 1 23 8 1 1.401 298e 45 3.402 823e+38 3.402 823e+38 1.401 298e 45 Double 64 1 52 11 1 d e 4.940 65d 324 1.797 693 134 862 316d+308 1.797 693 134 862 316d+308 4.940 65d 324 2 String ASCII Visual Basic ASCII 0 Visual Basic 0 2 16 0 2 31 3Currency 64 4 922 337 203 685 477.5808 +922 337 203 685 477.580 7 4Variant Visual Basic 5Byte 8 0~255 6Boolean 7Date 8 64 100 1 1 9999 12 31 0:00:00 23:59:59 mm/dd/yy hh:mm:ss # 8Object 4 71

Visual Basic 9 Decimal Decimal 12 0 28 10 Decimal 0 +/ 79 228 162 514 264 337 593 543 950 335 28 28 +/ 7.922 816 251 426 433 759 354 395 033 5 10 28 Visual Basic Decimal Decimal 2. Visual Basic Type Type As As End Type Type GuestInfo FirstName As String*10 LastName As String*10 Age As Integer End Type GuestInfo FirstName LastName Age FirstName LastName Age * FirstName As String*10 72

3 Visual Basic Type Public Private Type Private 3. 1~12 ~ [Public Private] Enum [=] [=] End Enum Public Enum Days Sunday = 0 Monday = 1 Tueday = 2 Wednesday = 3 Thursday = 4 Friday = 5 Saturday = 6 End Enum 0 1 2 Long Visual Basic workday = Days.Saturday 1 Enum Public Private 3.2.2 1 Visual Basic ASCII 73

Visual Basic 0 1 2 0 2 16 3 0 2 31 ASCII Visual Basic ASCII 0 Visual Basic 0 2 16 0 2 31 1 2 3 2 Visual Basic A Double B Boolean C Integer D Variant Integer 16 Double 64 Boolean Variant Visual Basic D 3 Double A 2 C 8 B 4 D 16 Double 64 8 C 4 DateTime Date A DateTime="5/12/03" B DateTime=September 1, 2003 C DateTime=#12:15:30 AM# D DateTime=("8/8/99") Visual Basic # B C 5 A B Type Public C Type Public Private D 74

3 Visual Basic Type Public Private Type Private * C 6 Public Enum WeekDays Sunday = 0 Monday Tuesday Wednesday Thursday Friday Saturday Invalid = -1 End Enum Dim myday As WeekDays myday = Saturday Print Val(myday) A Saturday B 6 C false D 1 Monday Saturday WeekDays =[] 1 0 1 2 2 Sunday 0 1 Saturday 6 B 3.2.3 1 75

Visual Basic Dim b As Single b = 2# / 3 Print b A 0.666 666 666 666 667 B 1 C 0 D 0.666 666 7 2 Dim x As Single x = 0.00000055 Print x A 5.5E 7 B 5.5E 07 C 0.00000055 D.00000055 3 Public Enum Number One Two Three Four = 4 Five Six Seven End Enum Dim num1 As Number Dim num2 As Number num1 = Two num2 = Six Print Val(num1),Val(num2) A 1 6 B 2 6 C 1 5 D 2 5 4 76

3 Visual Basic Dim MyString As String Dim MyLen As Integer MyString = "Visual Basic 6.0" MyLen = Len(MyString) MsgBox MyLen A Visual Basic 6.0 B 14 C 16 D 18 5 a$ = "This is a book." b$ = "That is an apple." c$ = Left$(a$, 8) + Right$(b$, 9) Print c$ A This is a book. B This is an apple. C That is an apple. D That is a book. 6 a$ = "AAAAAA" a$ = Mid$(a$, 2, 4) Print a$ Mid$(a$, 2, 2) = "aa" Print a$ A AaaA B AAAA C aaaa D aaaa AAAA AaaA aaaa AAAA 7 A Type B Enum C Public D Dim 8 77

Visual Basic Dim c As Long c = 1111 c& = 6666 Print c; c& A 1 111 6 666 B 1 111 1 111 C 6 666 1 111 D 6 666 6 666 9 Dim Index% A Dim Index As Long B Dim Index As Integer C Dim Index As Single D Dim Index As Double 10 Type Address Street As String * 20 ZipCode As String * 6 Phone As String * 8 End Type Dim MyHome As Address With MyHome Street = " " ZipCode = "100081" Phone = "62000000" End With Print MyHome.Phone A B 100 081 C 62 000 000 D 10 008 162 000 000 11 Type Person no As Integer name As String * 13 brith As Date salary As Single End Type Dim zhao As Person 78

3 Visual Basic A B C D 12 Public Enum StudentNames zhao qian= -1 sun li zhou wu = 10 zheng wang End Enum Dim name1 As StudentNames,name2 As StudentNames name1 = sun name2 = wang Print Val(name1), Val(name2) A 2 8 B 2 7 C 0 12 D 1 10 13 Visual Basic A Double B Variant C Integer D Default 1 Integer 2 Long 3 Visual Basic 89% 4 1 2 3 5 Enum Test num = 0 ab = 5 79

Visual Basic cd End Enum Test. cd 6 books no 40 name 20 score 10 brithdate Type books no As String*40 name As String*20 score1 1 brithdate 2 End Type 7 a = 12: b = 34.5: c$ = "a-b" s$ = c$ + "=" + Str$(a - b) Print s$ 8 name age wage Type student nam As String*12 age As Integer wage As Integer 80

3 Visual Basic 3.3 3.3.1 1. ASCII 65 535 32 768 32 767 &H &H1a &H0 &HFFFF &O &O37 &O0 &O177 777 2 147 483 648 2 147 483 647 &H & &H1a2b& &H0& &HFFFFFFFF& &O & &O3745& &O0& &O37 777 777 777& 10 1.23E4 1.23 10 4 =1230 E E D 4 922 337 203 685 477.580 8 +922 337 203 685 477.580 7 3.141 5 % &! # 81

Visual Basic @ $ Const = Const Visual Basic 2. Visual Basic 255 Visual Basic Visual Basic UserName 1 % 82

3 Visual Basic &! # @ $ 2 Declare As As Declare Dim Static Redim Public Private 1 Dim Dim Declare Dim Var1 As Integer String String * Dim Str1 As String Str1 Dim Str2 As String *10 Str2 10 Visual Basic Dim Var1 Dim Var1$ Dim Var1 As String Dim Dim Var1 As String Var2 As Integer Dim Var1 Var As String Var1 Var2 Static Redim Public Private 2 Static Dim Static Dim Static 3 Public 4 Redim 3 DefType DefType DefType Def Type Def 83

Visual Basic - DefInt A-C A B C Type 3.1 3.1 Type Type Int Lng Sng Dbl Cur Str Byte Bool Date Obj Var As DefType DefInt A Dim AdminName$ AdminName. MyData Type MyData DataID As Integer DataName As String *10 84

3 Visual Basic DataTime As Date End Type LastData MyData Static LastData As MyData LastData.DataID LastData.DataName LastData.DataTime 3. Visual Basic 3. Dim Private Private Public Public Global Dim Private 3.2 3.2 Dim Static Dim Private Public Global Visual Basic 85

Visual Basic IDE Option Explicit 3.3.2 1 Dim sum As Integer sum% = 10 sum = 3.2 Print sum%; sum A 10 3.2 B 10 10 C 3.2 3.2 D 3 3 Dim sum sum % sum sum% sum sum 10 sum 3.2 VB 3 Print sum D 2 Dim Index# A Dim Index As Long B Dim Index As Integer C Dim Index As Single D Dim Index As Double As % &! # @ $ D 3 A Dim B Public 86

3 Visual Basic C Static D Const Visual Basic Const Dim Static Public D 4 Dim Str1,Str2 As String *10 Str1 1 Str2 2 Str1 Str2 Str2 10 Str1 Visual Basic Dim Str1 Str1 1 2 5 Visual Basic 3 1 2 3 4 1 2 3 4 3.3.3 1 a% = 2/3 b% = 32/9 Print a%; b% A 1 4 B 0 3 87

Visual Basic C 1 3 D 0 4 2 A B C D Const 3 Visual Basic A 127 B 255 C 511 D 1 023 4 Visual Basic A B C D 5 A Dim B Public C Static D Const 6 Visual Basic A B C D 7 A Dim B Public C Static D Private 8 A dim B zh_1 C a.b D 12b 9 Dim MyVar MyVar="Hello World!" Debug. Print MyVar A True B False C Hello World! D " Hello World!" 88

3 Visual Basic 10 Visual Basic A Add B AddItem C AddString D AddObject 1 1 2 3 2 3 4 1 2 5 1 2 3 6 Const Const 1 2 3.4 3.4.1 1. Visual Basic 3.3 3.3 Int(x) Fix(x) Hex$(x) Oct$(x) Asc(x$) x x$ ASCII 89

Visual Basic Chr$(x) x ASCII Val(x$) x Str$(x) x Cint(x) x Ccur(x) x 4 Cdbl(x) x Clng(x) x Csng(x) x Cvar(x) x 3.4 3.4 Sin(x) x x Cos(x) x x Tan(x) x x Atn(x) x Abs(x) x Sgn(x) x x 1 0 0 +1 Sqr(x) x Exp(x) e x 3.5 3.5 Day(Now) WeekDay(Now) Month(Now) Year(Now) Hour(Now) 0~23 Minute(Now) Second(Now) 90

3 Visual Basic Now Rnd(x) 0 1 Randomize(x) 3.6 3.6 Ltrim$( ) Rtrim$( ) Trim$( ) Left$(,n) Right$(,n) Mid$(,p,n) Len( ) Sting$(n,ASCII ) Space$(n) Ucase$( ) Lcase$( ) InStr([,] 1 2[,n]) Mid$( [ L])= Tab n n p n n p n ASCII ASCII n 1 2 2 1 0 1 n n=0 n=1 n=2 1 2 0 2 1 2 Null Null L L $ ANSI B StrConv ANSI Unicode = StrConv 91

Visual Basic 64 ANSI Unicode 128 Unicode ANSI 2. Visual Basic 1 ^ x^y + x+y x y * x*y / x/y \ x\y x Mod x Mod y 2 Visual Basic + & A$+B$ A$&B$ B$ A$ 3 = <> >< < 92

3 Visual Basic > <= >= Like Is a<x<b ASCII ASCII Like Is Like SQL Is 4 Not And Or Xor Eqv Imp 3.7 3.7 X Y Not X X And Y X Or Y X Xor Y X Eqv Y X Imp Y Not And Or Xor Eqv Imp 1 0 93

Visual Basic 1 0 2 147 483 648~+2 147 483 647 * [ ]{ } 3.4.2 1 Visual Basic 1 2 3 1 2 3 2 Visual Basic 1 2 ASCII 3 1 Str$(x) 2 Val(x$) 3 Asc(x$) 3 a1 = "123" a2 = "123a" a3 = "12a3" a4 = "a123" Print Val(a1); Val(a2); Val(a3); Val(a4) 1 Visual Basic Val 0 1 123 123 12 0 4 C ASCII 67 94

3 Visual Basic ascii = 67: c = "C" Print Tab(10); c For i = 1 To 2 c = Chr(ascii - i) + c + Chr(ascii + i) Print Tab(10 - i); c Next i A C B A BCB BAB ABCBA CBABC C C D C BCD DCB ABCDE EDCBA Chr() Tab() Chr() ASCII Tab() C ASCII 67 C ASCII 68 69 c ASCII ASCII (ascii i) (ascii+i) c c Tab(10 i) c C 5 x = Sqr(2) + Sgn(2)+ Rnd(2) *10 y = Sqr(3) + Sgn(3) + Rnd(3) *10 If x > y Then Print "x>y" ElseIf x = y Then Print "x=y" Else Print "x<y" End If 95

Visual Basic A x>y C x<y B x=y D If Then Else end If x Sqr() Sgn() Rnd(3) Sqr() x Sgn(x) x Rnd(x) 0 1 y x y If Then Else end If x>y x>y x=y x=y x<y x y x y D 6 x = "12.34": y = "56.78" z = x + y p = Val(z) Print p A 12.34 B 56.78 C 69.12 D 12.345 6 x y z=x+y z 12.3456.78 Val() z pval() 2 D 7 Dim a As Single a = -1.234567 b = Int(a) c = Sgn(a) d = Abs(a) e = Fix(a) If a < b Then Print b; If a < c Then Print c; 96

3 Visual Basic If a < d Then Print d; If a < e Then Print e; Print A 2 1 1.234 567 1 B 2 1.234 567 C 1 1.234 567 1 D 1 1.234 567 1 Int(x) Sgn(x) Abs(x) Fix (x) Int(x) x Fix(x) x Int(x) Fix(x) x Int(x) Fix(x) 1 Abs(x) Sgn(x) a 1.234 567 Int(a) Sgn(a) Abs(a) Fix (a)2 1 1.234 567 1 b c d e IF THEN a b a c a d a e b c d 1 1.234 567 1 C 8 Visual Basic x=8 A B C D Visual Basic = x=8 = x=8 x=8 = x=8 B 9 Visual Basic A x=x+y B x+y>z C x=(x=y) D D 10 Sin30 Visual Basic A Sin30 B Sin(30) C SIN(30 ) D Sin(30*3.14/180) Sin() D 11 S 4 97

Visual Basic A Right(S,4) C RightStr(S) B Left(S,4) D RightStr() Right Rigth(, n) n Left Left(, n) n S 4 Right(S,4) A 12 S 6 4 A Mid(S, 6, 4) B Mid (S, 4, 6) C MidStr(S, 6, 4) D MidStr(S, 4, 6) Mid() Mid(,p,n) p n n p Visual Basic MidStr() S 6 4 Mid(S,6,4) A 13 A Len() B Length() C StrLen() D StrLength() Len()Len( ) Visual Basic B C D A 14 S 4 A Left (S,4) B Left(1,4) C LeftStr (S) D LeftStr (S,4) Left() Left(, n) n Visual Basic LeftStr() A 15 4 + 5 \ 6 * 7 Mod 8 / 9 A 4 B 5 C 6 D 7 98

3 Visual Basic ^ * / \ Mod +& A 3.4.3 1 For i = 1 To 4 x = 1 For j = 1 To 3 x = 2 For k = 1 To 2 x = x + 6 Next k Next j Next i Print x A 2 B 7 C 14 D 37 2 x = 0 Do Until x = -1 a = InputBox(" A ") a = Val(a) x = InputBox(" X ") x = Val(x) a = a * x Loop Print a 99

Visual Basic 12 10 15 1 A 120 C 15 3 x x + B 15 D 120 y + sin 2x Visual Basic y A SQR(x+y)/(x y)+sin(x*2) B SQR(x+y)/(x y)+sin(2x) C SQR((x+y)/(x y))+sin(x*2) D SQR((x+y)/(x y))+sin(2x) 4 a = 1234 b$ = Str(a) c = Len(b$) Print c A 4 B 5 C 6 D 7 5 a = 1.2 b = 345 c = Len(Str$(a) + Str$(b)) Text1.Text = c A 3 B 4 C 6 D 8 6 a = Text1.Text b = Text2.Text c = LCase(a) d = UCase(b) 100

3 Visual Basic Print c; d ABCD efgh A abcdefgh B abcddfgh C ABCDefgh D ABCDEFGH 7 a$ = "123" b$ = "456" c = Val(a) + Val(b) Print c A 123 B 456 C 123 456 D 579 8 0 A Int(5.4) + Int( 5.8) B CInt(5.4) + CInt( 5.8) C Fix(5.4) + Fix( 5.8) D Exp(5.4) + Exp( 5.8) 9 a$ = Text1.Text s$ = "" For k = 1 To Len(a$) s$ = UCase$(Mid$(a$, k, 1)) + s$ Next k fns$ = s$ Text1.Text = s$ A B C D 10 Fix(12) + Fix( 12.8) A 0 B 1 C 1 D True 101

Visual Basic 11 Fix( 45.6) + Int(12.3) A 33 B 33 C 34 D 57 12 a = "aaaaaa" b = Mid(a, 2, 4) Mid(a, 2, 4) = "AAA" Print a, b A aaaa aaaaaa B aaaaa aaaa C aaaaaa aaaa D aaaa aaaa 13 ^ / Mod * A ^ B / C Mod D * 14 Not Xor Or And A Not B Xor C Or D And 15 A B C D 16 Visual Basic A x=sgn(0) B x=sqr(0) C x=log(0) D x=sin(0) 17 a=8 <CR> b=9 <CR print a<b <CR> A 1 C False 18 Int(Rnd(0)*10) A 0,10 B 0 D True B 0,1 102

3 Visual Basic C 1,10 D 1,2 19 x 200 A x < 200 B x < 0 AND x > = 200 C x < 200 AND x > = 0 D 200 > x > = 0 206 <> 4 Or Not 2 * 5 A 0 B 1 C true D false 1 a$ = "1223458764" d$ = Left$(a$, 1) For I = 2 To Len(a$) z$ = Mid$(a$, I, 1) If z$ > d$ Then d$ = z$ Next I Print d$ 2 Int( Sqr(6.4)) 3 7 ^ 2 Mod 5 ^ 2 / 3 4 1/2 2x 3 +ln x 1 Visual Basic 5 (30 Mod 5 * 7 + 8) \ 12 + ll * (5 * 5 \ 12 / 2 ^ 2 + 3) 6 (Fix(32.4) + Int( 32.4) + Sgn(32.4)) 7 a$ = "Good morning!" b$ = "Even" c$ = Left$(a$, 5) + LCase$(b$) + Right$(a$, 4) Print c$ 103

Visual Basic 8 x Visual Basic 9 a B X 7 ASCII 10 2(1+ln3x) Visual Basic 11xyz + 123 + Abc 12 10 > (12 3) / 3 Or Not 6 <> 5 3 * 7 13 a$ = "12.3" b = "45.6" c = Val(a$) + Val(b) Print c 14 (a b)/(1+x*x Exp(x)) 15 a = 1.23 b$ = "1.23" c = Len(Str$(a) + b) Text1.Text = c 3.5 3.5.1 1. Visual Basic 1023 _ 104

3 Visual Basic Visual Basic 2 < > [ ] { }, 3 Visual Basic 3 1 [Let] = Let = 2 105

Visual Basic Rem ' _ 3 Stop Stop 4 End End End End End End Function End If If End Type End Select 4 If If Then 1 [Else 2] 1 2 1 2 Visual Basic 1 2 If If Then Else If Then Else Else If Then 106

3 Visual Basic 1 023 If 1 Then 1 [ElseIf 2 Then 2] [ElseIf 3 Then 3] [Else n] End If 1 1 1 2 2 1 2 3 3 ElseIf n 0 0 Then Visual Basic Then EndIf ElseIf ElseIf Visual Basic IIf IIf IIf(< > < 1> < 2>) IIf 1 IIf 2 IIf 107

Visual Basic 1 2 5 Visual Basic Select Case Select Case Case Select Case Case 1 1 [Case 2 [ 2]] [Case Else [ n]] End Select Select Case Else Select Case [ ] Case 1 2 5 To Case 1 To 5 Is Case Is=5 Case Is>10 And Is<20 Select Case Case Case Else Case Case Case 6 For Visual Basic 3 For Do 108

3 Visual Basic For For = To [Step ] [ ] [If Then Exit For] Next [ ][] Visual Basic Exit For Next For For Int / +1 For For For i = 1 To 5 For j = 1 To 10 Print i Next i Print j Next j For Next Next For Next Next 109

Visual Basic Exit For Exit For 7 While [ ] Wend While Wend Wend While 8 Do Do 1 Do [ ] [If Then Exit Do] Loop [While Until ] 2 Do [While Until ] [ ] [If Then Exit Do] Loop 110

3 Visual Basic Do Loop While Until Exit Do For Exit For While Until Do 1 Do While Until Do 2 While Until Do For 9 For i = 1 to 10 step 2 Text2.Text = i Next Do Counter = Counter +1 For i = 1 to Counter step 2 Text2.Text = i Next Loop Until Counter>100 111

Visual Basic Do Counter = Counter +1 For i = 1 to Counter step 2 Text2.Text = i While i<10 Print Counter Wend Next Loop Until Counter>100 Visual Basic Exit Exit For Exit Do 10 GoTo GoTo GoTo On-GoTo GoTo GoTo GoTo { } GoTo GoTo On-GoTo On GoTo On Counter+Number GoTo 200 50 100 Counter+Number 1 200 2 50 3 100 1 On-GoTo 112

3 Visual Basic GoTo Visual Basic GoTo GoTo On-GoTo 3.5.2 1 1 2 3 1 2 2 Visual Basic A B C D_ Visual Basic 1023 _ C 3 Visual Basic A For B Select Case C While D Do Visual Basic 3 For While Do For While Do Visual Basic Select Case B 4 Name Text1 Tex12 Name Command1 x = 1:n=0 Do While x < 100 x = x * 10 n = n + 1 Loop 113

Visual Basic Text1.Text = Str(n) Text2.Text = Str(x) A 10 0 B 2 100 C 3 50 D 4 168 Do While Loop While x < 100 x < 100 Do While x=10 n=1 Do While x=100 n=2 Str Text1.Text = Str(n) n Text1 B 5 x = 0 Do Until c = -1 a = InputBox(" A ") a = Val(a) b = InputBox(" B ") b = Val(b) c = InputBox(" C ") c = Val(c) a = a + b + c Loop Print a 5 4 3 2 1 1 A 2 B 3 C 14 D 15 Do Until Loop Until c = 1 c = 1 Do Until InputBox 114

3 Visual Basic 3 5 4 3 Val 3 12 a c = 1 2 1 1 a 2c = 1 A 6 For i = 1 To 2 For j = 1 To i For k = j To 6 a = a + 1 Next k Next j Next i Print a a A 6 C 17 B 14 D 32 For i = 1 To 2 j = 1 To ii = 1 i = 2 k = j To 6 j = 1 j = 2 1 i=1,j=1 k 6 a 6 2 i=2,j=1 k 6 a 12 3 i=2,j=2 k 5 a 17 C 7 Dim i For i = 1 To 10 Step 2 i = i + 1 Print i; Next i 115

Visual Basic A 2 4 6 8 10 12 B 1 3 5 7 9 11 C 2 5 8 D 2 5 8 11 For i Step 2 2 Print Print D 8 For Next A Exit B Exit For C Continue D Stop Loop For Next Exit For B 3.5.3 1 A Do While (condition) B Do Statements Statements Loop Loop While(condition) C Do Until(condition) D Do Until(condition) Statements Statements Loop End Do 2 Visual Basic A For Next B For Each Next C With End With D Do Loop 3 Click Cls Print For n = 1 To 6 Print Spc(1); "*"; Next n 116

3 Visual Basic Print A ****** B * * * * * * C * ** ** * D ** ** ** 4 WHILE A B C D 5 Do Until Loop A B C D 6 Private Sub form_click() Static sum As Integer i = 1 While i <= 10 sum = sum + i i = i + 1 Wend Print sum A 45 45 B 45 90 C 55 55 D 55 110 7 a = 0 For m = 1 To 10 a = a + 1 b = 0 For j = 1 To 10 117

Visual Basic a = a + 1 b = b + 2 Next j Next m Print a; b A 10 20 B 20 110 C 110 20 D 200 110 8 Visual Basic A GoTo B While Wend C For Next D On GoTo 9 a = 1 b = 1 For i = 1 To 3 a = a + b b = b + a Next i Print a; b A 2 3 B 5 8 C 13 21 D 34 55 10 A If a=3 And b=2 Then B If a=3 Then c=3 c=3 Else if a=2 Then c=2 End If C If a=3 Then D If a=3 Then c=3 c=2 ElseIf a=2 Then c=3 End If 11 118

3 Visual Basic a = 0 For i = 1 To 6 b = 0 For j = 1 To i a = a + 1 b = b + 2 Next j Next i Print a; b A 12 12 B 12 21 C 21 12 D 21 21 12 Dim a(3, 4) Static n As Integer For i = 1 To 3 For j = 1 To 4 n = n + 1 a(i, j) = n Next j Next i For i = 1 To 3 For j = 1 To 4 Print Tab(4 * j); a(i, j); Next j Print Next i A 1 2 3 4 B 13 14 15 16 5 6 7 8 17 18 19 20 9 10 11 12 21 22 23 24 C 1 2 3 4 D 1 2 3 4 5 6 7 8 5 6 7 8 9 10 11 12 9 10 11 12 119

Visual Basic 13 14 15 16 1 2 3 4 17 18 19 20 5 6 7 8 21 22 23 24 9 10 11 12 13 a = Text1.Text If a Mod 2 = 0 Then MsgBox " " Else MsgBox " " End If 23 A B C D 14 Function fact(n) s = 0 For k = 1 To n s = s + (k + 1) * k Next k fact = s End Function A N B 1 2 2 3 3 N N C 1 2 2 3 3 4 N 1 N D 1 2 3 N 15 Dim i, MyNum Do For i = 1 To 1000 MyNum = Int(Rnd * 1000) 120

3 Visual Basic Select Case MyNum Case 7: Exit For Case 29: Exit Do Case 54: Exit Sub End Select Next i Loop A 7 B DO 1 000 C 1 000 D 54 16 x = InputBox(x) If x Mod 3 = 0 Then y = x Mod 3 If x Mod 3 = 1 Then y = x Mod 3 If x Mod 3 = 2 Then y = x Mod 3 Print y 23 A 0 B 1 C 2 D 17 Sub ABC() Dim Number, MyString Number = InputBox(n) If Number = 1 Then GoTo L1 Else GoTo L2 L1: MyString = "Number = 1" Print MyString GoTo L3 L2: MyString = "Number < > 1" Print MyString L3: Print MyString 121

Visual Basic Call ABC InputBox 35 A Number 1 B Number <> 1 Number 1 Number <> 1 C Number 1 D Number <> 1 Number <> 1 Number 1 18 For j = 8 To 35 Step 3 Print j; Next j A 10 B 9 C 27 D 28 19 For i = 1 To 6 a = a + i Next i Print a A 10 C 21 20 B 15 D 28 s = 0 i = 1 While i <= 100 s = s + 1 122

3 Visual Basic Wend Print s A 125 C 21 B 512 D 100 a = 100 Do s = s + a a = a + 1 Loop While s < 120 Print a A 100 B 120 C 201 D 102 22 Name Text1 Private Sub Form_Load() Text1.Text = "" For i = 1 To 100 Sum = Sum + i Next i Text1.Text = Sum A Text1 5 050 B Text1 0 C Text1 D 23 Name Text1 Tex12 Name Command1 x = 1 Do While x < 50 123

Visual Basic x = x * 5 n = n + 1 Loop Text1.Text = Str(n) Text2.Text = Str(x) A 1 5 B 2 25 C 3 125 D 4 125 24 X 5 ABCDEF SELECT CASE A Select Case X B Select Case X Case 10 To 1 Case Is >15,Is<5 Print "ABCDEF" Case "ABCDEF" End Select End Select C Select Case X D Select Case X Case Is > 5, 1,3 To 10 Case 1,3,Is>5 Print "ABCDEF" Print "ABCDEF" End Select End Select 25 a$ = "*": b$ = "$" + a$ For k = 1 To 3 x$ = String$(Len(a$) + k, b$) Next k Print b$; x$ A $*$$$$ C $*$*$* 26 3 B *$*$*$ D $$$$*$ If x=1 Then y=4 If x=2 Then y=5 If x=3 Then y=6 A If x=1 Then B If x=1 Then 124

3 Visual Basic y=4 y=4 ElseIf x =2 Then ElseIf x =2 Then y=5 y=5 Else: y =6 Else y=6 End If End If C If x=1 Then D If x=1 Then y=4 y=4 ElseIf x =2 Then =5 ElseIf x =2 Then End If y=6 End If 1 c = 1 Do Until c = 10 c = c - 1 Loop Print c 2 x = "A": y = "B": z = "C" For i = 1 To 2 x = y: y = z: z = x Next i Text1.Text = x + y + z 3 For i = 1 To 2 For j = 1 To i For k = j To 6 125

Visual Basic m = m + 1 Next k Next j Next i Print m 4 x = -1 While x < 5 x = x + 1: x = x * x Wend Print x 5 For a = 1 To 5 For b = 1 To 10 y = b For c = 1 To 6 x = x + 1 y = y + 1 Next c Next b Next a Text1.Text = y 6 x = 10: i = 1 z = Int(Rnd(Y) + 2) On z GoTo 10, 20, 30 i = i + 1 126

3 Visual Basic 10: i = i + 10 20: i = i + 20 30: i = i + 30 Print i 7 Sum = 1 For x = 1 To 10 Step 0.4 Sum = Sum + 1 Next x Print Sum Sum 86 + 9 / 3 * 5 Mod (2 / 3) 9 1~6 10 "This"+" is "+"a book." 11 Fix( 123.45) + Int(98.765) 3.6 3.6.1 1 Visual Basic S(n) S n S(1) S 1 m m S(n 1,n 2,,n m ) Visual Basic 127

Visual Basic 2 1 Visual Basic 4 4 4 Dim ReDim Static Public 1 Dim As Dim 1 2 As Dim test(5) As Integer test 6 0~5 Variant 0 Visual Basic 0 0 1 Option Base Option Base 1 1 Option Base 0 0 Option Base Option Base 0 1 2 Dim [ To] [ [ To] ] Dim title( 5 To 3) title 5~3 32 768 32 767 0 128

3 Visual Basic Option Base Lbound [ ] Rbound [ ] Dim Public ReDim Dim test() As Integer ' Dim size Sub Form_Click() Size=InputBox("Enter value:"," data","12") Redim test(size) ' ReDim ReDim [Preserve] As ReDim Preserve ReDim ReDim ReDim 8 ReDim 60 ReDim 2 Erase Erase Erase Erase 0 129

Visual Basic 0 Empty Nothing Erase Redim 3 x(1)=100 For Print Print x(1) 4 For Each Next For Each Next For Each In [Exit For] Next[ ] For Next 130

3 Visual Basic For Each Next For Each Next Exit For 5 Visual Basic Array Array Dim As Variant =Array( ) Array 0 Option Base Dim Days As Variant Days = Array(1 2 3 4 5 6 7) Days(0) Days(6) 1 7 Dim Days(6) As Integer Days(0) = 1 Days(1) = 2 Days(2) = 3 Days(3) = 4 Days(4) = 5 Days(5) = 6 Days(6) = 7 3 131

Visual Basic Option1(1) Option1 1 1 1 2 2 0 1 Index Index 0 3.6.2 1 Visual Basic 4 4 1 2 3 4 1 Dim 2 Public 3 ReDim 4 Static 2 132

3 Visual Basic 1 2 3 1 Variant 2 0 3 3 Visual Basic 1 2 1 Visual Basic 0 0 1 Option Base Option Base 1 1 Option Base 0 0 1 0 2 Option Base 4 Visual Basic Erase 1 2 Visual Basic Erase Redim 1 2 5 2 1 1 2 6 A32 768~32 767 B C Option Base 0 D 32 768~32 767 0 Option Base D 133

Visual Basic 7 A For Each Next B For Next C While Wend D Do Loop For Each Next A 8 Dim A( 3 To 5) as Integer A 6 B 7 C 8 D 9 3~5 9 0 D 9 Dim score(1 To 15)As Double A 16 B 15 C 16 D 15 1~15 15 0 D 10 Static Ar(9,9) As Integer A 9 B 18 C 81 D 100 Array(0, 0) Array(9, 9) 100 D 11 Option Base 1 Dim a a = Array(1, 2, 3, 4) j = 1 For i = 3 To 0 Step -1 s = s + a(i) * j j = j * 10 134

3 Visual Basic Next i Print s A 12 B 123 C 1234 D For 1 i = 3 To 0 a(i) a(3) a(2) a(1) a(0) Option Base 1 1 For a(i) D 3.6.3 1 Dim a(10), b(10) For j = 0 To 10 a(j) = j + 5 b(j) = a(j)/4 Next j Text1.Text = b(j\2) A 2.5 B 5 C 4.5 D 5.5 2 Option Base 1 Dim a1(10), a2(4) As Integer m = 0 For i = 1 To 10 135

Visual Basic a1(i) = i Next i For i = 1 To 4 a2(i) = a1(i * 2) Next i For i = 1 To 4 m = m + a2(i) Next i Print m A 16 B 20 C 25 D 30 3 A ReDim Preserve A(10,Ubound(A,2)+1) B ReDim Preserve A(Ubound(A,1)+1,10) C ReDim Preserve A(Ubound(A)+1) D ReDim A((UBound)(A)+1) 4 Dim a(10) For j = 0 To 10 a(j) = j 5 Next j Text1.Text = a(a(6)/a(10)) A 5 B 1.6 C 0 D 5 Dim a(50) For j = 0 To 10 j = j * j a(j) = j Next j Text1.Text = a(25) 136

3 Visual Basic A 5 B 25 C 45 D 55 6 Dim a(10) For i = 1 To 10 a(i) = i ^ 2 Next i Print a(i 2) A 64 B 81 C 99 D 100 7 Dim a(4, 4), b(4, 4) For i = 1 To 4 For j = 1 To 4 a(i, j) = i + j b(i, j) = a(i, j) + i + j Next j Next i For i = 1 To 4 For j = 1 To 4 Print Tab(4 * j); a(i, j) + b(i, j); Next j Print Next i A 3 9 12 15 B 6 9 12 15 6 9 12 15 9 12 15 18 9 9 12 15 12 15 18 21 9 12 15 18 15 18 21 24 137

Visual Basic C 3 6 12 15 D 6 9 12 15 3 6 12 15 12 15 18 21 3 12 15 18 12 18 21 24 3 15 18 24 12 15 18 24 8 Dim n, s n = 1 If n > 1 Then GoTo l1 Else GoTo l2 l1: s = "n 1" GoTo l3 l2: s = "n 1" l3: MsgBox s An 1 Bn 1 C 1 D 9 Dim n, a n = 66 If n < 10 Then a = 1 ElseIf n < 100 Then a = 2 Else a = 3 End If MsgBox a 138

3 Visual Basic A 1 B 2 C 3 D 0 10 Dim c, a(20) c = 0 While c < 20 c = c + 1 a(c) = c Wend MsgBox a(10) A 10 C 20 11 B 11 D 9 Private Sub Form_KeyPress(KeyAscii As Integer) a = Array(25, 320, 125, 12, 215, 47) c = a(0) t = 1 If KeyAscii = 13 Then For i = 1 To 5 If a(i) > c Then c = a(i) t = i End If Next i End If Print c Print t A 12 B 320 C 25 D 47 3 1 0 5 12 139

Visual Basic AWeek = Array("Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat") today = AWeek(2) today = AWeek(6) MsgBox today A Sun B Tue C Sat D Thu 13 A For Next B For Each Next C While Wend D Do Loop 14 Dim A( 1 To 10) as Integer A 9 B 10 C 11 D 12 15 x = 10 Dim a(x) For m = 1 To 6 a(m) = m + 1 Next A a(m) B C m D 1 Dim A(11 to 30) 2 s = 1 For m = 1 To 3 140

3 Visual Basic If m <= 1 Then a = 1 ElseIf m <= 2 Then a = 2 ElseIf m <= 3 Then a = 3 Else a = 4 End If Print a Sum = Sum + a Next m Print Sum; 3 Score = Int(Rnd) + 5 Select Case Score Case 5 a$ = "Good" Case 4 a$ = "OK" Case 3 a$ = "Pass" Case Else a$ = "Bad" End Select MsgBox a$ 4 k = 0 Do While k < 10 k = k + 2 a = a + k * k / 50 141

Visual Basic Loop MsgBox a 5 x = 6 If x > 6 Then Print "x > 6" Else If x < 8 Then Print "x < 8" Else If x = 6 Then Print "x = 6" End If End If End If 3.7 Visual Basic Visual Basic Visual Basic 1 Visual Basic 2 Visual Basic 3 Visual Basic 3 4 Visual Basic Visual Basic Windows.EXE 5 Decimal 142

3 Visual Basic Decimal Decimal 6 ASCII 65535 7 Visual Basic DefType 8 Visual Basic 3 9 Visual Basic 10 Visual Basic 11 Visual Basic 1023 _ 12 3 If Select Case Visual Basic 3 For Do GoTo GoTo On-GoTo 13 143

Visual Basic Visual Basic 14 4 Dim ReDim Static Public 15Erase Erase 16 17 For Each Next 18 Visual Basic Array Array 19 Index 3.8 1 Dim Index& A Dim Index As Long B Dim Index As Integer C Dim Index As Single D Dim Index As Double 2 Type Student no As Integer name As String * 13 144

3 Visual Basic brith As Date score As Integer End Type Dim stu1 As Student A B C D 3 A Dim B Global C Static D Private 4 a=6 x=iif(a>5, 1,0) x A 5 B 6 C 0 D 1 5 x x = 0 For i = 1 To 20 Step 2 x = x + i \ 5 Next i Print x A 16 B 17 C 18 D 19 6 For i = 1 To 4 x = 4 For j = 1 To 3 x = 3 For k = 1 To 2 x = x + 6 Next k Next j Next i Print x 145

Visual Basic A 7 B 15 C 157 D 538 7 A My Documents B Visual Basic98 C \ D Windows 8 S 2 3 A Mid(S, 3, 2) B Mid (S, 2, 3) C MidStr(S, 3, 2) D MidStr(S, 2, 3) 9 Visual Basic A B C D 10 Tan 30 Visual Basic A Tan30 B Tan (30) C Tan (30 ) D Tan (30*3.14/180) 11 For i = 1 To 4 Print Tab(2 * i); 11 * i Next i A 11 B 11 22 22 33 33 44 44 C 11 22 33 44 D 11 223 344 12 a = 4 b = 3 Print b > a A 1 B 0 146

3 Visual Basic C True D False 13 Visual Basic A Abcd B m1234 C 5554tre D x_ y 14 S 6 A Right(S,6) B Left(S,6) C RightStr(S) D Left Str(S) 15 a = 12345678.9 b$ = "12345678.9" c$ = Str(a) b2 = Len(b$) c2 = Len(c$) Print b2, c2 A 10 10 B 10 11 C 9 10 D 9 9 16 a = 123 b = 456 c = Str(a) + Str(b) Print c A 123 B 123 456 C 123 456 D 579 17 x = 5 Do Until x = -1 a = InputBox(" A ") b = InputBox(" B ") 147

Visual Basic If a > b Then x = -1 Loop Print Val(a + b) 3 2 45 15 A 5 B 60 C 32 D 4 515 18 Dim a(5) For m = 1 To 6 a(m) = m + 1 Next A a(m) B C m D 19 Dim a(10), b(10) For j = 0 To 10 a(j) = 3 * j b(j) = a(j) * 3 Next j Text1.Text = b(j / 2-0.1) A 25 B 50 C 45 D 55 20 148 Dim n, s

3 Visual Basic n = InputBox("Input n:") If n > 1 Then GoTo l1 Else GoTo l2 l1: s = "n 1" GoTo l3 l2: s = "n 1" l3: MsgBox s 12 A n 1 B n 1 C 12 D 21 Dim a! A Dim a As Single B Dim a As Double C Dim a As Long D Dim a As Integer 22 A B C Type Public Private D Type Public 1 Dim i As Integer, m As Integer For m = 11 To 19 Step 2 For i = 2 To Int(Sqr(m)) If (m Mod i) = 0 Then GoTo LP Next i Print m; LP: Next m 2 100 200 149

Visual Basic Dim i As Integer, m As Integer For m = 101 To 199 Step 2 For i = 2 To m - 1 If (m Mod i) = 0 Then 1 Next 2 Print m Lp: Next 3 3 1 2 3 4 Visual Basic 1.Print 2 5 Visual Basic 1 2 6 Visual Basic Stop End 1 2 7 Visual Basic 1 2 3 8 Visual Basic ASCII 1 2 3 150

4 1 2 3 4.1 4.1.1 1. Print Print Print Print BASIC Print [ < >. ] Print [ ][, ; ] Form Debug PictureBox Printer [, ; ] 14 Print Print Print Print

Visual Basic 2. Print Visual Basic Print 1 Tab Tab( n ) Tab n Tab n n n n 1 Tab 2 Spc Spc( n ) Spc n 0~32 767 Spc 3 Space$ Space$( n ) Space$ n 3. (Format$) Format$ Format$ (, [ ] ) 1 ## 2 0 # 0 3. 4 5 % 6 $ 7 8 E E E 152

4 4. Visual Basic 1 FontName FontName [ = " " ] 2 FontSize FontSize [ = ] 3 FontBold FontBold [ = Boolean ] Boolean True False 4 FontItalic FontItalic [ = Boolean ] Boolean True False 5 FontUnderline FontUnderline [ = Boolean ] Boolean True False 6 FontStrikethru FontStrikethru [ = Boolean ] Boolean True False 5. Visual Basic Print Printer Printer.Print [ ] 6. PrintForm [.]PrintForm 4.1.2 1 153