untitled
|
|
- 锭储 刁
- 7 years ago
- Views:
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
VB程序设计教程
高 等 学 校 教 材 Visual Basic 程 序 设 计 教 程 魏 东 平 郑 立 垠 梁 玉 环 石 油 大 学 出 版 社 内 容 提 要 本 书 是 按 高 等 学 校 计 算 机 程 序 设 计 课 程 教 学 大 纲 编 写 的 大 学 教 材, 主 要 包 括 VB 基 础 知 识 常 用 程 序 结 构 和 算 法 Windows 用 户 界 面 设 计 基 础 文 件 处
More information《Visual Basic程序设计》实验课
Visual Basic Visual Basic dstang2000@263.net 0 Visual Basic 1 0...1 1 Visual Basic...2 2...3 3...6 4...9 5...13 6...16 7...18 8...22 9...24 10...27 11...29 12 API...31 13...34 14...35 15...38 1 1 Visual
More information四川省普通高等学校
四 川 省 普 通 高 等 学 校 计 算 机 应 用 知 识 和 能 力 等 级 考 试 考 试 大 纲 (2013 年 试 行 版 ) 四 川 省 教 育 厅 计 算 机 等 级 考 试 中 心 2013 年 1 月 目 录 一 级 考 试 大 纲 1 二 级 考 试 大 纲 6 程 序 设 计 公 共 基 础 知 识 6 BASIC 语 言 程 序 设 计 (Visual Basic) 9
More informationPowerPoint Presentation
Visual Basic 2005 學 習 範 本 第 7 章 陣 列 的 活 用 7-1 陣 列 當 我 們 需 要 處 理 資 料 時, 都 使 用 變 數 來 存 放 資 料 因 為 一 個 變 數 只 能 代 表 一 個 資 料, 若 需 要 處 理 100 位 同 學 的 成 績 時, 便 要 使 用 100 個 不 同 的 變 數 名 稱, 這 不 但 會 增 加 變 數 名 稱 命 名
More information2010年3月计算机等级考试四级网络工程师笔试
计 算 机 二 级 VB 经 典 预 测 题 下 列 各 题 A) B) C) D) 四 个 选 项 中, 只 有 一 个 选 项 是 正 确 的 请 将 正 确 选 项 填 涂 在 答 题 卡 相 应 位 置 上, 答 在 试 卷 上 不 得 分 (1) 下 列 叙 述 中 正 确 的 是 ( ) A) 循 环 队 列 是 队 列 的 一 种 链 式 存 储 结 构 B) 循 环 队 列 是 队
More information<4D F736F F D D342DA57CA7DEA447B14D2DA475B57BBB50BADEB27AC3FEB14DA447B8D5C344>
1. 請 問 誰 提 出 積 體 電 路 (IC) 上 可 容 納 的 電 晶 體 數 目, 約 每 隔 24 個 月 (1975 年 更 改 為 18 個 月 ) 便 會 增 加 一 倍, 效 能 也 將 提 升 一 倍, 也 揭 示 了 資 訊 科 技 進 步 的 速 度? (A) 英 特 爾 (Intel) 公 司 創 始 人 戈 登. 摩 爾 (Gordon Moore) (B) 微 軟 (Microsoft)
More informationMicrosoft PowerPoint - OPVB1基本VB.ppt
大 綱 0.VB 能 做 什 麼? CH1 VB 基 本 認 識 1.VB 歷 史 與 版 本 2.VB 環 境 簡 介 3. 即 時 運 算 視 窗 1 0.VB 能 做 什 麼? Visual Basic =>VB=> 程 式 設 計 語 言 => 設 計 程 式 設 計 你 想 要 的 功 能 的 程 式 自 動 化 資 料 庫 計 算 模 擬 遊 戲 網 路 監 控 實 驗 輔 助 自 動
More informationuntitled
Visual Basic 2005 (VB.net 2.0) hana@arbor.ee.ntu.edu.tw 立 六 數 串 數數 數 數 串 數 串 數 Len( 串 ) 串 度 Len( 123 )=3 LCase( 串 ) 串 LCase( AnB123 ) anb123 UCase( 串 ) 串 UCase( AnB123 ) ANB123 串 數 InStr([ ], 串 1, 串 2[,
More informationMicrosoft Word - 小心翼翼的二十一點N.doc
投 稿 類 別 : 資 訊 類 篇 名 : 小 心 翼 翼 的 二 十 一 點 作 者 : 陳 鈺 文 國 立 瑞 芳 高 級 工 業 職 業 學 校 資 訊 二 李 伯 謙 國 立 瑞 芳 高 級 工 業 職 業 學 校 資 訊 二 胡 家 媛 國 立 瑞 芳 高 級 工 業 職 業 學 校 資 訊 二 指 導 老 師 : 周 曉 玲 老 師 陳 思 亮 主 任 壹 前 言 一 研 究 動 機 平
More information穨文件1
2-1 Access 2000 Visual Basic Access 2000 97 Office Visual Basic Visual Basic Visual Basic VBA Visual Basic Visual Basic 2-1-1 Visual Basic Access Visual Basic ( ) 2-1 2-1 Visual Basic 2-1 Microsoft Access
More information2
1 2 1-1 Visual Basic 3 1-2 3/8-3/21 3/22-4/4 4/5-4/18 4/19-5/2 5/3-5/16 5/17-5/30 5/31-6/13 6/14-6/27 6/28-7/11 7/12-7/25 7/26-8/8 8/9-8/22 8/25-9/5 9/6-9/19 9/20-10/3 10/4-10/17 10/18-10/31 11/15-11/28
More informationFY.DOC
高 职 高 专 21 世 纪 规 划 教 材 C++ 程 序 设 计 邓 振 杰 主 编 贾 振 华 孟 庆 敏 副 主 编 人 民 邮 电 出 版 社 内 容 提 要 本 书 系 统 地 介 绍 C++ 语 言 的 基 本 概 念 基 本 语 法 和 编 程 方 法, 深 入 浅 出 地 讲 述 C++ 语 言 面 向 对 象 的 重 要 特 征 : 类 和 对 象 抽 象 封 装 继 承 等 主
More information投稿類別:電子工程類
投 稿 類 別 : 工 程 技 術 類 篇 名 : 井 字 生 死 戰 攻 略 作 者 : 陳 威 宇 國 立 臺 南 高 級 海 事 水 產 職 業 學 校 電 子 科 二 年 甲 班 邱 富 群 國 立 臺 南 高 級 海 事 水 產 職 業 學 校 電 子 科 二 年 甲 班 指 導 老 師 : 林 育 助 老 師 王 彥 盛 老 師 壹 前 言 家 喻 戶 曉 的 井 字 遊 戲 (Tic-Tac-Toe)
More informationuntitled
說 參 例 邏 邏 1. 說 2. 數 數 3. 8 4. 理念 李 龍老 立 1. 理 料 2. 理 料 3. 數 料 4. 流 邏 念 5. 良 6. 讀 行 行 7. 行 例 來 邏 1. 說 說 識 量 2. 說 理 類 3. 數 數 念 4. 令 5. 良 6. 流 邏 念 7. 說 邏 理 力 1. 2. 3. 4. 5. 列 念 1 參 1. ( Visual Basic 例 ) (1)
More information穨ac3-3.PDF
3-1 Access 3-1-1 Event Click OnClick Click OnClick AfterUpdate BeforeUpdate On After Before > VBA( ) 3-1 3-1 Access Open Load Sub Funtion 3-1-2 Sub Funtion Private Me Me Forms Reports Form Report VisualBasic
More informationTC35短信发送程序设计
http://www.dragonsoft.net.cn/down/project/tc35_sms.rar TC35 AT /down/book/tc35_at.pdf TC35/TC35i GSM Modem TC35 GSM POS COM SIM DOWN COM E, vbcr AT VB6.0 1)C# http://www.yesky.com/softchannel/72342380468109312/20040523/1800310.shtml,
More informationSMM667.mps
第 章 设 计 简 单 程 序 本 章 是 学 习 VB 程 序 设 计 的 入 门 篇, 其 中 涉 及 的 几 个 常 用 控 件 和 基 本 语 句 是 后 续 章 节 中 反 复 使 用 的 基 础 内 容 学 习 目 标 瞯 了 解 顺 序 程 序 结 构 瞯 熟 悉 用 户 界 面 的 设 计 和 简 单 代 码 设 计 瞯 掌 握 赋 值 语 句 和 InputBox MsgBox Print
More informationMVB-1001.DOC
20 1.5 10 15 20 25 80 100 CSF 1. 2. 0105 3. 4. 5. 30% 1.5 0.75 1. Visual Basic Visual Basic (A) Visual Basic Enterprise Edition (B) Visual Basic Script Edition (C) Visual Basic Learning Edition (D) Visual
More informationuntitled
1 Outline 數 料 數 數 列 亂數 練 數 數 數 來 數 數 來 數 料 利 料 來 數 A-Z a-z _ () 不 數 0-9 數 不 數 SCHOOL School school 數 讀 school_name schoolname 易 不 C# my name 7_eleven B&Q new C# (1) public protected private params override
More information基于UML建模的管理管理信息系统项目案例导航——VB篇
PowerBuilder 8.0 PowerBuilder 8.0 12 PowerBuilder 8.0 PowerScript PowerBuilder CIP PowerBuilder 8.0 /. 2004 21 ISBN 7-03-014600-X.P.. -,PowerBuilder 8.0 - -.TP311.56 CIP 2004 117494 / / 16 100717 http://www.sciencep.com
More informationuntitled
21 Visual FoxPro Visual FoxPro 6.0 11 Visual FoxPro Visual FoxPro CIP Visual FoxPro 2004 21 ISBN 7-03-014834-7 V Visual FoxPro TP311.138 CIP 2004 143035 16 100717 http://www.sciencep.com * 2004 12 7871092
More informationVB控件教程大全
Datagrid DataGrid1.Columns.Remove(0) ' 0 DataGrid1.Columns.Add(0).Caption= ' DataGrod1.Columns(0).DataField= Name ' Adodc1.Refresh DataGrid BackColor Font DataGrid CellPadding HTML CellSpacing HTML Width
More informationINTRODUCTION TO COM.DOC
How About COM & ActiveX Control With Visual C++ 6.0 Author: Curtis CHOU mahler@ms16.hinet.net This document can be freely release and distribute without modify. ACTIVEX CONTROLS... 3 ACTIVEX... 3 MFC ACTIVEX
More information2005 Sun Microsystems, Inc Network Circle, Santa Clara, CA U.S.A. Sun Sun Berkeley BSD UNIX X/Open Company, Ltd. / Sun Sun Microsystems Su
StarSuite 8 Sun Microsystems, Inc. 4150 Network Circle Santa Clara, CA 95054 U.S.A. 819 1344 10 2005 6 2005 Sun Microsystems, Inc. 4150 Network Circle, Santa Clara, CA 95054 U.S.A. Sun Sun Berkeley BSD
More informationVisual Basic D 3D
Visual Basic 2008 2D 3D 6-1 6-1 - 6-2 - 06 6-2 STEP 1 5-2 (1) STEP 2 5-3 (2) - 6-3 - Visual Basic 2008 2D 3D STEP 3 User1 6-4 (3) STEP 4 User1 6-5 (4) - 6-4 - 06 STEP 5 6-6 (5) 6-3 6-3-1 (LoginForm) PictureBox1
More information2009年3月二级VB语言笔试真题
2008 年 4 月 计 算 机 二 级 考 试 VB 笔 试 试 题 一 选 择 题 ( 每 题 2 分, 共 计 70 分 ) 1. 程 序 流 程 图 中 带 有 箭 头 的 线 段 表 示 的 是 A) 图 元 关 系 B) 数 据 流 C) 控 制 流 D) 调 用 关 系 2. 结 构 化 程 序 设 计 的 基 本 原 则 不 包 括 A) 多 态 性 B) 自 顶 向 下 C) 模
More informationepub 94-3
3 A u t o C A D L AY E R L I N E T Y P E O S N A P S T Y L E X R E F - AutoLISP Object ARX A u t o C A D D C L A u t o C A D A u t o d e s k P D B D C L P D B D C L D C L 3.1 Wi n d o w s A u t o C A D
More informationMicrosoft PowerPoint - Chapter5
CH5 表 單 與 控 制 項 課 程 目 標 : 暸 解 VBA 語 言 中 的 控 制 項 及 常 用 屬 性 表 單 在 視 窗 環 境 中, 使 用 者 所 使 用 的 對 話 窗, 精 靈 等 都 是 以 表 單 為 基 本 單 位, 再 加 上 其 它 控 制 項 所 構 成 的 操 作 環 境 利 用 插 入 表 單 為 指 定 的 專 案 插 入 一 個 自 訂 表 單 表 單 常
More informationThreeDtunnel.doc
(12) 1 1. Visual Basic Private Sub LoadDatabase() Dim strip As String Dim straccount As String Dim strpassword As String Dim strdatabase As String Dim strtable As String Dim strsql As String Dim strtemp1
More information6-1 Table Column Data Type Row Record 1. DBMS 2. DBMS MySQL Microsoft Access SQL Server Oracle 3. ODBC SQL 1. Structured Query Language 2. IBM
CHAPTER 6 SQL SQL SQL 6-1 Table Column Data Type Row Record 1. DBMS 2. DBMS MySQL Microsoft Access SQL Server Oracle 3. ODBC SQL 1. Structured Query Language 2. IBM 3. 1986 10 ANSI SQL ANSI X3. 135-1986
More informationTwinCAT 1. TwinCAT TwinCAT PLC PLC IEC TwinCAT TwinCAT Masc
TwinCAT 2001.12.11 TwinCAT 1. TwinCAT... 3 2.... 4... 4...11 3. TwinCAT PLC... 13... 13 PLC IEC 61131-3... 14 4. TwinCAT... 17... 17 5. TwinCAT... 18... 18 6.... 19 Maschine.pro... 19... 27 7.... 31...
More informationCC213
: (Ken-Yi Lee), E-mail: feis.tw@gmail.com 49 [P.51] C/C++ [P.52] [P.53] [P.55] (int) [P.57] (float/double) [P.58] printf scanf [P.59] [P.61] ( / ) [P.62] (char) [P.65] : +-*/% [P.67] : = [P.68] : ,
More informationIsPostBack 2
5 IsPostBack 2 TextBox 3 TextBox TextBox 4 TextBox TextBox 1 2 5 TextBox Columns MaxLength ReadOnly Rows Text TextMode TextMode MultiLine TextMode MultiLine True False TextMode MultiLine Password MulitLine
More information2009年3月二级VB语言笔试真题
2008 年 9 月 计 算 机 二 级 VB 语 言 真 题 一 选 择 题 ( 每 题 2 分, 共 计 70 分 ) 1. 一 个 栈 的 初 始 状 态 为 空 现 将 元 素 1 2 3 4 5 A B C D E 依 次 入 栈, 然 后 再 依 次 出 栈, 则 元 素 出 栈 的 顺 序 是 A)12345ABCDE B)EDCBA54321 C)ABCDE12345 D)54321EDCBA
More information27 :OPC 45 [4] (Automation Interface Standard), (Costom Interface Standard), OPC 2,,, VB Delphi OPC, OPC C++, OPC OPC OPC, [1] 1 OPC 1.1 OPC OPC(OLE f
27 1 Vol.27 No.1 CEMENTED CARBIDE 2010 2 Feb.2010!"!!!!"!!!!"!" doi:10.3969/j.issn.1003-7292.2010.01.011 OPC 1 1 2 1 (1., 412008; 2., 518052), OPC, WinCC VB,,, OPC ; ;VB ;WinCC Application of OPC Technology
More informationCHAPTER 1
CHAPTER 1 1-1 System Development Life Cycle; SDLC SDLC Waterfall Model Shelly 1995 1. Preliminary Investigation 2. System Analysis 3. System Design 4. System Development 5. System Implementation and Evaluation
More informationuntitled
1 .NET 利 [] [] 來 說 切 切 理 [] [ ] 來 說 拉 類 類 [] [ ] 列 連 Web 行流 來 了 不 不 不 流 立 行 Page 類 Load 理 Response 類 Write 料 Redirect URL Response.Write("!! ives!!"); Response.Redirect("WebForm2.aspx"); (1) (2) Web Form
More information多層次傳銷與獎金系統
醒 吾 技 術 學 院 資 訊 管 理 系 ( 五 專 部 ) 九 十 六 學 年 度 畢 業 專 題 多 層 次 傳 銷 與 獎 金 系 統 組 員 : 921506122 游 濬 瑋 921506126 陳 彥 宇 921506139 林 龍 華 921506144 陳 昶 志 921506149 楊 璧 如 指 導 老 師 : 汪 淵 老 師 中 華 民 國 九 十 七 年 一 月 十 一 醒
More information数据结构与算法 - Python基础
Python 教材及课件 课件及作业见网址 xpzhang.me 1 1. Python 2. 3. (list) (tuple) 4. (dict) (set) 5. 6. 7. 2 Python Python 3 Python 4 Python 1, 100, -8080, 0,... 0x 0-9, a-f 0 xff00, 0 xa432bf 5 1.24, 3.14, -9.80,...
More informationMicrosoft Word - 第3章.doc
Java C++ Pascal C# C# if if if for while do while foreach while do while C# 3.1.1 ; 3-1 ischeck Test() While ischeck while static bool ischeck = true; public static void Test() while (ischeck) ; ischeck
More information1 Framework.NET Framework Microsoft Windows.NET Framework.NET Framework NOTE.NET NET Framework.NET Framework 2.0 ( 3 ).NET Framework 2.0.NET F
1 Framework.NET Framework Microsoft Windows.NET Framework.NET Framework NOTE.NET 2.0 2.0.NET Framework.NET Framework 2.0 ( 3).NET Framework 2.0.NET Framework ( System ) o o o o o o Boxing UnBoxing() o
More information高 职 计 算 机 类 优 秀 教 材 书 目 * 序 号 书 号 (ISBN) 书 名 作 者 定 价 出 版 / 印 刷 日 期 ** 配 套 资 源 页 码 计 算 机 基 础 课 1 978-7-111-30658-0 计 算 机 应 用 基 础 刘 升 贵 29.00 2012 年 8 月
高 职 计 算 机 类 优 秀 教 材 书 目 * 序 号 书 号 (ISBN) 书 名 作 者 定 价 出 版 / 印 刷 日 期 ** 配 套 资 源 页 码 计 算 机 基 础 课 1 978-7-111-30658-0 计 算 机 应 用 基 础 刘 升 贵 29.00 2012 年 8 月 电 子 教 案 P1 2 978-7-111-27081-2 计 算 机 应 用 基 础 ( 第 2
More informationWWW PHP Comments Literals Identifiers Keywords Variables Constants Data Types Operators & Expressions 2
WWW PHP 2003 1 Comments Literals Identifiers Keywords Variables Constants Data Types Operators & Expressions 2 Comments PHP Shell Style: # C++ Style: // C Style: /* */ $value = $p * exp($r * $t); # $value
More informationMicrosoft Word - 01.DOC
第 1 章 JavaScript 简 介 JavaScript 是 NetScape 公 司 为 Navigator 浏 览 器 开 发 的, 是 写 在 HTML 文 件 中 的 一 种 脚 本 语 言, 能 实 现 网 页 内 容 的 交 互 显 示 当 用 户 在 客 户 端 显 示 该 网 页 时, 浏 览 器 就 会 执 行 JavaScript 程 序, 用 户 通 过 交 互 式 的
More informationMicrosoft Word - 正文.doc
3 Access 3.1 SharePoint SharePoint SharePoint 3.6 1 1.15 1 3.1 3.2 1 3.1 40 Access 3.2 2 ID / 3.3 3 3.4 3.5 3.3 / 3.4 3.5 3 41 4 / 6 3.6 3.6 5 1 40 24 3.7 3.7 6 3.8 * 3.8 2 42 Access 1.16 1 3.1 / 1 3.9
More informationMicrosoft Word - 102119003.htm
102 年 度 11900 電 腦 軟 體 設 計 丙 級 技 術 士 技 能 檢 定 學 科 測 試 試 題 本 試 卷 有 選 擇 題 80 題, 每 題 1.25 分, 皆 為 單 選 選 擇 題, 測 試 時 間 為 100 分 鐘, 請 在 答 案 卡 上 作 答, 答 錯 不 倒 扣 ; 未 作 答 者, 不 予 計 分 准 考 證 號 碼 : 姓 名 : 選 擇 題 : 1. (4)
More informationJC2.nps
第 3 章 Word 文 字 处 理 Office 办 公 软 件 中 的 Word 是 Microsoft 公 司 的 一 个 文 字 处 理 应 用 程 序, 适 合 对 书 信 公 文 报 告 论 文 商 业 合 同 等 进 行 一 些 文 字 工 作 Word 不 但 能 够 处 理 文 字, 还 能 够 插 入 及 处 理 图 形 图 像 公 式 表 格 图 表, 甚 至 可 以 播 放
More informationC/C++ - 函数
C/C++ Table of contents 1. 2. 3. & 4. 5. 1 2 3 # include # define SIZE 50 int main ( void ) { float list [ SIZE ]; readlist (list, SIZE ); sort (list, SIZE ); average (list, SIZE ); bargragh
More information概述
OPC Version 1.6 build 0910 KOSRDK Knight OPC Server Rapid Development Toolkits Knight Workgroup, eehoo Technology 2002-9 OPC 1...4 2 API...5 2.1...5 2.2...5 2.2.1 KOS_Init...5 2.2.2 KOS_InitB...5 2.2.3
More informationuntitled
.Net ADF ArcGIS Server ESRI ( ) .NET (ADF.NET) ADF.NET Web Controls Demo .NET (ADF.NET) ADF.NET ArcGIS Web C# and VB.NET Web Server Page Layout, Map, TOC, Overview Map ArcGIS Server.NET ? GIS web ArcGIS
More informationCHAPTER VC#
1. 2. 3. 4. CHAPTER 2-1 2-2 2-3 2-4 VC# 2-5 2-6 2-7 2-8 Visual C# 2008 2-1 Visual C# 0~100 (-32768~+32767) 2 4 VC# (Overflow) 2-1 2-2 2-1 2-1.1 2-1 1 10 10!(1 10) 2-3 Visual C# 2008 10! 32767 short( )
More informationC/C++ - 字符输入输出和字符确认
C/C++ Table of contents 1. 2. getchar() putchar() 3. (Buffer) 4. 5. 6. 7. 8. 1 2 3 1 // pseudo code 2 read a character 3 while there is more input 4 increment character count 5 if a line has been read,
More informationepub83-1
C++Builder 1 C + + B u i l d e r C + + B u i l d e r C + + B u i l d e r C + + B u i l d e r 1.1 1.1.1 1-1 1. 1-1 1 2. 1-1 2 A c c e s s P a r a d o x Visual FoxPro 3. / C / S 2 C + + B u i l d e r / C
More information( CIP) /. :, ( ) ISBN TP CIP ( 2005) : : : : * : : 174 ( A ) : : ( 023) : ( 023)
( CIP) /. :, 2005. 2 ( ) ISBN 7-5624-3339-9.......... TP311. 1 CIP ( 2005) 011794 : : : : * : : 174 ( A ) :400030 : ( 023) 65102378 65105781 : ( 023) 65103686 65105565 : http: / /www. cqup. com. cn : fxk@cqup.
More information<4D6963726F736F667420576F7264202D20AE67BD62B6A4C1FAB0EAB2BEA661B056BD6DAAF0B0EAB3F8A7695F30372E31302E31365F2E646F63>
出 國 報 告 ( 出 國 類 別 : 其 他 ) 2007 年 射 箭 隊 韓 國 移 地 訓 練 計 畫 服 務 機 關 : 國 立 臺 灣 體 育 學 院 姓 名 職 稱 : 吳 聰 義 講 師 派 赴 國 家 : 韓 國 槐 山 出 國 期 間 :96 年 8 月 23 日 至 96 年 8 月 30 日 報 告 日 期 :96 年 9 月 11 日 摘 要 本 次 國 立 台 灣 體 育
More information科学计算的语言-FORTRAN95
科 学 计 算 的 语 言 -FORTRAN95 目 录 第 一 篇 闲 话 第 1 章 目 的 是 计 算 第 2 章 FORTRAN95 如 何 描 述 计 算 第 3 章 FORTRAN 的 编 译 系 统 第 二 篇 计 算 的 叙 述 第 4 章 FORTRAN95 语 言 的 形 貌 第 5 章 准 备 数 据 第 6 章 构 造 数 据 第 7 章 声 明 数 据 第 8 章 构 造
More information<4D F736F F D DA5BFA6A1C476C1C92DBEC7ACECB8D5A8F728B57BB35D292E646F63>
全國高級中等學校 106 學年度商業類科學生技藝競賽 程式設計 職種 學科 試卷 選手證號碼 ( 崗位編號 ): 姓名 : 注意事項 : 請將答案劃記於答案卡, 未依規定劃記者不予計分 試題說明 :( 選擇題共 25 題每題 4 分, 答錯不倒扣, 共 100 分 ) ( )1. 執行以下 Visual Basic 程式片段, 其結果為何?(A) 15 (B) 12 (C) 7 (D) 3 Dim
More information全 国 高 等 职 业 教 育 规 划 教 材 21 世 纪 高 职 高 专 规 划 教 材 系 列 高 等 职 业 教 育 计 算 机 专 业 规 划 教 材 选 题 征 集 通 知 一 选 题 范 围 ( 不 仅 限 于 此 ) 选 题 方 向 选 题 名 计 算 机 基 础 计 算 机 应 用
刘 瑞 新 金 牌 作 者 经 典 作 品 教 授, 计 算 机 专 业 资 深 学 科 带 头 人, 多 部 著 作 获 得 全 国 优 秀 畅 销 书 奖 他 所 编 写 的 教 材 内 容 均 来 自 教 学 实 践, 是 对 编 写 讲 义 教 学 修 改 教 学 讲 义 再 次 教 学 整 个 过 程 的 精 确 提 炼, 因 此 对 促 进 教 师 教 学 学 生 学 习 发 挥 了 重
More informationuntitled
Visual Basic 6.0 Visual Basic 6.0 /. 2001.8 ISBN 7-115-10518-9 I. V II. III. BASIC IV. TP312 CIP (2002) 055959 Visual Basic Microsoft 14 1~6 Visual Basic 7~14 Internet Windows API ActiveX Visual Basic
More information第5章修改稿
(Programming Language), ok,, if then else,(), ()() 5.0 5.0.0, (Variable Declaration) var x : T x, T, x,,,, var x : T P = x, x' : T P P, () var x:t P,,, yz, var x : int x:=2. y := x+z = x, x' : int x' =2
More information全国计算机技术与软件专业技术资格(水平)考试
全 国 计 算 机 技 术 与 软 件 专 业 技 术 资 格 ( 水 平 ) 考 试 2008 年 上 半 年 程 序 员 下 午 试 卷 ( 考 试 时 间 14:00~16:30 共 150 分 钟 ) 试 题 一 ( 共 15 分 ) 阅 读 以 下 说 明 和 流 程 图, 填 补 流 程 图 中 的 空 缺 (1)~(9), 将 解 答 填 入 答 题 纸 的 对 应 栏 内 [ 说 明
More informationWinMDI 28
WinMDI WinMDI 2 Region Gate Marker Quadrant Excel FACScan IBM-PC MO WinMDI WinMDI IBM-PC Dr. Joseph Trotter the Scripps Research Institute WinMDI HP PC WinMDI WinMDI PC MS WORD, PowerPoint, Excel, LOTUS
More information一、在PowerPoint中实现对象翻转
Powerpoint 使 用 技 巧 一 在 PowerPoint 中 实 现 对 象 翻 转... 2 二 在 PowerPoint 里 巧 做 字 幕 滚 动... 3 三 在 没 有 安 装 PowerPoint 2000 的 计 算 机 上 放 映 幻 灯 片... 4 四 在 PowerPoint 中 插 入 VCD 片 段... 4 五 在 PowerPoint 中 使 用 Flash
More information(Microsoft Word - Motion Program \270\305\264\272\276\363 \307\245\301\366 \271\327 \270\361\302\367.doc)
: TBFAT-G5MP-MN004-11 1 GX Series PLC Program Manual 2 GX Series PLC Program Manual Contents Contents...3 1... 1-1 1.1... 1-2 1.2... 1-3 1.2.1... 1-3 1.2.2... 1-4 1.2.3... 1-4 1.2.4... 1-6 1.3... 1-7 1.3.1...
More informationMicrosoft Word - 專題製作研究報告書.doc
大 富 翁 之 我 要 畢 業 指 導 老 師 : 王 啟 修 參 賽 學 生 : 吳 皇 逸 林 晉 逸 黃 亭 瑋 賴 建 豫 嘉 義 高 商 資 料 處 理 科 摘 要 本 專 題 以 大 富 翁 遊 戲 為 基 本 題 材, 並 參 考 任 天 堂 遊 戲 公 司 製 作 的 Mario Party 電 視 遊 戲 和 各 代 的 大 富 翁, 將 不 同 風 格 的 小 遊 戲 與 傳 統
More information3 Driver do Microsoft Access (*.mdb) hisdata IFIX 1.4
IFix3.5 ACCESS ACCESS hisdata D:\Dynamics\SampleSystem\HistoricalData ODBC DSN hisdata 1 ODBC 1.1 2 1.2 3 Driver do Microsoft Access (*.mdb) 1.3 4 hisdata IFIX 1.4 1.4 5 Access 1.5 6 ODBC ifix3.5 1.6 1.6
More informationuntitled
VB 來 立 李 龍老 年 參 車 令 度 綠 車 不 不 靈 了 來 令來 了老 利 來 練 念 邏 念 數 度 念 狀 不 度 令 數 更 參 VB VB VB 理 VB 類 數 (x,y) (0,0) x y x,y 數 (0,0) (x, 0) (0, y) (x, y) VB 裡 來 VB 來 1 Graphics VB Graphics Private Sub Button1_Click(
More informationMicrosoft Word - 扉页
社 心 版 中 出 版 学 科 术出 k.cn o 技 o b 教 a. 职 ww w 高 等 教 育 十 一 五 规 划 教 材 Visual Basic 程 序 设 计 实 验 指 导 与 习 题 集 郭 元 辉 冯 庆 煜 主 编 李 军 陈 亚 军 副 主 编 北 京 内 容 简 介 本 书 是 与 Visual Basic 程 序 设 计 教 程 配 套 使 用 的 上 机 练 习 和 习
More informationSYSMAC-SCS Version 2
CX-Programmer- CX-Programmer 2.0 CX-Programmer OMRON OMRON OMRON Unit OMRON PLC i CX-Programmer OMRON, 2000 1, 2, 3 OMRON OMRON OMRON ii CX-Programmer CX-Programmer OMRON SYSMAC CS, CV C PLC PLC CX-Programmer
More information2 1999 9 21 2001 21 2001 7 20 90 2002 9 2 21 4 38 30 3 ~ 6 3 2004 12 Ⅰ 1!!!!!!!!!!!!!!!!!!! 2 1. 1 2!!!!!!!!!!!!!!! 1. 2 8!!!!!!!!!!!! 1. 3 19!!!!!!!!!!!!!!!!! 2!!!!!!!!!!!!!!!!!!! 26 2. 1 26!!!!!!!!!!!!
More information优合会计考点直击卷子之财经法规答案——第八套
原 题 导 航 基 础 第 一 套 第 1 题 参 考 答 案 : C 试 题 评 析 : 在 社 会 主 义 市 场 经 济 条 件 下, 会 计 的 对 象 是 社 会 再 生 产 过 程 中 主 要 以 货 币 表 现 的 经 济 活 动 第 2 题 参 考 答 案 :B 试 题 评 析 : 在 权 责 发 生 制 下, 本 期 售 货 尚 未 收 到 销 售 货 款 属 于 当 期 收 入
More informationuntitled
1 LinkButton LinkButton 連 Button Text Visible Click HyperLink HyperLink 來 立 連 Text ImageUrl ( ) NavigateUrl 連 Target 連 _blank _parent frameset _search _self 連 _top 例 sample2-a1 易 連 private void Page_Load(object
More informationExcel VBA Excel Visual Basic for Application
Excel VBA Jun5,00 Sub 分頁 () Dim i As Integer Dim Cname As String Dim Code As Variant Set score=thisworkbook.sheets("sheet") Code=Array(" 專北一 "," 專北二 "," 專北三 "," 專桃園 "," 專桃竹 "," 專中苗 ", " 專台中 "," 專台南 ","
More information05 CHAPTER Information.IsNumeric ( ) Information.IsDate ( ) True False Date Date True False Y Y Information.IsArray ( ) True False Y Information.IsErr
05 CHAPTER Information.IsNumeric () Information.IsDate () True False Date DateTrue False Y Y Information.IsArray () True False Y Information.IsError () Information.IsNothing () True False True False Y
More informationcoverage2.ppt
Satellite Tool Kit STK/Coverage STK 82 0715 010-68745117 1 Coverage Definition Figure of Merit 2 STK Basic Grid Assets Interval Description 3 Grid Global Latitude Bounds Longitude Lines Custom Regions
More informationC/C++程序设计 - 字符串与格式化输入/输出
C/C++ / Table of contents 1. 2. 3. 4. 1 i # include # include // density of human body : 1. 04 e3 kg / m ^3 # define DENSITY 1. 04 e3 int main ( void ) { float weight, volume ; int
More informationC/C++ - 文件IO
C/C++ IO Table of contents 1. 2. 3. 4. 1 C ASCII ASCII ASCII 2 10000 00100111 00010000 31H, 30H, 30H, 30H, 30H 1, 0, 0, 0, 0 ASCII 3 4 5 UNIX ANSI C 5 FILE FILE 6 stdio.h typedef struct { int level ;
More informationCA-C750К
1 3 3 4 PC 4 USB 5 5 6 8 9 11 mediasync Manager?...13 mediasync Manager 15 25 38 39 41 41 DRM...44 Image Manager...44 47 49 49 50 50 51 51 51 52 / 52 A-B 53 MP3 53 /FM 54 FM 55 FM 55 BMP56 56 57 57 58
More informationPs22Pdf
Visua l Ba sic 6 ( ) 158,,,, Windows ;,, A 6, ; B,, Visual Basic, W indows 95/ 98,, : Visual Basic 6 : : (, 100084) : : : 787 1092 1/ 16 : 23. 75 : 578 : 2002 1 1 2002 1 1 : 0001 5000 : ISBN 7 302 05015
More informationWindows XP
Windows XP What is Windows XP Windows is an Operating System An Operating System is the program that controls the hardware of your computer, and gives you an interface that allows you and other programs
More information提问袁小兵:
C++ 面 试 试 题 汇 总 柯 贤 富 管 理 软 件 需 求 分 析 篇 1. STL 类 模 板 标 准 库 中 容 器 和 算 法 这 部 分 一 般 称 为 标 准 模 板 库 2. 为 什 么 定 义 虚 的 析 构 函 数? 避 免 内 存 问 题, 当 你 可 能 通 过 基 类 指 针 删 除 派 生 类 对 象 时 必 须 保 证 基 类 析 构 函 数 为 虚 函 数 3.
More informationUser’s Manual
V7 用 户 手 册 亿 图 为 您 专 业 图 表 设 计 提 供 最 佳 解 决 方 案 2004-2014 EdrawSoft. All right reserved. Edraw and Edraw logo are registered trademarks of EdrawSoft. 目 录 亿 图 怎 样 优 越 于 其 他 软 件... 5 亿 图 7 个 新 功 能... 6 为
More information, 7, Windows,,,, : ,,,, ;,, ( CIP) /,,. : ;, ( 21 ) ISBN : -. TP CIP ( 2005) 1
21 , 7, Windows,,,, : 010-62782989 13501256678 13801310933,,,, ;,, ( CIP) /,,. : ;, 2005. 11 ( 21 ) ISBN 7-81082 - 634-4... - : -. TP316-44 CIP ( 2005) 123583 : : : : 100084 : 010-62776969 : 100044 : 010-51686414
More information扉页.doc
高 职 高 专 规 划 教 材 中 文 PowerPoint 2002 操 作 教 程 本 书 编 委 会 编 西 北 工 业 大 学 出 版 社 内 容 提 要 本 书 为 高 职 高 专 计 算 机 系 列 教 材 之 一 书 中 主 要 介 绍 了 中 文 PowerPoint 2002 的 基 础 知 识, 演 示 文 稿 的 制 作 播 放, 以 及 文 本 报 表 图 表 图 示 幻 灯
More information單元5
13-1 13-2 / 13-3 14-1 Visual Basic 14-2 14-3 15-1 15-2 15-3 287 290 307 13-1 13-1.1 272 Introduction to Computer Science 13-1.1 1. 2. 3. 4. 273 274 Introduction to Computer Science 275 13-1.2 13-1.1 /
More information24 第 3 章 创 建 Access 数 据 库 和 表 3.1 创 建 Access 数 据 库 Access 2003 中 的 数 据 库 属 于 关 系 型 数 据 库, 以.mdb 为 文 件 的 后 缀, 建 立 一 个 数 据 库 的 同 时, 就 创 建 了 数 据 库 中 的 对
第 3 章 创 建 Access 数 据 库 和 表 在 Access 中, 数 据 库 是 一 个 存 储 数 据 库 应 用 系 统 中 各 对 象 的 容 器,Access 可 以 通 过 一 个 数 据 库 文 件 来 管 理 所 有 的 数 据 库 资 源 Access 2003 数 据 库 是 所 有 表 查 询 窗 体 报 表 宏 模 块 和 页 等 对 象 的 集 合 其 中, 表
More information1 4 1.1 4 1.2..4 2..4 2.1..4 3.4 3.1 Java.5 3.1.1..5 3.1.2 5 3.1.3 6 4.6 4.1 6 4.2.6 5 7 5.1..8 5.1.1 8 5.1.2..8 5.1.3..8 5.1.4..9 5.2..9 6.10 6.1.10
Java V1.0.1 2007 4 10 1 4 1.1 4 1.2..4 2..4 2.1..4 3.4 3.1 Java.5 3.1.1..5 3.1.2 5 3.1.3 6 4.6 4.1 6 4.2.6 5 7 5.1..8 5.1.1 8 5.1.2..8 5.1.3..8 5.1.4..9 5.2..9 6.10 6.1.10 6.2.10 6.3..10 6.4 11 7.12 7.1
More informationuntitled
COM ActiveX Control 年 ACTIVEX CONTROLS 念... 3 ACTIVEX... 3 MFC ACTIVEX CONTROLWIZARD... 3 MFC ACTIVEX CONTROLS WIZARD... 4 MFC... 4... 4 ACTIVEX... 4 ONDRAW 行... 4 ONDRAW() 數... 5 ACTIVEX... 5 (STOCK PROPERTIES)...
More information2 WF 1 T I P WF WF WF WF WF WF WF WF 2.1 WF WF WF WF WF WF
Chapter 2 WF 2.1 WF 2.2 2. XAML 2. 2 WF 1 T I P WF WF WF WF WF WF WF WF 2.1 WF WF WF WF WF WF WF WF WF WF EDI API WF Visual Studio Designer 1 2.1 WF Windows Workflow Foundation 2 WF 1 WF Domain-Specific
More information第三节 软件测试的过程与策略
...1...4...9...17...25...29...34...40...46...55...65...73 1 2 3 4 5 6 7 8 9 10 11 1 12 13 1 ABCD 2 A B C D 3 ABCD 4 A1/2 B1/3 C1/4 D2/3 5 % A20 B30 C40 D50 6 A B C D 7 A B C D / 8 A B C D 9 A B C D 10
More informationSerial ATA ( Silicon Image SiI3114)...2 (1) SATA... 2 (2) B I O S S A T A... 3 (3) RAID BIOS RAID... 5 (4) S A T A... 8 (5) S A T A... 10
Serial ATA ( Silicon Image SiI3114)...2 (1) SATA... 2 (2) B I O S S A T A... 3 (3) RAID BIOS RAID... 5 (4) S A T A... 8 (5) S A T A... 10 Ác Åé å Serial ATA ( Silicon Image SiI3114) S A T A (1) SATA (2)
More informationMicrosoft Word - 97.01.30軟體設計第二部份範例試題_C++_ _1_.doc
電 腦 軟 體 設 計 乙 級 技 術 士 技 能 檢 定 術 科 測 試 範 例 試 題 (C++) 試 題 編 號 :11900-920201-4 審 定 日 期 : 94 年 7 月 1 日 修 訂 日 期 : 96 年 2 月 1 日 97 年 1 月 30 日 ( 第 二 部 份 ) 電 腦 軟 體 設 計 乙 級 技 術 士 技 能 檢 定 術 科 測 試 應 檢 參 考 資 料 壹 試
More information6. 4 5 6 7 8 9 10 11 ...1... 1...1...1...2... 3...3...5...9... 11...11...11...12...12... 13...13...14... 16...16...19...20 I 1 ---------------------------------------------------3 2 ------------------------------------------------6
More informationebook43-11
11 Excel 4 E x c e l Access A c c e s s Access Access / Access 2000 / Paradox S Q L A c c e s s SQL Lotus Org a n i z e r A c c e s s A c c e s s Wo r d Word for Windows O D B C ODBC O ffice A c c e s
More information广西民族学院(下)
3888.00 ( 16.00 ) I...1...1...16 ( )...20 ( )...25 ( )...27 ( )...37...49 ()...51 ( )...53 ( )...58...65 ( )...74...80...84...85 ( )...88...91...92 ( )...93... 100... 101... 106... 107 ( )... 115... 118...
More information(京)新登字063号
教 育 部 职 业 教 育 与 成 人 教 育 司 推 荐 教 材 Java 程 序 设 计 教 程 ( 第 二 版 ) 沈 大 林 主 编 沈 昕 肖 柠 朴 曾 昊 等 编 著 内 容 简 介 Java 是 由 美 国 SUN 公 司 开 发 的 一 种 功 能 强 大 的, 具 有 简 单 面 向 对 象 分 布 式 可 移 植 等 性 能 的 多 线 程 动 态 计 算 机 编 程 语 言
More informationC/C++语言 - 运算符、表达式和语句
C/C++ Table of contents 1. 2. 3. 4. C C++ 5. 6. 7. 1 i // shoe1.c: # include # define ADJUST 7. 64 # define SCALE 0. 325 int main ( void ) { double shoe, foot ; shoe = 9. 0; foot = SCALE * shoe
More informationMicrosoft Word - 13院21号.doc
川 教 考 院 2013 21 号 四 川 省 教 育 考 试 院 关 于 全 国 计 算 机 等 级 考 试 体 系 调 整 的 通 知 各 NCRE 考 点 : 为 进 一 步 适 应 新 时 期 计 算 机 应 用 技 术 的 发 展 和 人 才 市 场 需 求 的 变 化, 确 保 全 国 计 算 机 等 级 考 试 ( 以 下 简 称 NCRE) 健 康 持 续 发 展, 教 育 部 考
More information第 期 熊 安 萍 等 *1$ 文 件 系 统 中 范 围 锁 机 制 的 应 用 研 究! 锁 命 名 空 间 '+'($($ 描 述 了 资 源 和 锁 的 集 合 它 同 时 在 客 户 节 点 和 服 务 节 点 存 在 不 同 之 处 只 是 利 用 一 个 数 据 标 识 来 有 效 区
第 卷 第 期 重 庆 邮 电 大 学 学 报 自 然 科 学 版 年 月!"#$" %$&'$ ''())$($*($'('+$$,-./0 1' 文 件 系 统 中 范 围 锁 机 制 的 应 用 研 究 熊 安 萍 葛 军 邹 洋 重 庆 邮 电 大 学 计 算 机 科 学 与 技 术 学 院 重 庆! 摘 要 分 布 式 锁 机 制 是 分 布 式 文 件 系 统 的 重 要 机 制 *1$
More information