VB程序設(shè)計(jì)培訓(xùn)全解課件

1、Visual Basic 程序設(shè)計(jì)余杭高級(jí)中學(xué) 姚國(guó)忠第1頁(yè)，共40頁(yè)。VB程序設(shè)計(jì)概述1.VB的發(fā)展 20世紀(jì)60年代中期，Basic（Beginners All-Purpose Symbol Instruction Code 初學(xué)者通用指令代碼）語言問世 1991年，微軟推出Visual Basic 1.0 1999年，微軟推出Visual Basic 6.0 2002年，微軟推出Visual Studio .NET （VB.Net）2.VB特點(diǎn) 簡(jiǎn)單、易學(xué)，可視化編程，基于事件驅(qū)動(dòng)的編程方式（事件，即用戶的動(dòng)作控制程序的流向）、快速開發(fā)（特別是非常界面設(shè)計(jì)方便）第2頁(yè)，共40頁(yè)。VB程序

2、概述3.面向?qū)ο蟪绦蛟O(shè)計(jì)對(duì)象：數(shù)據(jù)（若干屬性）和代碼（若干事件與方法過程）的集合屬性：用來描述和反映對(duì)象特征的參數(shù)方法：是對(duì)象具有的特定的行為或功能，實(shí)質(zhì)上是用來完成特定操作的過程和函數(shù)事件：發(fā)生在對(duì)象上的事情，對(duì)象能識(shí)別的動(dòng)作類： 同一種對(duì)象的統(tǒng)稱，是一個(gè)抽象的整體概念，對(duì)象是類的實(shí)例第3頁(yè)，共40頁(yè)。VB程序概述4.創(chuàng)建VB應(yīng)用程序的一般步驟建立工程界面設(shè)計(jì)代碼編寫運(yùn)行調(diào)試保存編譯5. VB應(yīng)用程序包含的文件工程文件(*.vbp) 窗體文件(*.frm)窗體二進(jìn)制文件(*.frx)標(biāo)準(zhǔn)模塊文件(*.bas)自定義類文件(*.cls)第4頁(yè)，共40頁(yè)。VB程序概述4.創(chuàng)建VB應(yīng)用程序的一般步

3、驟建立工程界面設(shè)計(jì)代碼編寫運(yùn)行調(diào)試保存編譯5.VB程序常用調(diào)試方法斷點(diǎn)調(diào)試、單步調(diào)試（F8）、立即窗口調(diào)試第5頁(yè)，共40頁(yè)。VB程序概述6. VB應(yīng)用程序包含的文件工程文件(*.vbp) 窗體文件(*.frm)窗體二進(jìn)制文件(*.frx)標(biāo)準(zhǔn)模塊文件(*.bas)自定義類文件(*.cls)第6頁(yè)，共40頁(yè)。VB程序設(shè)計(jì)基礎(chǔ)語法1.VB數(shù)據(jù)類型第7頁(yè)，共40頁(yè)。VB程序設(shè)計(jì)基礎(chǔ)語法2.變量、符號(hào)常量定義變量定義：Dim 變量名 As 數(shù)據(jù)類型 Dim 變量名Dim 變量名1 As 數(shù)據(jù)類型, 變量名2 As 數(shù)據(jù)類型Option Explicit （要求變量定義）符號(hào)常量定義Const 常量名

4、= 常量值第8頁(yè)，共40頁(yè)。VB程序設(shè)計(jì)基礎(chǔ)語法一維數(shù)組變量定義：Dim 變量名(下界 To 上界) As 數(shù)據(jù)類型 Dim 變量名(常數(shù)) As 數(shù)據(jù)類型 例如：Dim x(3) As Integer （有4個(gè)數(shù)組元素，默認(rèn)下標(biāo)從0開始，可以使用Option Base 語句改變數(shù)組下標(biāo)的起始值，比如：Option Base 1）第9頁(yè)，共40頁(yè)。VB程序設(shè)計(jì)基礎(chǔ)語法動(dòng)態(tài)數(shù)組；Dim a() As IntegerRedim x(n) 或者 Redim Preserve x(n)多維數(shù)組:Dim 變量名(下界 To 上界,下界 To 上界, ) As 數(shù)據(jù)類型 Dim 變量名(常數(shù)1,常數(shù)2 ,

5、 ) As 數(shù)據(jù)類型 第10頁(yè)，共40頁(yè)。VB程序設(shè)計(jì)基礎(chǔ)語法3. VB運(yùn)算符第11頁(yè)，共40頁(yè)。VB程序設(shè)計(jì)基礎(chǔ)語法4. VB常用系統(tǒng)函數(shù)第12頁(yè)，共40頁(yè)。VB程序設(shè)計(jì)基礎(chǔ)語法第13頁(yè)，共40頁(yè)。VB程序設(shè)計(jì)基礎(chǔ)語法第14頁(yè)，共40頁(yè)。VB程序設(shè)計(jì)基礎(chǔ)語法輸入輸出對(duì)話框函數(shù)：InputBox 、 MsgBoxPrint語句例如：Print 1 + 1 Print 1+1=; 1 + 1, 2+2=, 4 Print Print Hello第15頁(yè)，共40頁(yè)。VB程序設(shè)計(jì)基礎(chǔ)語法5、三種基本控制結(jié)構(gòu)順序結(jié)構(gòu)、選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)賦值語句：變量名=表達(dá)式第16頁(yè)，共40頁(yè)。VB程序設(shè)計(jì)基礎(chǔ)語法塊

6、IF語句：If 條件表達(dá)式1 Then 語句塊1Elseif 條件表達(dá)式2 Then 語句塊2Elseif 條件表達(dá)式3 Then 語句塊3Else 語句塊End If 實(shí)現(xiàn)選擇結(jié)構(gòu)的語句行IF語句：If 條件表達(dá)式1 Then 語句1 Elseif 條件表達(dá)式2 Then 語句2第17頁(yè)，共40頁(yè)。VB程序設(shè)計(jì)基礎(chǔ)語法Select Case 語句：Select Case 測(cè)試表達(dá)式 Case 表達(dá)式列表1 語句塊1 Case 表達(dá)式列表2 語句塊2 . Case Else 語句塊n+1End Select 第18頁(yè)，共40頁(yè)。VB程序設(shè)計(jì)基礎(chǔ)語法For 語句：For 循環(huán)變量=初值 To 終

7、值 Step 步長(zhǎng) 語句塊Next 循環(huán)變量Do 語句：Do while 表達(dá)式 語句塊Loop實(shí)現(xiàn)循環(huán)結(jié)構(gòu)的語句：第19頁(yè)，共40頁(yè)。VB程序設(shè)計(jì)基礎(chǔ)語法上機(jī)練習(xí)1：在窗體上打印九九乘法表第20頁(yè)，共40頁(yè)。VB程序設(shè)計(jì)基礎(chǔ)語法上機(jī)練習(xí)2：將十進(jìn)制數(shù)轉(zhuǎn)換成十六進(jìn)制數(shù)（不使用Hex函數(shù)）第21頁(yè)，共40頁(yè)。上機(jī)練習(xí)2：在窗體上打印楊輝三角（ N層）第22頁(yè)，共40頁(yè)。VB程序設(shè)計(jì)基礎(chǔ)語法6、函數(shù)和過程自定義函數(shù)的聲明：Public|PrivateFunction 函數(shù)名(參數(shù)列表) As 數(shù)據(jù)類型 函數(shù)體End Function第23頁(yè)，共40頁(yè)。VB程序設(shè)計(jì)基礎(chǔ)語法自定義函數(shù)的過程：Publ

8、ic|PrivateSub 過程名(參數(shù)列表) 函數(shù)體End Sub函數(shù)和過程的參數(shù)傳遞：按值傳遞 （ByVal）按地址傳遞（ByRef）第24頁(yè)，共40頁(yè)。按值傳遞Private Sub f1(ByVal x As Integer) x = x + 1End Sub按地址傳遞Private Sub f2(ByRef x As Integer) x = x + 1End SubPrivate Sub Command1_Click() Dim a As Integer a = 10 f1 a MsgBox aEnd SubPrivate Sub Command2_Click() Dim a As

9、 Integer a = 10 f2 a MsgBox aEnd Sub第25頁(yè)，共40頁(yè)。VB程序設(shè)計(jì)基礎(chǔ)語法7、標(biāo)準(zhǔn)模塊從工程菜單中添加標(biāo)準(zhǔn)模塊文件(*.bas)8、變量、函數(shù)、過程的作用域局部變量、模塊變量、全局變量（Public、Global）第26頁(yè)，共40頁(yè)。VB程序設(shè)計(jì)基礎(chǔ)語法9、異常處理On Error Resume NextOn Error Goto 標(biāo)號(hào)第27頁(yè)，共40頁(yè)。上機(jī)練習(xí)3：編寫一個(gè)隨機(jī)生成雙色球號(hào)碼的程序第28頁(yè)，共40頁(yè)。VB常用控件使用2.常用控件 命令按鈕、標(biāo)簽、文本框、復(fù)選框、單選框 列表框、組合框、定時(shí)器、圖片框、圖像框1.窗體3. 菜單、彈出式菜單使

10、用4. 添加第三方控件第29頁(yè)，共40頁(yè)。VB常用控件使用5. VB基礎(chǔ)繪圖畫點(diǎn)：容器對(duì)象名.Pset (x,y),Color畫線：容器對(duì)象名.Line (x1,y1)-(x2,y2),Color畫矩形：容器對(duì)象名.Line (x1,y1)-(x2,y2),Color,B畫圓：容器對(duì)象名.Circle (x,y) ,radius,color第30頁(yè)，共40頁(yè)。VB常用控件使用上機(jī)練習(xí)1：編寫彩票號(hào)碼生成器程序（使用基礎(chǔ)控件改進(jìn)前一個(gè)程序）第31頁(yè)，共40頁(yè)。上機(jī)練習(xí)2：編寫一個(gè)簡(jiǎn)易畫圖板程序第32頁(yè)，共40頁(yè)。文件基礎(chǔ)操作1.文本文件的讀寫打開文本文件Open 文件名 For Input/Ou

11、tpt/Append As #FileNumber例如：n=FreeFileOpen “c:1.txt” For Input As n 以只讀方式打開Open “c:1.txt” For Output As n 以寫文件方式打開Open “c:1.txt” For Append As n 以追加方式打開關(guān)閉文件 ： Close 文件號(hào)第33頁(yè)，共40頁(yè)。文件基礎(chǔ)操作讀取文本文件Line Input #FileNum, 字符串變量名 一次讀入一行文本例如：Dim n As Integer, s As Stringn = FreeFileOpen c:data.txt For Input As n

12、Do While Not EOF(n) Line Input #n, s Text1.Text = Text1.Text & s & vbCrLfLoopClose n 第34頁(yè)，共40頁(yè)。文件基礎(chǔ)操作寫文本文件Print #FileNum,表達(dá)式列表 （與Print語句輸出到窗體效果一樣）例：n = FreeFileOpen “c:data.txt” For Output As n 改為Append，為追加方式寫入Print #n,Text1.text;Close n第35頁(yè)，共40頁(yè)。文件基礎(chǔ)操作寫文本文件：Print #FileNum,表達(dá)式列表 （與Print語句輸出到窗體效果一樣）例：n = FreeFileOpen “c:data.txt” For Output As #n 改為Append，為追加方式寫入Print #n,Text1.text;Close n第36頁(yè)，共40頁(yè)。文件基礎(chǔ)操作2.文件打開、保存對(duì)話框使用（CommandDialog）調(diào)用打開文件對(duì)話框CommandDialog1.ShowOpensFile=CommandDialog1.Filename調(diào)用保存文件對(duì)話框CommandDialog1.ShowSavesFile=CommandDi