untitled

Transcription

1 Visual Basic

2 Visual Basic 7 Visual Basic Visual Basic CIP Visual Basic/ ISBN BASIC. TP CIP ISBN /TP

3

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

5 Visual Basic Fortran IV

6 DOS Windows OS/2 Macintosh Unix Linux PC 12 CD-ROM ( th_press@263.net) Visual Basic / %

7 Visual Basic

8 1 Visual Basic Visual Basic Visual Basic

9 Visual Basic Visual Basic Visual Basic VIII

10 Sub Function Visual Basic IX

11 Visual Basic A B X

12 C D E F XI

13 1 Visual Basic 1 Visual Basic 2 Visual Basic Visual Basic Visual Basic Microsoft MS-Windows BASIC BASIC Windows API DLL DDEOLE ODBC Visual Basic 1.0 Microsoft DOS MS-Windows 3.x MS-Windows 9x/NT/ Microsoft Visual Basic Visual Basic Visual Basic 6.0 Microsoft Microsoft Visual Studio Visual Basic Windows Tab ActiveX Internet Crystal Report Writer

14 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

15 1 Visual Basic Visual Basic 1 2 Visual Basic Visual Basic 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

16 Visual Basic D 5 4 A B C D D 6 GUI A C B D GUI Graphical User Interface B 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

17 1 Visual Basic Visual Basic IDE Visual Basic Alt+Q Windows 5

18 Visual Basic Visual Basic SDI Visual Basic MDI SDI Multiple Document Interface MDI MDI 2 Visual Basic Visual Basic A Alt+Q B Del C Ctrl+Q D Ctrl+P Del Ctrl+P Ctrl+Q Alt+Q Visual Basic A Visual Basic

19 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

20 Visual Basic 6 Esc Alt 2. Visual Basic / twip 1 inch=1440 twip Microsft Visual Basic 8

21 1 Visual Basic 1 2 Visual Basic Visual Basic Standard EXE Visual Basic Visual Basic 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

22 Visual Basic Visual Basic Form / Name 1.vbp 2.vbg 3.frm 10

23 1 Visual Basic 4.bas 5.cls 6.res

24 Visual Basic Visual Basic 1 2 Visual Basic Visual Basic Visual Basic 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

25 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 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

26 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

27 1 Visual Basic 2 Visual Basic Visual Basic 6.0 ActiveX 5 Visual Basic 6 Visual Basic 7 Visual Basic Microsft Visual Basic 9 Visual Basic

28 2 Visual Basic Visual Basic Visual Basic Visual Basic F4 4 5 <Ctrl+PgDn> <Ctrl+PgUp>

29 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

30 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 Click DbClick Load UnLoad Activate Deactivate 18

31 2 Visual Basic Paint AutoRedraw True( 1) 3. Visual Basic 3 ActiveX OLE ActiveX Name Form1 Text1 Command Ctrl

32 Visual Basic

33 2 Visual Basic Width Height Top Left twip Top Left Visual Basic Del 2 1 Shift 8 Shift

34 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 Visual Basic 1 2 Visual Basic 22

35 2 Visual Basic Visual Basic Visual Basic ActiveX 3 ActiveX 1 ActiveX 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

36 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

37 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 Option Base 1 1 KeyAscii = 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

38 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

39 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 B C D 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

40 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 Visual Basic Dim Msg As Integer Form1. 1 MsgBox "Form1 " Form

41 2 Visual Basic Caption Name Font Height Width Left Top Visible Enabled Alignment AutoSize True BorderStyle 0 1 BackStyle 0 1 WordWrap AutoSize True WordWrap True WordWrap False 29

42 Visual Basic Click DbClick 2 MaxLength MultiLine False True PasswordChar * ScrollBars MultiLine True ScrollBars Text SelText SelLength SelStart 0 1 Locked True Click DbClick Change GotFocus LostFocus SetFocus Change Text GotFocus LostFocus SetFocus

43 2 Visual Basic Print 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

44 Visual Basic Picture Picture 2 Windows.Picture=LoadPicture(" ") Name Visible Height Width Top Left BorderColor BorderStyle 0~ ~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

45 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 ~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

46 Visual Basic 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

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

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

49 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

50 Visual Basic Style Style=0 Style=1 Style= Text Text Text Click DropDown Change Click DbClick Change Click DropDown AddItem RemoveItem Clear

51 2 Visual Basic Min Max Min Max Min Max Min Max Value Min Max SmallChange Value LargeChange Value Scroll Change Scroll Value Change

52 Visual Basic Visual Basic Enable True True False Interval 1/ Interval Timer Timer Enable False

53 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

54 Visual Basic Visual Basic Print 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

55 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 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

56 Visual Basic Text1.Text = "" Text2.Text = "" Text1 Text A 579 B C D Form_Load Command1_Click Text Text1.Text+Text2.Text 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

57 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) a Print a 56 C 12 False A Enabled B Timer C Visible D Interval TimerEnable True Interval Interval 45

58 Visual Basic Timer Timer Visible A 13 picturefile.jpg Picture1 LoadPicture LoadPicture Picture1 Picture Picture1. Picture = LoadPrcture("picturefile.jpg") 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

59 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

60 Visual Basic InputBox A B 1234 C 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 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

61 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 A 456 B C D Name Combo1 Private Sub Form_Load() Combo1.Text = "1" For I = 1 To 10 Sum = Sum + I 49

62 Visual Basic Next I Combo1.Text = Sum A B Combo1 55 C Combo1 1 D Combo1 1 1 Visual Basic Visual Basic 3 Visual Basic Value Visual Basic 5 Timer1 Timer Timer1.lnterval= 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

63 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 ListBox Visual Basic 2 1. Visual Basic 6 Visual Basic Ctrl+E 51

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

65 2 Visual Basic 3-Right

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

67 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

68 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 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

69 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 Visual Basic Visual Basic 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

70 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 Visual Basic Visual Basic 5 Visual Basic 6 Visual Basic 7 Visual Basic 58

71 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 SetFocusGetFocus LostFocus 10 Tab Tab Tab 11 Visual Basic Visual Basic BorderStyle 59

72 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

73 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 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

74 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 Form 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

75 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 $ 23 Visual Basic A B C D 1 Visual Basic ActiveX 3 1 ActiveX Name 3 Visual Basic 4 Visual Basic Visual Basic Text 6 Save v 63

76 3 Visual Basic 1 Visual Basic Visual Basic Visual Basic Visual Basic Visual Basic 4 Visual Basic 4.frm.bas.cls

77 3 Visual Basic.vbp 5 Visual Basic.exe 2. Visual Basic F

78 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 Visual Basic Visual Basic 4.frm 66

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

80 Visual Basic ' Print b;a Print a; b A B C D 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

81 3 Visual Basic 2 C 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

82 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= Visual Basic REM 3 Visual Basic Visual Basic 1 2 Visual Basic Visual Basic Integer Long

83 3 Visual Basic Float E e e e e 45 Double d e d d d d String ASCII Visual Basic ASCII 0 Visual Basic Currency Variant Visual Basic 5Byte 8 0~255 6Boolean 7Date :00:00 23:59:59 mm/dd/yy hh:mm:ss # 8Object 4 71

84 Visual Basic 9 Decimal Decimal Decimal 0 +/ / 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

85 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 Long Visual Basic workday = Days.Saturday 1 Enum Public Private Visual Basic ASCII 73

86 Visual Basic ASCII Visual Basic ASCII 0 Visual Basic 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

87 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 =[] Sunday 0 1 Saturday 6 B

88 Visual Basic Dim b As Single b = 2# / 3 Print b A B 1 C 0 D Dim x As Single x = Print x A 5.5E 7 B 5.5E 07 C D 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

89 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

90 Visual Basic Dim c As Long c = 1111 c& = 6666 Print c; c& A B C D 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 = " " End With Print MyHome.Phone A B C D Type Person no As Integer name As String * 13 brith As Date salary As Single End Type Dim zhao As Person 78

91 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 Visual Basic A Double B Variant C Integer D Default 1 Integer 2 Long 3 Visual Basic 89% Enum Test num = 0 ab = 5 79

92 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

93 3 Visual Basic ASCII &H &H1a &H0 &HFFFF &O &O37 &O0 &O &H & &H1a2b& &H0& &HFFFFFFFF& &O & &O3745& &O0& &O & E =1230 E E D % &! # 81

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

95 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

96 Visual Basic - DefInt A-C A B C Type 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

97 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 Dim Static Dim Private Public Global Visual Basic 85

98 Visual Basic IDE Option Explicit Dim sum As Integer sum% = 10 sum = 3.2 Print sum%; sum A B C 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

99 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 Str Visual Basic a% = 2/3 b% = 32/9 Print a%; b% A 1 4 B

100 Visual Basic C 1 3 D A B C D Const 3 Visual Basic A 127 B 255 C 511 D 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

101 3 Visual Basic 10 Visual Basic A Add B AddItem C AddString D AddObject Const Const Visual Basic Int(x) Fix(x) Hex$(x) Oct$(x) Asc(x$) x x$ ASCII 89

102 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 Sin(x) x x Cos(x) x x Tan(x) x x Atn(x) x Abs(x) x Sgn(x) x x Sqr(x) x Exp(x) e x Day(Now) WeekDay(Now) Month(Now) Year(Now) Hour(Now) 0~23 Minute(Now) Second(Now) 90

103 3 Visual Basic Now Rnd(x) 0 1 Randomize(x) 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 n n=0 n=1 n= Null Null L L $ ANSI B StrConv ANSI Unicode = StrConv 91

104 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

105 3 Visual Basic > <= >= Like Is a<x<b ASCII ASCII Like Is Like SQL Is 4 Not And Or Xor Eqv Imp 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

106 Visual Basic ~ * [ ]{ } Visual Basic 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 C ASCII 67 94

107 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 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

108 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 B C D x y z=x+y z Val() z pval() 2 D 7 Dim a As Single a = 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

109 3 Visual Basic If a < d Then Print d; If a < e Then Print e; Print A B C D 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 Int(a) Sgn(a) Abs(a) Fix (a) b c d e IF THEN a b a c a d a e b c d 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

110 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 \ 6 * 7 Mod 8 / 9 A 4 B 5 C 6 D 7 98

111 3 Visual Basic ^ * / \ Mod +& A 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

112 Visual Basic 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

113 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 D 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

114 Visual Basic 11 Fix( 45.6) + Int(12.3) A 33 B 33 C 34 D 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

115 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 > = <> 4 Or Not 2 * 5 A 0 B 1 C true D false 1 a$ = " " 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

116 Visual Basic 8 x Visual Basic 9 a B X 7 ASCII 10 2(1+ln3x) Visual Basic 11xyz Abc > (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 Visual Basic 1023 _ 104

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

118 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] Visual Basic 1 2 If If Then Else If Then Else Else If Then 106

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

120 Visual Basic 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 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

121 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

122 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

123 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>

124 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 Counter+Number On-GoTo 112

125 3 Visual Basic GoTo Visual Basic GoTo GoTo On-GoTo 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

126 Visual Basic Text1.Text = Str(n) Text2.Text = Str(x) A 10 0 B C 3 50 D 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 A 2 B 3 C 14 D 15 Do Until Loop Until c = 1 c = 1 Do Until InputBox 114

127 3 Visual Basic Val 3 12 a c = 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

128 Visual Basic A B C D 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 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

129 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 B C D a = 0 For m = 1 To 10 a = a + 1 b = 0 For j = 1 To

130 Visual Basic a = a + 1 b = b + 2 Next j Next m Print a; b A B C D 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 D 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

131 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 B C D 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 B C D

132 Visual Basic 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 N N C N 1 N D N 15 Dim i, MyNum Do For i = 1 To 1000 MyNum = Int(Rnd * 1000) 120

133 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 C D 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

134 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 For i = 1 To 6 a = a + i Next i Print a A 10 C B 15 D 28 s = 0 i = 1 While i <= 100 s = s

135 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 Name Text1 Private Sub Form_Load() Text1.Text = "" For i = 1 To 100 Sum = Sum + i Next i Text1.Text = Sum A Text B Text1 0 C Text1 D 23 Name Text1 Tex12 Name Command1 x = 1 Do While x <

136 Visual Basic x = x * 5 n = n + 1 Loop Text1.Text = Str(n) Text2.Text = Str(x) A 1 5 B 2 25 C D 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

137 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

138 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

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

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

141 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

142 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

143 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( ) 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) =

144 Visual Basic Option1(1) Option Index Index Visual Basic Dim 2 Public 3 ReDim 4 Static 2 132

145 3 Visual Basic Variant Visual Basic Visual Basic Option Base Option Base 1 1 Option Base Option Base 4 Visual Basic Erase 1 2 Visual Basic Erase Redim A32 768~ B C Option Base 0 D ~ Option Base D 133

146 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~ 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 *

147 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 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 Option Base 1 Dim a1(10), a2(4) As Integer m = 0 For i = 1 To

148 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

149 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 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 B

150 Visual Basic C D 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

151 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 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

152 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 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

153 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 /

154 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

155 3 Visual Basic Decimal Decimal 6 ASCII 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

156 Visual Basic Visual Basic 14 4 Dim ReDim Static Public 15Erase Erase For Each Next 18 Visual Basic Array Array 19 Index 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 *

157 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

158 Visual Basic A 7 B 15 C 157 D 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 C D a = 4 b = 3 Print b > a A 1 B 0 146

159 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 = b$ = " " c$ = Str(a) b2 = Len(b$) c2 = Len(c$) Print b2, c2 A B C 9 10 D a = 123 b = 456 c = Str(a) + Str(b) Print c A 123 B C D x = 5 Do Until x = -1 a = InputBox(" A ") b = InputBox(" B ") 147

160 Visual Basic If a > b Then x = -1 Loop Print Val(a + b) A 5 B 60 C 32 D 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 Dim n, s

161 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

162 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 Visual Basic 1.Print 2 5 Visual Basic Visual Basic Stop End Visual Basic Visual Basic ASCII

163 Print Print Print Print BASIC Print [ < >. ] Print [ ][, ; ] Form Debug PictureBox Printer [, ; ] 14 Print Print Print Print

164 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~ Spc 3 Space$ Space$( n ) Space$ n 3. (Format$) Format$ Format$ (, [ ] ) 1 ## 2 0 # % 6 $ 7 8 E E E 152

165 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