VB最全課件-教程【完整版】

1、第1章 Visual Basic 編程環(huán)境沈陽理工大學應用技術學院0.本章內容 可視化與事件驅動型語言 Visual Basic 的啟動與退出主窗口其他窗口 2 1.可視化與事件驅動型語言可視化界面設計 VB提供的可視化設計平臺，把Windows界面設計的復雜性“封裝起來。程序員不必再為界面的設計而編寫大量程序代碼，只需用系統(tǒng)提供的工具在屏幕上“畫出各種對象，程序員所需要編寫的只是實現程序功能的那局部代碼。事件驅動的編程機制 VB通過事件來執(zhí)行對象的操作。由用戶操作引發(fā)某個事件來驅動完成某種特定的功能，或由事件驅動程序調用通用過程來執(zhí)行指定的操作3 啟動VB的方法(1) 在“開始菜單的“程序組

2、中用鼠標單擊“Microoft Visual Basic6.0(2) 用鼠標雙擊桌面上的“Microoft Visual Basic 6.0快捷圖標(3) 在“運行中，輸入VB 程序所在的路徑(4) 進入VB文件夾雙擊VB 程序文件.exeVB啟動后，首先顯示“新建工程對話框，缺省狀態(tài)下“新建工程對話框的選項為“標準EXE ，是典型的應用程序。2.Visual Basic 的啟動與退出4 退出VB 單擊“關閉按鈕，或選擇“文件菜單中的“退出命令或按ALT+Q2.Visual Basic 的啟動與退出5 3.主窗口由標題欄、菜單欄和工具欄組成 6 菜單欄工具欄代碼窗口工具箱窗體窗口立即窗口監(jiān)視窗

3、口工程窗口屬性窗口布局窗口標題欄標題欄 屏幕頂部的水平條，顯示窗口的標題名字和工作模式。 VB有三種工作模式：設計模式、 運行模式、中斷模式。菜單欄 提供了開發(fā)、調試和保存應用程序所需的工具。菜單欄中有13個菜單項，即“文件、“編輯、“視圖、“工程、“格式、“調試、“運行、“查詢、“圖表、“工具、“外接程序、“窗口、“幫助 。3.主窗口由標題欄、菜單欄和工具欄組成 7 工具欄 它以圖標按鈕的形式提供了常用的菜單命令。單擊工具欄上的按鈕，那么執(zhí)行該按鈕所代表的操作。按照缺省規(guī)定，啟動VB之后顯示“標準工具欄。3.主窗口由標題欄、菜單欄和工具欄組成 8 4.其他窗口窗體設計器窗口9 窗體設計窗口窗

4、體名窗體文件名 簡稱窗體，它可以作為自定義窗口。用戶可以在窗體中添加控件、圖形和圖片來創(chuàng)立所希望的外觀。每個窗口必須有一個的窗體名字，建立窗體時缺省名為Form1,Form2, . . .。 應注意窗體名即Name屬性和窗體文件名的區(qū)別 4.其他窗口工程資源管理器窗口工程是指用于創(chuàng)立一個應用程序的文件的集合。工程資源管理器列出了當前工程中的窗體和模塊三個按鈕：查看代碼，查看對象，切換文件夾共有六種文件類型：窗體文件(.frm)程序模塊文件(.bas)類模塊文件(.cls)工程文件(.vbp)工程組文件.vbg資源文件(.res) 10 4.其他窗口屬性窗口屬性是指對象的特征，如大小、標題或顏色

5、等數據屬性窗口有四局部組成：對象框屬性顯示框屬性列表框當前屬性解釋框11 4.其他窗口工具箱窗口由工具圖標組成。工具分兩類:內部控件(標準控件)ActiveX控件?？丶拖裆w房子使用的門、窗、磚瓦等，都是現成部件，只要到現場組合就可以了VB工具箱中包含了各種VB標準控件。包含一個指針和20個標準控件12 第2章 對象與根本控件沈陽理工大學應用技術學院0.本章內容 對象及其屬性設置 窗體 控件 控件的畫法和根本操作 文本控件 圖形控件 按鈕控件14 1.對象及其屬性設置VB的對象對象 是VB系統(tǒng)中的根本運行實體，對象分二類：一類是預定義對象，由系統(tǒng)設計好可直接使用或操作窗體和控件；另一類是自定義

6、對象?？梢杂脤傩?、方法、事件三個方面來描述它。對象的屬性每個對象都有其特征，在VB中叫做屬性。設置屬性有兩條途徑：在程序設計時設置對象的屬性，需要使用屬性窗口。在程序運行中更改對象的屬性，可以使用VB的賦值語句：對象名.屬性名 屬性值15 1.對象及其屬性設置對象事件 由系統(tǒng)預先設置好的、能被對象識別的動作。如：鼠標的移動(MouseMove)、單擊(Click)和雙擊(Dblclick)，窗體的裝載(Load)等。每一種對象能識別的事件是不同的事件過程響應某事件后所執(zhí)行的程序代碼段。 事件過程的語法格式如下 Sub 對象名_事件名() 處理事件的程序代碼 End Sub16 1.對象及其屬性

7、設置 例如：命令按鈕Command1的單擊(Click)事件過程為： Private Sub Command1_Click() Forml.Caption = “在窗體上畫圓 以圓心(2400，1500)， 半徑為800畫圓 Forml.Circle (2400,1500),800 End Sub17 1.對象及其屬性設置對象方法 方法是對象所能提供的功能。VB的方法用于完成某種特定功能。如對象打印Print方法、顯示窗體Show方法、移動Move方法。調用對象方法： 對象名.方法名例： Form1.Cls 消除窗體Form1上的內容 Print Visual BASIC 在當前窗體上顯示18

8、 1.對象及其屬性設置對象屬性設計激活屬性窗口的方法：1. 用鼠標單擊屬性窗口任何部位2. 執(zhí)行“視圖菜單的“屬性窗口命令3. 按F4鍵4. 單擊工具欄上的“屬性窗口按鈕5. 按組合鍵 Ctrl+PgDn或Ctrl+PgUp對象屬性設計的方法：1. 直接輸入新屬性值2. 選擇輸入通過下拉列表選擇所需屬性值3. 利用對話框設置屬性值19 2. 窗體窗體的結構與屬性窗體的結構：圖標、標題欄、控制菜單、最小化按鈕、最大化按鈕、關閉按鈕 20 2. 窗體窗體的屬性：窗體的許多屬性會影響窗體的外觀。用兩種方法設置窗體屬性： 1通過屬性窗口 2通過程序代碼設置窗體的常用屬性：Name 屬性:窗體的名稱即標

9、識符(缺省值Form1)Caption 屬性:設置標題欄顯示的內容Left 屬性:設置窗體左上角的橫坐標Top 屬性:設置窗體左上角的縱坐標Width 屬性:設置窗體的寬度Height 屬性:設置窗體的高度21 2. 窗體FontBold 屬性：設置窗體上輸出的字符是否為粗體 FontItalic 屬性：設置窗體上輸出的字符是否為斜體 FontName 屬性：決定窗體上正文的字體(缺省為宋體)FontSize 屬性：決定窗體上正文的字體大小Enabled 屬性：決定窗體是否對事件產生響應Visible 屬性：窗體在程序運行時是否可見BackColor 屬性：用于確定窗體的背景顏色ForeCol

10、or 屬性：用于確定窗體里顯示圖片和文本的 前景顏色Moveable 屬性：窗體在程序運行時是否可以移動WindowsState 屬性：窗體在運行時的大小。 0:常態(tài)；1:最小化；2:最大化。Boderstyle 屬性：用于確定窗體的邊框風格22 2. 窗體窗體事件Click事件(單擊) 該事件是在單擊一個空白區(qū)或一個無效控件時發(fā)生。如果單擊的是窗體內的控件，那么執(zhí)行該控件的Click 事件。DbClick事件(雙擊) 該事件是在雙擊一個空白區(qū)或一個無效控件時發(fā)生。Load事件 先把窗體屬性設置為初始值，再執(zhí)行Load事件過程。當應用程序開始運行時，Visual Basic 自動加載并顯示應用

11、程序的啟動窗體。23 2. 窗體Unload事件 從內存中卸載窗體。關閉窗體時觸發(fā)的事件。Activate事件與Deactivate事件 每當一個窗體變成活動窗體時，就會產生一個Activate事件；當另一個窗體或應用程序被激活時，就會產生Deactivate事件。Paint事件 當窗體被移動或放大時，或窗口移動時覆蓋了一個窗體時，觸法該事件。24 3. 控件VB中的控件通常分為3種類型：(1) 內部控件：在默認狀態(tài)下工具箱中顯示的控件都是內部控件，不可從工具箱中刪除。如命令按鈕、單項選擇按鈕、復選框等控件。 (2) ActiveX控件：這類控件單獨保存在.ocx類型的文件中，其中包括各種版本

12、VB提供的控件，另外也有許多軟件廠商提供的ActiveX控件。 (3) 可插入的對象。25 3. 控件內部控件工具箱里列出的是內部控件控件的命名 Name屬性值。為了能見名知義，通常用3個小寫字母作為對象的Name屬性的前綴控件值 用“控件.屬性的格式設置一個控件的屬性值 如：Text1.Text=“hello!26 4. 控件的畫法和根本操作控件的畫法單擊工具箱中控件按鈕，在窗體上拖動鼠標畫出控件。雙擊工具箱中控件按鈕，即可在窗體的中央畫出控件。 控件的根本操作控件的縮放和移動直接使用鼠標拖動控件到需要的地方。利用鼠標指針對準控件的選中標志8個小方塊出現雙向箭頭時，可以改變控件的大小。在屬性

13、窗口修改某些屬性來改變控件的大小和位置。與窗體和控件大小及位置有關的控件屬性有：Left、Top、Width及Height。27 4. 控件的畫法和根本操作控件的根本操作控件的復制與刪除在窗體上，控件的復制和刪除操作同Windows環(huán)境下文件的操作相同。 (1) 選中控件，單擊工具欄上的“復制按鈕將控件復制到剪貼板中。 (2) 單擊“粘貼按鈕將控件粘貼到窗體的左上角。在“是否創(chuàng)立控件數組對話框，單擊“否。刪除活動控件，只需選中控件后按Del鍵或單擊工具欄上的“刪除按鈕。 28 4. 控件的畫法和根本操作控件的根本操作選定多個控件 (1)在窗體的空白區(qū)域利用鼠標左鍵拉出一個矩形框，將需要選中的控

14、件圈上即可選定多個控件。 (2)先按住Shift鍵，再用鼠標單擊所要選中的控件。 通過屬性窗口改變對象的位置和大小 29 5. 文本控件標簽根本屬性 Name、Height、Width、Top、Left、Enabled、Visible、Font、ForeColor、BackColor等與窗體的使用相同常用屬性 Caption：用來改變Label控件中顯示的文本。Alignment：設置Caption屬性中文本的對齊方式，共有三種可選值： 0 左對齊(Left Justify) 1 右對齊(Right Justify) 2 居中對齊(Center Justify)30 5. 文本控件BackSt

15、yle：確定標簽的背景是否透明。值為0時，表示背景透明，標簽后的背景和圖形可見；值為1時，表示不透明，標簽后的背景和圖形不可見。AutoSize：確定標簽是否會隨標題內容的多少自動變化。值為True，隨Caption內容大小自動調整控件本身的大小，且不換行；值為False，表示標簽的尺寸不能自動調整，超出尺寸范圍的內容不予顯示。 WordWrap：設置標簽的標題文字是否能自動換行。True-自動換行, AutoSize=True False-不自動換行31 5. 文本控件32 【例1】在窗體上放置5個標簽，其名稱使用默認值Label1Label5，它們的高度與寬度相同，在屬性窗口，按下表設置它

16、們的屬性 默認控件名Name標題Caption有關屬性設置Label1左對齊Alignment=0， BorderStyle =1 Label2水平居中Alignment=1，BorderStyle =1Label3自動AutoSize=True， WordWarp=False， BorderStyle =1Label4背景白BackColor= &H00FFFFFF&， BorderStyle =0Label5前景紅ForeColor= &H000000FF&， BorderStyle =05. 文本控件事件支持Click(單擊)事件和DblClick(雙擊)事件一般情況不對它進行編程33

17、設置后各標簽的顯示如以下圖5. 文本控件文本框根本屬性 Name、Height、Width、Top、Left、Enabled、Visible、Font、ForeColor、BackColor等與窗體的使用相同常用屬性 Text：顯示的正文內容。當程序運行時，用戶通過鍵盤輸入正文內容，保存在Text屬性中。文本框沒有Caption屬性Maxlength： 設置正文最多字符的個數, 0任意長度值。 MultiLine： 是否為多行， False默認一行 。34 5. 文本控件ScrollBars： 當MultiLine為True時,該屬性才有效。滾動條的形式：0-None：無滾動條1-Horizo

18、ntal：水平滾動條2-Vertical垂直滾動條3-Both水平和垂直滾動條Locked：是否可被編輯屬性，False表示可編輯。PassWordChar：為了掩蓋文本框中輸入的字符。該屬性的設置只有在MultiLine設為 False才有效SelStart：確定在文本框選中文本的起始位置。 第一字符的位置為0。假設沒有選擇文本，那么用于返回或設置文本的插入點位置如果SelStart的值大于文本的長度，那么SelStart取當前文本的長度：35 5. 文本控件SelLength：設置或返回文本框中選定的文本字符串長度字符個數。SelText：設置或返回當前選定文本中的文本字符串。事件和方法C

19、hange ：當改變文本框的Text屬性時會引發(fā)該事件。當用輸入一個字符，就會觸發(fā)一次Change事件GotFocus ： 當控件獲得焦點時發(fā)生LostFocus ： 當控件失去焦點時發(fā)生SetFocus：文本框最常用的方法，是把光標移到指定的文本框對象中。使用形式： 對象.SetFocus36 5. 文本控件37 【例2】在窗體上放置3個文本框和1個命令按鈕，用Change事件改變文本框的Text屬性 Private Sub Command1_Click() Text1.Text = Microsoft Visual Basic 6.0End SubPrivate Sub Text1_Cha

20、nge() Text2.Text = LCase(Text1.Text) Text3.Text = UCase(Text1.Text)End Sub運行程序后單擊命令按鈕，輸出結果是：5. 文本控件38 【例3】設置密碼，在窗體上放置2個文本框和2個命令按鈕5. 文本控件39 編寫按鈕的事件過程： Private Sub Command1_Click() If Text1.Text = 123456 Then Text2.Text = OK,come in! Else Text2.Text = 密碼錯誤，重新輸入！ End IfEnd SubPrivate Sub Command2_Click

21、() Text1.Text = Text2.Text = Text1.SetFocusEnd Sub運行程序后單擊命令按鈕，輸出結果是：6. 圖形控件圖片框和圖象框根本屬性 與窗體屬性相同的屬性。注意對象名稱不能省略，必須是具體的圖片框或圖象框的名。常用屬性 CurrenX和CurrenY：設置下一個輸出的水平或垂直坐標。省略為當前坐標 。 Stretch ：為True 時，依據控件大小調整圖片的大小，這可能使圖片變形。Picture ：用于設置在圖片框中要顯示的圖像文件屬性窗口中設置運行時用Loadpicture 函數裝入 Picture1.Picture=LoadPicture(圖形文件名

22、)40 6. 圖形控件圖形文件的裝入 圖片框和圖象框的區(qū)別圖片框是容器控件，可以作為父控件，而圖像框不能作為父控件。圖片框可以通過Print 方法接收文本，并可接收由像素組成的圖形，而圖像框不能接收圖像框比圖片框占用的內存少，顯示速度快。在設計階段裝入圖形文件通過屬性窗口中的Picture 屬性裝入圖形通過剪貼板把圖形粘貼到圖片框和圖像框中在運行階段裝入圖形文件格式為: 對象.Picture = LoadPicture(“文件名)41 6. 圖形控件42 Private Sub Form_Load() Show Picture1.Print 在圖片框內寫字和畫圓 Picture1.Circle

23、(1200, 1000), 600, RGB(0, 0, 255) End Sub【例4】在窗體上放置1個圖片框，在其中顯示文字和畫圖編寫窗體的事件過程： 6. 圖形控件直線和形狀根本屬性 與窗體屬性相同的屬性。 Shape控件和Line控件只用于外表裝飾，不支持任何事件。 常用屬性 BorderColor ：用來設置顏色BorderStyle：用來確定邊界線的線型,有以下7種0Transparent 透明1Solid ( 缺省值)實線 _2Dash 虛線3Dot 點線. 4DashDot 點劃線-.-.-.-.-.-. 5DashDotDot 雙點劃線-.-.-.-.6InsideSolid

24、 內收實線 _ 43 6. 圖形控件BorderWidth ：用來設置形狀邊界線和直線的寬度BackStyle ：用于決定形狀是否被指定的顏色填充值為0默認：表示形狀邊界內的區(qū)域是透明的值為1： 該區(qū)域由BackColor 所指定的顏色填充FillColor：用來定義形狀的內部顏色FillStyle：決定了形狀控件內部的填充樣式,有8種:0Solid 實線1Transparent (缺省值) 透明2Horizontal Line 水平直線3Vertical Line 垂直直線4 Upward Diagonal 上斜對角線5 DownwardDiagonal 下斜對角線6 Cross 十字線7D

25、iagonalCross 交叉對角線44 6. 圖形控件Shape ：用來確定所畫形狀的幾何特性0 VbShapeRectangle (缺省值)矩形 1 VbShapeSquare 正方形2 VbShapeOvel 橢圓形 3VbShapeCircle 圓形4VbShape-RoundedRectangle 圓角矩形5VbShape-RoundedSquare 圓角正方形45 7. 按鈕控件命令按鈕根本屬性 Name、Height、Width、Top、Left、Enabled、Visible、Font等與窗體的使用相同常用屬性 Cancel：邏輯值，設置為Ture時，程序運行時按Esc鍵與單擊

26、此命令按鈕的效果相同。注意：在一個窗體只能有一個按鈕的Cancel設置為Ture Default：邏輯值，設置為True時，按Enter鍵相當于用鼠標器單擊了該按鈕。注意：在一個窗體只能有一個按鈕的Default設置為Ture46 7. 按鈕控件Value: 檢查該按鈕是否按下. 該屬性在設計時無效Picture : 按鈕可顯示圖片文件(.bmp和.Ico)，只有當Style屬性值設 為1時有效Style : 確定顯示的形式. 0 只能顯示文字, 1 文字、圖形均可事件最常用的事件是Click(單擊)事件不支持DblClick(雙擊)事件47 7. 按鈕控件48 【例5】編寫程序，模擬交通信號

27、燈的切換。在窗體上畫紅、黃、綠3個圖像框和2個命令按鈕，按下表設置它們的屬性 7. 按鈕控件49 編寫事件過程：Private Sub Form_Load() image2.Visible = False image3.Visible = FalseEnd Sub Private Sub Command1_Click() If image1.Visible = True Then image1.Visible = False image2.Visible = True ElseIf image2.Visible = True Then image2.Visible = False image3

28、.Visible = True Else image3.Visible = False image1.Visible = True End IfEnd SubPrivate Sub Command2_Click() EndEnd Sub運行程序后單擊命令按鈕，輸出結果是：第3章 建立簡單VB應用程序沈陽理工大學應用技術學院0.本章內容語句編寫簡單的VB應用程序程序的保存、裝入和運行VB 應用程序的結構與工作方式51 1. 語句語句的書寫規(guī)那么自動語法檢查如果設置了“自動語法檢測選項卡，那么在輸入語句的過程中，VB將自動對輸入的內容進行語法檢查。格式化處理VB會按約定對語句進行簡單的格式化處理，

29、例如關鍵字、函數的第一字母自動變?yōu)榇髮?，運算符前后加空格等。復合語句行每個語句以回車鍵結束。VB允許使用復合語句行，把幾個語句放在一個語句行中，語句之間用冒號“:隔開。語句的續(xù)行當一條語句很長時，用續(xù)行符“_將一個較長的語句分為多個程序行。52 1. 語句賦值語句是把指定的值賦給某個變量或帶有屬性的對象。格式：Let目標操作符=源操作符源操作符為: 變量簡單或下標變量，表達式數值、字符串或邏輯表達式，常量，帶有屬性的對象目標操作符：變量或帶屬性的對象 “=“ 稱為賦值符號，有時序性和方向性功能：把“源操作符的值賦給“目標操作符說明：表達式中的變量必須是賦過值的，否那么變量的初值自動取零值(變長

30、字符串變量取空字符)。例如： a= 1 c= a + b + 3 b未賦過值，為0 執(zhí)行后，c 值為 453 1. 語句利用賦值語句，可以改變變量的值，因此，同一變量在不同時刻可以取不同的值。Private Sub Form_Click() a = 3 : Print *A= & a a = 7 : Print *A= & a a = a * 2 + 3 : Print *A= & a End Sub 運行程序后單擊窗體，輸出的結果如下： *A=3 *A=7 *A=17賦值語句跟數學中等式具有不同的含意，例如賦值語句x=x+1，表示把變量x的當前值加上1后再將結果賦給變量 “先讀后寫：讀出x的

31、內容 加1寫回x覆蓋原有內容54 1. 語句注釋語句在程序的適應位置加上必要的注釋，可以提高程序的可讀性。格式：Rem 注釋內容 或 注釋內容功能：在程序中參加注釋內容，以便于對程序的理解。例如： Rem 交換變量a和b的值 c = a c為臨時單元 a = b b = c55 1. 語句說明：非執(zhí)行語句，起注釋作用，不編譯在程序清單中，但被完整列出。 任何字符都可作注釋內容。通常放在過程、模塊開頭做標題，在執(zhí)行語句單行或復合語句行的后面，必須是最后一個語句。不能放在續(xù)行符-后面。如果使用關鍵字Rem，在Rem和注釋內容之間要加一個空格。 在其他語句后使用Rem關鍵字，必須使用冒號(:)與前面

32、的語句隔開。注釋符(單引號)可以直接寫在其他語句后面。56 1. 語句暫停語句Stop格式： Stop 功能：暫停程序的運行。可用于調試程序設置斷點也可以通過單擊工具欄上的“中斷按鈕來實現使用 Ctrl + Break組合鍵 用于暫停程序的執(zhí)行，執(zhí)行時將自動翻開立即窗口。程序調試結束后，生成可執(zhí)行文件前應刪去所有的Stop語句。57 1. 語句結束語句End格式： End 功能：結束程序的運行。 也可以單擊工具欄上的“結束按鈕。 End Sub 結束一個Sub過程 End Function 結束一個Function過程 End If 結束一個If 語句塊 End Type 結束記錄類型的定義

33、End Select 結束情況語句58 2. 編寫簡單的VB應用程序設計VB應用程序的步驟建立用戶界面的對象窗體設置對象的屬性值編寫程序代碼進入事件過程(翻開“代碼窗口的)4種方法雙擊已建好的控件；執(zhí)行“視圖菜單的“代碼窗口命令；按F7鍵；單擊“工程資源管理器窗口的“查看代碼按鈕。 59 2. 編寫簡單的VB應用程序【例1】在窗體上畫3個命令按鈕和1個文本框，窗體標題設置為“VB程序設計例如 ，3個命令按鈕標題分別設置為“顯示、“去除、“結束，文本框內容設置為空白。程序運行后，單擊第1個命令按鈕，文本框里顯示“歡送使用VB;單擊第2個命令按鈕，去除文本框內容；單擊第3個命令按鈕，結束程序。設計

34、步驟如下：1. 建立用戶界面60 2. 編寫簡單的VB應用程序2. 設置對象屬性 在默認在“屬性窗口中設置以下對象的屬性：設置窗體Form1的Caption(標題名)屬性為“VB程序設計例如 設置文本框Text1的Text(文本內容)屬性為空設置按鈕Command1 的Caption屬性為“顯示設置按鈕Command2 的Caption屬性為“去除設置按鈕Command3 的Caption屬性為“結束。 61 2. 編寫簡單的VB應用程序3. 編寫程序代碼 62 2. 編寫簡單的VB應用程序【例2】設計一個應用程序，由用戶輸入正方形的邊長，計算并輸出正方形的面積 分析：要創(chuàng)立的應用程序用戶界面

35、如圖：63 文本框Text1文本框Text2命令按鈕Command1命令按鈕Command2標簽Label1標簽Label2窗體Form12. 編寫簡單的VB應用程序窗體上含有兩個標簽、兩個文本框和兩個命令按鈕兩個標簽分別用于顯示文字“邊長和“面積兩個文本框用于輸入數據和顯示計算結果程序功能要求： 運行時，用戶在“邊長文本框中輸入某一個數，當單擊“計算按鈕時，那么在“面積文本框中顯示該數的平方數。單擊“結束按鈕，那么結束程序的運行。64 2. 編寫簡單的VB應用程序設計步驟如下： 1. 建立用戶界面 在默認窗體Form1上添加控件，以構建用戶界面 在Form1窗體上添加以下控件：標簽Label

36、1：用于顯示文字“邊長； 標簽Label2：用于顯示文字“面積。文本框Text1：用于邊長數；文本框Text2：用于顯示計算結果(平方數)。命令按鈕Command1：用于計算輸入數的平方，并把結果顯示在文本框Text2中；命令按鈕Command2：用于結束應用程序的運行。65 2. 編寫簡單的VB應用程序2. 設置對象屬性 在默認在“屬性窗口中設置以下對象的屬性：設置窗體Form1的Caption(標題名)屬性為“計算正方形的面積 。設置標簽Label1的Caption屬性為“邊長。設置標簽Label2的Caption屬性為“面積。設置文本框Text1的Text(文本內容)屬性為空。設置文本框

37、Text2的Text屬性為空。 設置按鈕Command1 的Caption屬性為“計算。設置按鈕Command2 的Caption屬性為“結束。其他屬性采用默認值 66 2. 編寫簡單的VB應用程序3. 編寫程序代碼，建立事件過程 程序說明：Dim語句； 數據類型Single(單精度)； Val函數； 語句“Text2.Text=x*x的作用67 3. 程序的保存、裝入和運行程序的保存保存窗體文件 窗體文件 .frm保存工程文件工程文件 .vbp程序的裝入 就是裝入工程文件 程序的運行 解釋運行 生成可執(zhí)行文件執(zhí)行“文件菜單中的“生成exe命令 68 4. VB 應用程序的結構與工作方式構成:

38、 3類模塊 窗體模塊(.frm) 標準模塊(.bas) 類模塊(.cls) 69 5. 小測驗工程的管理工程中的文件常用 工程文件 .vbp 窗體文件 .frm 標準模塊文件 .bas創(chuàng)立、翻開和保存工程創(chuàng)立工程 ；翻開工程；保存工程；關閉工程 添加、刪除和保存文件 添加文件 、刪除文件和保存文件生成可執(zhí)行文件 兩種運行程序的方式：解釋方式；編譯方式 執(zhí)行“文件菜單中的“生成exe命令 70 第4章 數據類型、運算符與表達式沈陽理工大學應用技術學院0.本章內容 根本數據類型 常量與變量 變量的作用域 常用內部函數 運算符與表達式 72 1.根本數據類型 數值型 73 字符串(String) 數

39、值數據類型 貨幣(Currency) 變體(Variant) 其他 整型數 整數Integer) 長整數(Long)浮點數 單精度(Single) 雙精度(Double)1.根本數據類型 字符串用雙引號括起來的一串字符。例如: “Canton 1+2=? Good Morning “ 在VB中，分變長字符串(長度不固定)和定長字符串(長度固定)二種。定長字符串定義變量格式為： String * 常數 如：Dim name as String * 1074 1.根本數據類型 數值整型數 不帶小數局部的數，表示正整數、負整數和零整數Integer): 2個字節(jié)長整數 (Long) ：4個字節(jié)浮點數

40、 表示帶有小數局部的數單精度數(Single)： 4個字節(jié)雙精度數(Double)： 8個字節(jié)75 1.根本數據類型 貨幣專門為處理貨幣而設計的數據類型它可最多保存小數點右邊4位和小數點左邊15位變體是一種可變的數據類型，可以存放任何類型的數據 包括數值、字符串、日期/時間等其他數據類型字節(jié)Byte):1個字節(jié)布爾Boolean): 2個字節(jié)日期Date): 8個字節(jié) 用兩個“#符號把日期和時間的值括起來如：#08/20/2001#、#2001-08-20#對象Object): 4個字節(jié) 可用來表示應用程序中的對象 76 2.常量和變量 常量文字常量字符串常量 例如： “Visual Basi

41、c ,“ 3+5 等數值常量 有4種：整型數，長整型數、貨幣型數和浮點數例如：123，-263，235.987E-8 等布爾常量 (邏輯常量 有Ture和False 兩個值日期常量 例如：#05/16/2007#符號常量 格式： PublicPrivate Const 常量名 As 數據類型=表達式 例如： Const PI=3.14159 As Single 77 2.常量和變量系統(tǒng)常量VB提供可在程序中直接使用 78 2.常量和變量 變量變量的命名規(guī)那么變量名必須以字母開頭；只能由字母、數字和下劃線組成。不能含有小數點、空格等字符；字符個數不得超過255個；不能使用VB的關鍵字(如語句名、

42、函數名等)。例如，Print、Sub、End等不區(qū)分變量名中字母的大小寫79 2.常量和變量變量的命名的本卷須知要見名知義。比方用sum或s代表求和。盡可能簡單明了。 變量名不能與過程名和符號常量名相同。盡量采用VB建議的變量名前綴或后綴的約定來命名。如：intMax。VB不區(qū)分變量名和其他名字中字母的大小寫。為便于閱讀，每個單詞開頭的字母一般用大寫，例如PrintText。 80 2.常量和變量變量的類型和定義 用類型說明符來標識 放在變量名的尾部。其中 %表示整型；&表示長整型；！表示單精度型；#表示雙精度型；表示貨幣型；$表示字符串型。 例如：Total% Amount# Lname$定

43、義變量時指定類型 格式：Declare 變量名 As 類型 其中 “Declare可以是 Dim、Static、Public或Private “As是關鍵字 “類型是根本數據類型或用戶定義類型81 2.常量和變量 說明：Dim：用于標準模塊、窗體模塊或過程中定義變量或數組。每次引用時其值會被重新設置 例如： Dim sum As Integer 把sum定義為整型變量 Static：定義靜態(tài)變量和數組變量。每次引用時其值會繼續(xù)保存 Public：用于標準模塊中定義全局變量或數組 82 3.變量的作用域 局部變量與全局變量 局部變量 在過程內定義的變量模塊變量窗體變量和標準模塊變量全局變量83

44、3.變量的作用域 84 名稱作用域聲明位置使用詞句局部變量過程過程中Dim或Static模塊變量窗體模塊或標準模塊模塊的聲明部分Dim或Private全局變量整個應用程序標準模塊的聲明部分Public或Global3.變量的作用域 默認聲明 就是向程序說明要使用的變量聲明變量(顯式聲明)用Dim、Public、Private或Static語句來聲明變量 例如：Dim sum As Integer 把sum定義為整型變量隱式聲明不加說明就直接使用變量，此時默認的變量類型為變體類型(Variant)也允許使用類型符來聲明變量的類型，如Num%，Sum!85 4.常用內部函數 轉換函數 用于數據類型

45、的轉換例如：Val(A12) 的值為 0 Val(12A12) 的值為 12【例1】使用轉換函數的例如(留給學生分析) 86 Private Sub Form_Click() x = 123 y = 123 a = Chr(Asc(x) + 5) b = Str(Val(x) + 5) c = Val(Str(y) + 5) Print a,b, c End Sub運行程序后單擊窗體，輸出結果如下： 6 128 1235注: 檢驗函數操作可在立即窗口(CTL+G)中用直接方式執(zhí)行4.常用內部函數 數學函數三角函數的自變量單位是弧度 如Sin47應寫成 Sin(47*3.14159/180)函數

46、Int是求小于或等于x的最大整數 例如 Int(2.7)=2, Int(-2.5)=-3當x0時就直接舍去小數，假設x0那么舍去小數位后再減1 利用Int函數可以對數據進行四舍五入。對一個正數x可采用如下式子： Int(x+0.5)用Rnd函數返回隨機數，先用Randomize語句來初始化生成a, b區(qū)間范圍內的隨機整數，可以采用 Int(b-a+1)*Rnd + a)87 4.常用內部函數 【例2】通過隨機函數產生2個兩位正整數，求和并顯示出來 編寫的窗體單擊事件過程代碼如下：88 再次運行程序，單擊窗體后輸出另一組結果是： 產生的兩個隨機數：18 37 和數：55Private Sub F

47、orm_Click() Dim a As Integer, b As Integer, c As Integer Randomize 初始化隨機數生成器 a = Int(90 * Rnd + 10) 產生10,99區(qū)間內的隨機整數 b = Int(90 * Rnd + 10) c = a + b 求兩數之和 Print 產生的兩個隨機數: ; a, b Print 和數: ; c End Sub 運行程序，單擊窗體后輸出結果是： 產生的兩個隨機數：56 71 和數：1274.常用內部函數 日期與時間函數提供某個事件何時發(fā)生及持續(xù)時間長短的信息【例3】使用日期/時間函數例如(留給學生分析)89

48、Private Sub Form_Click() x = #1/1/2021# a = x - Date b = Weekday(x) c = Year(Date) d = Month(Date) e = Hour(Time) f = Minute(Time) Print 現在距離2021奧運會還有： ; a; 天 Print 2021奧運會是：星期; b-1 Print 本月份是：; c; 年; d; 月 Print 現在是：; e; 時; f; 分 End Sub運行程序后單擊窗體，輸出結果如下： 現在距離2021奧運會還有：184天 2021奧運會是：星期1 本月份是：2007年2月 現

49、在是：16時27分4.常用內部函數 字符串函數刪除空白字符函數 LTrim$(S) RTrim$(S) Trim$(S)字符串截取函數 Left$(S,n) Right$(S,n) Mid$(S,p,n)字符串長度測試函數 Len(S)90 4.常用內部函數 String$函數 String$(n,S)空格函數 Space$(n)字符串匹配函數 Instr(f, 字符串1,字符串2,k)字母大小寫轉換 Ucase$(S) Lcase$(S)插入字符串語句Mid$ Mid(字符串, p,n) = 子字符串91 4.常用內部函數 【例4】使用字符串函數例如 先從字符串a中找出某個指定字符(本例為空

50、格)，再以此字符為界拆分成兩個字符串。92 Private Sub Form_Click() Dim a As String, b As String, c As String, n As Integer a = VisualFoxPro 表示空格 n = InStr(a, ) 查找空格位置 b = Left(a, n - 1) 取左邊局部 c = Mid(a, n + 1) 取右邊局部 Print b 顯示左邊局部 Print c 顯示右邊局部End Sub運行程序后單擊窗體，輸出結果如下： VisualFoxPro4.常用內部函數 Shell函數調用各種應用程序 shell命令字符串，窗口

51、類型 命令字符串：可執(zhí)行文件的名字 窗口類型：6種93 5.運算符與表達式 算術運算符 指數運算 例如： 82=64浮點數除法與整數除法 / 和 的區(qū)別：/用于普通除法； 用于整數除法，如果參加運算的數據含有小數，首先將它們四舍五入，再進行運算，結果去掉小數局部。 例如： 1/2=0.5，12=0 ，25.58 6.91=3取模運算 用來求整型數除法的余數 例如： 9 Mod 7 結果為 2 ， 25.58 Mod 6.91結果為 5 94 5.運算符與表達式 算術運算符的優(yōu)先級 (乘方) -(求負) */ Mod +-同級左到右95 5.運算符與表達式 字符串連接 連接符有兩個：&和+都是將

52、兩個字符串連接起來，結果是一個字符串 & 專門字符串連接符，+ 可作加法連接符例如： “計算機& “網絡的結果是“計算機網絡 “123 + “45的結果是：“12345 123 & “ABC 的結果是：“123ABC 96 5.運算符與表達式 關系運算符與邏輯運算符 關系運算符用一個比較運算符把兩個表達式(如算術表達式)連接起來的式子。 值為True(真)和False(假)8種： = = Like Is數值型、日期型看成yyyymmdd位整數按數值大小比較。字符型數據按其ASCII碼比較。漢字字符大于西文字符例：Print 5 3 True Print #3/1/2003# #3/11/200

53、3# Flase Print abc = ABC“ True97 5.運算符與表達式 邏輯運算符 用邏輯運算符把關系表達式或邏輯值連接起來的式子6種按優(yōu)先級：Not(非) 、And(與)、Or(或)、Xor(異或)、Eqv (等價) 、Imp(蘊含)例： Not (23) 2=3 And 45+1 兩個關系表達式為真，結果為真 3 = 3 Or 53 “3=3為真，結果為真98 5.運算符與表達式 字符串表達式與日期表達式 字符串表達式 用連接符&將字符串常量、字符串變量、字符串函數連接起來的式子日期表達式： 用運算符(+或-)將算術表達式、日期型常量、日期型變量和函數連接起來的式子兩個日期型

54、數據相減，其結果是一個數值型數據(相差的天數)。 例如：#8/8/2001# - #6/3/2001# 的結果為：66日期型數據加上天數，其結果為一個日期型數據。 例如：#12/1/2000#+31 的結果為：#01/01/2001#日期型數據減去天數，其結果為一個日期型數據。 例如：#12/1/2000#-32 的結果為：#10/30/2000#99 5.運算符與表達式 表達式的執(zhí)行順序 算術運算優(yōu)先于關系運算，關系運算優(yōu)先于邏輯運算。首先進行函數運算接著進行算術運算，其次序為： 冪() 取負(-) 乘、浮點除(*、/) 整除() 取模(Mod) 加法和減法(+、-) 字符串連接(&)然后進

55、行關系運算 相等(=)、不等()、小于()、小于等于(=)(注：6 個運算符同級) 最后進行邏輯運算 非(Not) 與(And) 或(Or) 異或(Xor) 等價(Eqv) 蘊涵(Imp)100 5.運算符與表達式 【例5】判斷某一年是否閏年。判斷條件：年號(y)能被4整除，但不能被100整除；或者能被400整除用邏輯表達式來表示這個條件，寫成： (y Mod 4=0 And y Mod 1000) Or (y Mod 400=0)也可寫成：(Int(y/4)=y/4 And Int(y/100)y/100) Or Int(y/400)=y/400)101 第5章 數據輸入輸出沈陽理工大學應用

56、技術學院0.本章內容使用Print方法輸出數據使用InputBox函數輸入數據 MsgBox函數和 MsgBox語句字形 打印機輸出 103 1.使用Print方法輸出數據Print方法格式：對象名.Print 表達式列表說明：使用的對象可以是窗體、圖片框或打印機 Print “程序設計 在當前窗體上輸出 Picture1.Print “程序設計 在圖片框上輸出表達式列表是一個或多個表達式，如果省略，那么輸出一個空行有計算和輸出雙重功能，先計算后輸出。輸出數值數據時，前面有一個符號位(正號以空格表示)，后面留有一個空格；輸出字符串時，前后不留空格。104 1.使用Print方法輸出數據【例1】

57、 Private Sub Form_Click() a = 2 b = VB Print 50 * a 計算并輸出表達式的值 Print b 輸出變量的值 Print 輸出空行 Print The Total is 輸出字符串常量 End Sub105 運行結果：1.使用Print方法輸出數據當輸出多個表達式時，各表達式之間用分號“；(緊湊格式)或逗號“，(按區(qū)格式)隔開。按區(qū)格式(14個字符位置)假設語句行末尾有分號或逗號,那么輸出本行輸出項后不換行106 【例2】 Private Sub Form_Click() a = 3: b = 4 Print a, b, 4 + a, Print

58、2 * b Print a, , b Print a=; a, b=; b End Sub運行結果：1.使用Print方法輸出數據【例3】使用Print方法輸出全班學生的平均年齡。 18歲6人，19歲21人，20歲23人，21歲15人。107 Private Sub Form_Click() Dim a As Integer, b As Integer, c As Integer Dim d As Integer, s As Integer, m As Single a = 6 : b = 21 : c = 23 : d = 15 s = a + b + c + d m = (a * 18 +

59、 b * 19 + c * 20 + d * 21) / s 以下舍入到小數后1位 Print 平均年齡：; Int(m * 10 + 0.5) / 10End Sub運行程序后單擊窗體，輸出結果是：平均年齡：19.71.使用Print方法輸出數據與Print方法有關的函數和方法 Tab函數 函數格式：Tab(n) 功能：把輸出位置移到第n列，要輸出的內容放在Tab函數后面，并用分號隔開。如： Print Tab(2);學號；Tab(11);姓名；Tab(21);成績 輸出結果是(1個漢字占2個位置)： 學號姓名成績108 1.使用Print方法輸出數據109 程序代碼如下：Private S

60、ub Form_Click() Print Print Tab(15); 學號; Tab(26); 姓名; Tab(36); 成績 Print Tab(14); String(27, -) 輸出27個減號字符“- Print Tab(14); “19011001; Tab(26); 張小三; Tab(36); 57 Print Tab(14); “19011003; Tab(26); 李小四; Tab(36); 69 Print Tab(14); “19011012; Tab(26); 馬小五; Tab(36); 92 Print Tab(14); String(27, -) 輸出27個減號字