VS2008VB編程實(shí)例

1、 VS2008VB編程實(shí)例（入門(mén)教程）1. VB(Visual Basic)的發(fā)展微軟公司在1991年推出了建立在Window開(kāi)發(fā)平臺(tái)基礎(chǔ)上的開(kāi)發(fā)工具Visual Basic 1.0。隨著Window操作平臺(tái)的不斷完善，微軟公司也相繼推出了Visual Basic2.0 、Visual Basic3.0和Visaul Basic4.0，這些版本主要用于在Window3.x環(huán)境中的16位計(jì)算機(jī)上開(kāi)發(fā)應(yīng)用程序。1997年微軟公司推出了Visual Basic5.0可以在Window9x或者Window NT環(huán)境中32位計(jì)算機(jī)上開(kāi)發(fā)應(yīng)用程序。1998年又推出Visual Basic6.0，它的功能更

2、加完善。2.VB語(yǔ)言的基礎(chǔ)1.關(guān)鍵字：關(guān)鍵字是指系統(tǒng)使用的具有特定含義的字符。常用的關(guān)鍵字有：Dim、Private , Sub , Public , End , If , Else , Form , Me , Single , As , Integer , Unload , Do , While , MessageBox , For , Next等。2.標(biāo)識(shí)符：標(biāo)識(shí)符是指編寫(xiě)代碼時(shí)定義的名稱(chēng)。在VB中所有的常量、變量、模塊、函數(shù)、類(lèi)、對(duì)象及其屬性都有各自的名稱(chēng)，這些名稱(chēng)就是標(biāo)識(shí)符。例如： 工程1：一個(gè)工程的標(biāo)識(shí)符。 Form1：一個(gè)窗體的標(biāo)識(shí)符。 Class1：一個(gè)類(lèi)模塊的標(biāo)識(shí)符。 Modu

3、le1：一個(gè)模塊的標(biāo)識(shí)符。3.基本數(shù)據(jù)類(lèi)型數(shù)據(jù)類(lèi)型類(lèi)型名稱(chēng)存儲(chǔ)空間變長(zhǎng)字符型String10字節(jié)加字符串長(zhǎng)度定長(zhǎng)字符型String字符串長(zhǎng)度整數(shù)型Integer2字節(jié)長(zhǎng)整型Long4字節(jié)單精度型（雙精度型）Single(Double)4字節(jié)（8字節(jié)）字節(jié)型Byte1字節(jié)布爾型Boolean2字節(jié)日期型Date8字節(jié)對(duì)象型Object4字節(jié)變體型Variant按需分配4.常用數(shù)據(jù)類(lèi)型：4.1字符型（String）Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.Ev

4、entArgs) Handles MyBase.Load Dim strA As String strA = "Hello world" Label1.Text = strA End SubEnd Class上面代碼是在VS2008VB類(lèi)里建立了Window窗體應(yīng)用程序，并在窗體上添加一個(gè)標(biāo)簽控件（Label1）,用關(guān)鍵字Dim 聲名一個(gè)字符型變量 strA 并賦值“Hello world”，再把它賦給標(biāo)簽(Label1)。 圖1、執(zhí)行結(jié)果4.2數(shù)值型 數(shù)值型可分為5種，Integer , Long , Single , Double , Byte 。Public Clas

5、s Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim It As Integer, lt As Long, st As Single, dt As Double, bt As Byte It = 123 lt = 12345678 st = 3.14 dt = 3.1415926 bt = 9 TextBox1.Text = It TextBox2.Text = lt TextBox3.Text = st TextBox

6、4.Text = dt TextBox5.Text = bt End SubEnd Class上面代碼是對(duì)5種數(shù)值型數(shù)據(jù)聲名和賦值并在窗體里顯示出來(lái)（在窗體里添加5個(gè)文本框TextBox控件）。4.3布爾型：又稱(chēng)邏輯類(lèi)型。變量值只是True/False , Yes/No , On/Off等。Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Label1.Text = "歡迎參加到VB學(xué)習(xí)隊(duì)伍中

7、來(lái)！" Label2.Visible = False Button1.Text = "Yes" Button2.Text = "No" End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Label1.Enabled = True Label2.Visible = True Label2.Text = "我很喜歡VB語(yǔ)言編程" End Sub Pr

8、ivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Label1.Enabled = False Label2.Visible = True Label2.Text = "我對(duì)它不感興趣" End SubEnd Class上面代碼是在VS2008VB類(lèi)中建立Window窗體應(yīng)用程序項(xiàng)目，并在窗體中添加2個(gè)標(biāo)簽控件（Label1 ,Label2）和2個(gè)按鈕控件（Button1 , Button2）并添加了2個(gè)按鈕的單擊

9、事件。在窗體觸發(fā)連接事件中把Label2的可視屬性設(shè)置為假（False布爾型） 圖3、執(zhí)行結(jié)果 圖4、按Yes鍵結(jié)果 圖5、按No鍵結(jié)果4.4日期型Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim mydate As Date mydate = #1/1/2015# Me.Visible = False MsgBox(mydate) Me.Close() End SubEnd Class上面代碼

10、是聲明日期型變量，并賦值和用信息框顯示它。 圖6、顯示日期5.記錄類(lèi)型：用戶(hù)自定義類(lèi)型也稱(chēng)記錄類(lèi)型。Public Structure My_data Dim name As String Dim xh As String Dim xb As String Dim score As StringEnd StructurePublic Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim mt As My_data

11、 = "張大山" mt.xb = "男" mt.xh = "201403001" mt.score = "優(yōu)" Me.Visible = False MsgBox("姓名：" & & Chr(10) & "性別：" & mt.xb & Chr(10) & _ "學(xué)號(hào)：" & mt.xh & Chr(10) & "成績(jī)：" & m

12、t.score) Me.Close() End SubEnd Class上面代碼顯示了記錄類(lèi)型的定義和顯示過(guò)程。 圖7、顯示記錄類(lèi)型上面用的是結(jié)構(gòu)體記錄類(lèi)型，下面的代碼用類(lèi)（方法）實(shí)現(xiàn)記錄類(lèi)型。Public Class Form1 Class My_class Dim lx As Integer Dim ly As Integer Dim rx As Integer Dim ry As Integer Sub setlx(ByVal val As Integer) lx = val End Sub Sub setly(ByVal val As Integer) ly = val End Sub

13、 Sub setrx(ByVal val As Integer) rx = val End Sub Sub setry(ByVal val As Integer) ry = val End Sub Function getdata() getdata = (rx - lx) * (ry - ly) End Function End Class Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim mt As My_class mt =

14、New My_class mt.setlx(10) mt.setly(10) mt.setrx(150) mt.setry(200) Label1.Text = mt.getdata End SubEnd Class在窗體中添加標(biāo)簽控件(Label1)用來(lái)顯示類(lèi)（方法）計(jì)算結(jié)果。 圖8、顯示類(lèi)（方法）記錄類(lèi)型6.枚舉類(lèi)型Public Class Form1 Enum my_color m_rod = 190 m_green = 90 m_blue = 165 End Enum Private Sub Form1_Load(ByVal sender As System.Object, ByVal

15、 e As System.EventArgs) Handles MyBase.Load Label1.Text = "My_color" Label2.Text = "m_rod " & my_color.m_rod Label3.Text = "m_green " & my_color.m_green Label4.Text = "m_blue " & my_color.m_blue End SubEnd Class 圖9、顯示枚舉類(lèi)型數(shù)據(jù)7.變量和變量命名變量相當(dāng)于一個(gè)容器，它對(duì)應(yīng)著計(jì)算

16、機(jī)內(nèi)存的存儲(chǔ)單元，因此它可以保存數(shù)據(jù)。7.1.變量命名規(guī)則：（1）變量只能由英文、漢字、數(shù)字及下劃線組成。（2）變量名必須由英文字母或漢字開(kāi)頭，最后一個(gè)符號(hào)可以是數(shù)據(jù)類(lèi)型聲明符，如Dim a%。（3）變量名長(zhǎng)度可達(dá)255個(gè)字符，有效字符為40個(gè)。（4）VB中的關(guān)鍵字不能作為變量名。（5）不能在變量名中出現(xiàn)標(biāo)點(diǎn)符號(hào)、空格或者嵌入！、#、$、%、&等字符。（6）在變量有效的范圍內(nèi)不能用同名命名變量。（7）變量名不區(qū)分大小寫(xiě)。7.2.變量聲明的方式（1）顯式聲明變量：使用聲明語(yǔ)句聲明變量。Dim mydata As IntegerPrivate m_p As StringPublic m_c

17、olor As ByteStatic itLenght As Integer（2）隱式聲明變量：不聲明直接使用變量。a=153itWidth=357.3.變量的作用域一個(gè)變量被聲明后，只在聲明它的區(qū)域內(nèi)有效。例如在一個(gè)過(guò)程內(nèi)聲明的變量，只在該過(guò)程內(nèi)有效；一個(gè)在模塊的通用聲明聲明的變量，只在該模塊內(nèi)的所有過(guò)程中有效；用Public語(yǔ)句聲明的變量，不僅對(duì)于同一模塊內(nèi)的所有過(guò)程有效，甚至對(duì)于整個(gè)應(yīng)用程序的所有過(guò)程也都有效。8、常量的聲明當(dāng)程序中需要重復(fù)使用一個(gè)其值始終不發(fā)生改變的量時(shí)，可用#Const 語(yǔ)句來(lái)聲明常量。#Const PI = 3.14159269、運(yùn)算符 在VB中有4種運(yùn)算符：算術(shù)運(yùn)

18、算符、關(guān)系運(yùn)算符、連接運(yùn)算符和邏輯運(yùn)算符。9.1.算術(shù)運(yùn)算符運(yùn)算名稱(chēng)運(yùn)算符號(hào)指數(shù)運(yùn)算乘法運(yùn)算*除法運(yùn)算/求余數(shù)運(yùn)算Mod整除運(yùn)算加法運(yùn)算+減法運(yùn)算-Dim a As Integer, b As Integera = 100b = a Mod 3MsgBox(b) 圖10、求余運(yùn)算9.2關(guān)系運(yùn)算符：用于比較運(yùn)算符左、右兩邊表達(dá)式之間的大小關(guān)系。其運(yùn)算結(jié)果為布爾型數(shù)據(jù)（TrueFalse）。VB中的關(guān)系運(yùn)算符有：等于（）、大于（>）、小于（<）、大于等于（>=）、小于等于（<=）和不等于（<>）Public Class Form1 Private Sub For

19、m1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim mt As Integer, mk As Integer Label1.Text = "關(guān)系運(yùn)算" Label2.Text = "大數(shù)紅色小數(shù)藍(lán)色" Randomize() mt = Int(Rnd() * 6 + 1) mk = 4 If mt > mk Then Label2.ForeColor = Color.Red End If If mt < mk T

20、hen Label2.ForeColor = Color.Blue End If End SubEnd Class 圖11、關(guān)系運(yùn)算結(jié)果 圖12、關(guān)系運(yùn)算結(jié)果上面程序演示了關(guān)系運(yùn)算的過(guò)程，不同的時(shí)間運(yùn)行程序結(jié)果會(huì)不一樣。9.3連接運(yùn)算符 連接運(yùn)算符有兩個(gè)：“+”和“&”?！?amp;”連接符用于強(qiáng)制把兩個(gè)表達(dá)式作為字符串連接?！?”運(yùn)算符是兩個(gè)表達(dá)式都為同一類(lèi)型，如果是字符串將兩個(gè)字符串連接，如果是數(shù)字，則結(jié)果為兩個(gè)數(shù)字相加的和。Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal

21、e As System.EventArgs) Handles MyBase.Load Dim strA As String, strB As String, intA As Integer strA = "連接" strB = "運(yùn)算" intA = 55 Label1.Text = strA & strB Label2.Text = strA & intA Label3.Text = 10 + intAa End SubEnd Class 圖13、連接運(yùn)算9.4邏輯運(yùn)算符 邏輯非（Not）、邏輯與（And）、邏輯或（Or）、邏輯異或（X

22、or）、邏輯等于（Eqv）和邏輯蘊(yùn)含（Imp）。Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Label1.Visible = False Label2.Visible = False End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button

23、1.Click If TextBox1.Text = TextBox2.Text And Val(TextBox1.Text) > 10 Then Label2.Visible = False Button1.Visible = False GroupBox1.Visible = False Label1.Enabled = True Label1.Visible = True Label1.Text = "歡迎登錄本網(wǎng)站" End If If TextBox1.Text <> TextBox2.Text Or Val(TextBox1.Text) = 0

24、 Or Val(TextBox2.Text) = 0 Then Label1.Enabled = False Label2.Enabled = True Label2.Visible = True Label2.Text = "密碼錯(cuò)誤" End If End SubEnd Class上面代碼描述了簡(jiǎn)單密碼登錄過(guò)程，程序要求輸入數(shù)據(jù)（兩個(gè)文本框）。如果兩邊文本框的數(shù)值相等并且大于10成功登錄網(wǎng)站，如果兩邊文本框的數(shù)值不相等或是其中有一個(gè)文本框的值為0將顯示“密碼錯(cuò)誤”信息。 圖14、登錄界面 圖15、顯示密碼錯(cuò)誤信息 圖16、成功登錄網(wǎng)站第三章 算法和程序控制結(jié)構(gòu)1.算法：

25、是解決某個(gè)問(wèn)題或處理某件事的方法和步驟。Public Class Form1 Public xueli(0 To 4) As String Public addfen As Integer Public fenst(0 To 4) As Integer Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.Text = "人才招聘" Label1.Text = "姓名" Label2.Text =

26、"年齡" Label3.Text = "身高" Label4.Text = "學(xué)歷" Button1.Text = "提交" GroupBox1.Text = "個(gè)人信息" GroupBox2.Text = "性別" GroupBox3.Text = "政治面貌" RadioButton1.Text = "男" RadioButton2.Text = "女" RadioButton3.Text = "黨員&

27、quot; RadioButton4.Text = "群眾" GroupBox4.Text = "信息反饋" TextBox5.Multiline = True TextBox5.Height = 80 addfen = 100 xueli(0) = "研究生" xueli(1) = "本科" xueli(2) = "大專(zhuān)" xueli(3) = "中專(zhuān)" xueli(4) = "高中" fenst(0) = 10 fenst(1) = 5 fenst(2

28、) = 3 fenst(3) = 1 fenst(4) = 1 GroupBox4.Visible = False End Sub Sub 處理信息() Dim i As Integer If RadioButton1.ContainsFocus = True Then addfen = addfen + 1 End If If RadioButton3.ContainsFocus = True Then addfen = addfen + 1 End If If Val(TextBox2.Text) > 35 Then addfen = addfen - 1 End If If Val

29、(TextBox2.Text) < 35 Then addfen = addfen + 1 End If If Val(TextBox3.Text) >= 170 Then addfen = addfen + 1 End If If Val(TextBox3.Text) < 160 Then addfen = addfen - 1 End If For i = 0 To 4 If TextBox4.Text = xueli(i) Then addfen = addfen + fenst(i) End If Next i End Sub Private Sub Button1_

30、Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 處理信息() GroupBox4.Visible = True If addfen > 110 Then TextBox5.Text = TextBox1.Text & "同志：你好，你的個(gè)人條件很符合我們公司目前發(fā)展的需求。在此誠(chéng)懇的邀請(qǐng)你到我們公司來(lái)工作！希望你看到信息后3天內(nèi)到我們公司人事部報(bào)到。" End If If addfen >= 105 And addfen <

31、; 110 Then TextBox5.Text = TextBox1.Text & "同志：你好，你的個(gè)人條件符合我們公司目前發(fā)展的需求。在此誠(chéng)懇的邀請(qǐng)你到我們公司來(lái)工作！希望你看到信息后3天內(nèi)到我們公司人事部報(bào)到。" End If If addfen >= 100 And addfen < 105 Then TextBox5.Text = TextBox1.Text & "同志：你好，你的個(gè)人條件基本符合我們公司目前發(fā)展的需求。希望你看到信息后3天內(nèi)到我們公司人事部報(bào)到面試和協(xié)商工作事宜。" End If If addfe

32、n < 100 Then TextBox5.Text = TextBox1.Text & "同志：你好，你的個(gè)人條件不符合我們公司目前發(fā)展的需求。非常抱謙！希望你盡快找到適合的工作。" End If End SubEnd Class上面代碼模仿了一個(gè)簡(jiǎn)單的人才招聘過(guò)程，其中有一個(gè)加減分的算法和反饋信息算法。 圖17、窗體設(shè)計(jì)頁(yè)面和控件添加注：生成窗體設(shè)計(jì)頁(yè)面和控件添加的步驟：1.打開(kāi)VS2008選擇“文件”、“新建”、“項(xiàng)目”2.建立窗體項(xiàng)目3.打開(kāi)主窗口上的“工具箱”按鈕，向窗體上添加控件。 4.點(diǎn)擊添加的控件，打開(kāi)主窗口上的“屬性”按鈕窗口，為控件添加它的

33、屬性。 以上是為窗體添加控件的過(guò)程，重復(fù)3、4步就可以添加自己想要的所有控件。關(guān)于一些控件的初始化設(shè)置，你可以在控件屬性頁(yè)面里完成。如：控件的“Text”（名稱(chēng)屬性）等。也可以在窗體觸發(fā)連接事件里用代碼設(shè)置，這要看個(gè)人習(xí)慣；我比較喜歡自己用代碼設(shè)置，因?yàn)樵谶@過(guò)程中你可以了解到很多關(guān)于控件屬性的知識(shí)，有助于提高自己編程的水平。 圖18、控件初始化顯示窗體（要求提交個(gè)人信息頁(yè)面） 圖19、提交個(gè)人信息并自動(dòng)反饋信息處理2.算法的特性：（1）有窮性：一個(gè)算法（對(duì)任何合法的輸入）在執(zhí)行有窮步后能夠結(jié)束，并且在有限的時(shí)間內(nèi)完成。（2）確定性：算法中的每一步都有確切含義。（3）可行性：算法中的操作能夠用已經(jīng)實(shí)現(xiàn)的基本運(yùn)算執(zhí)行有限次來(lái)實(shí)現(xiàn)。（4）輸入：一個(gè)算法有零個(gè)或者多個(gè)輸入，零個(gè)輸入就是算法本身確定了初始條件。（5）輸出：一個(gè)算法有一個(gè)或多個(gè)輸出，以反映出數(shù)據(jù)加工的結(jié)果，沒(méi)有輸出的算法是沒(méi)有意義的。3.算法的描述方法：為了讓算法清晰易懂，要選擇一種好的描述方法。（1）自然語(yǔ)言：就是用人們?nèi)粘Ｊ褂玫恼Z(yǔ)言描述解決問(wèn)題的方法和步驟。缺點(diǎn)是語(yǔ)法和語(yǔ)義上存在多義性、繁瑣，對(duì)程序流向描述不明了、不直觀。（2）偽代碼：介于自然語(yǔ)言和計(jì)算機(jī)語(yǔ)言之間的文字和符號(hào)。（3）傳統(tǒng)流程圖