1、VBDOSCQbasicPascalVisual BasicVBVB-VB6.0VBVBIEVBDDDelphiVBVBDelphiVBVBVBVBMicrosoft WindowsMicrosoft WindowsWindowsWindows-Microsoft Windows SDKWindowsMicrosoft SDKevent-drivenCCSDKMicrosoft-Visual BasicVisualBaiscVBVBWindowsVB-VBVB-VBVBHTMLVBVBVB-MouseMovePaintPaintAutoDrawTrue-1PaintResizeResizeLo
2、adUnload2.FocusGotFocusLostFocusFocusGotFocusLostFocus3.ClickDbClickMouseDownMouseUp/MouseMoveDragDropMouseDownMouseMoveMouseUpDragOverDragOver4.KeyDownKeyUp/KeyPress5.ChangeChangeTextBoxDropDownComboBoxPathChangeFileBox6.TimerNameNameVB-Interger24VBInteger-3276832767Long-2,147,483,6482,147,483,647S
3、ingle-3.37E+383.37E+38Double-1.67E+3081.67E+308String065,535BooleanTrue/-1False/0DimDim As Dim Index As IntegerDim Index As Integer , Dim Number As LongDim Index , Number As IntegerDim Index=3%&!#Dim Index% Dim Index As IntegerConstConst COLOR=255-Dim IntegerArray(99) As Integer100099Dim IntegerArra
4、y(2 to 10) As Integer210Dim ThreeD(4,2 to 5,3 to 6) As Integer(444)TypeType As As As -End TypeType AddressStreet As StringZipCode As StringPhone As StringEnd TypeDim MyHome As AddressMyHome.-,WithWith MyHome.Street=.ZipCode=100037.Phone=12345678End WithVBVBVBBasic-VBBasicVBVisual BasicBasicBasicVBVB
5、BasicVBDDVBFunctionVBBasicVBVBDeclareDLLDimRedim-VBRemDOSDim a As String Rem Dim a As String -CVBVB_-VB-If-Then-If Then-End IfC VBThenIf Then End IfIf ThenElseEnd IfElseIfIf ThenElse IfElseEnd If1TrueFalse12TrueFalse23TrueFalse-NTrueFalseNN1ElseSelectVBSelectSelect Case Case -Case -Case -Case Else-E
6、nd SelectSelect Case a%Case 1Print a=1Case 2Print a=2Case ElsePrint a does not equal to 1 or 2.End Select-Cfor-VBForVBForFor = To Step -Next Step1StepDim a=0For I=1 To 10a=a+INext I110aDim a=0For I=10 To 1 Step C1a=a+INext IWhile-Do While - LoopWhile - Wend Do - Loop WhileWhile-Do While - LoopWhile
7、- Wend While-Do - Loop While DoWhileUntil-WhileWhileUntilWhileUntil While Not For-Whlie-*/Moda Mod babABABVB=-ABNot AAndOrXorEqvImpTTFTTFTTTFFFTTFFFTTFTTFTFFTFFFTTTDDTrue FDDFalse- -VBCommand1_Click()-VBVBVBVBWindowsclickCommandButton4-1NameCommand1cmdExitCaptionPrivate Sub cmdExit_Click()Unload MeE
8、nd SubF54-2-ClickUnload Me4-3ListTextCommand1Command2List1CaptionText1Text)Button1Caption-EnabledFalseButton2Caption=Button1EnabledFalseCommand1F54-4-GeneralDim StoreString As String VBPrivate Sub Command1_Click()Text1.Text = StoreStringCommand1.Enabled = FalseEnd SubPrivate Sub Command2_Click()StoreString = Text1.TextText1.Text = “ Command1.Enabled = TrueEnd Sub4-5-Undo/Redo-Button2Button1EnabledTrueCaptionPrivate Sub Command1_Click()If Command1.Caption = “ ThenStoreString = Text1.TextText1.Text = “ Command1.Caption = “-“ElseText1.Text = StoreStringCommand1.Caption = “End IfEnd Sub
