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í)定義的名稱。在VB中所有的常量、變量、模塊、函數(shù)、類、對(duì)象及其屬性都有各自的名稱，這些名稱就是標(biāo)識(shí)符。例如： 工程1：一個(gè)工程的標(biāo)識(shí)符。 Form1：一個(gè)窗體的標(biāo)識(shí)符。 Class1：一個(gè)類模塊的標(biāo)識(shí)符。 Modu

3、le1：一個(gè)模塊的標(biāo)識(shí)符。3.基本數(shù)據(jù)類型數(shù)據(jù)類型類型名稱存儲(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ù)類型：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類里建立了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 Class Form1 Priv

5、ate 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 TextBox4.Text = dt

6、TextBox5.Text = bt End SubEnd Class上面代碼是對(duì)5種數(shù)值型數(shù)據(jù)聲名和賦值并在窗體里顯示出來(lái)（在窗體里添加5個(gè)文本框TextBox控件）。4.3布爾型：又稱邏輯類型。變量值只是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ì)伍中來(lái)！ Label2.Visible

7、= 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 Private Sub Button2_Click(ByVal sender As System.Object, ByVal

8、 e As System.EventArgs) Handles Button2.Click Label1.Enabled = False Label2.Visible = True Label2.Text = 我對(duì)它不感興趣 End SubEnd Class上面代碼是在VS2008VB類中建立Window窗體應(yīng)用程序項(xiàng)目，并在窗體中添加2個(gè)標(biāo)簽控件（Label1 ,Label2）和2個(gè)按鈕控件（Button1 , Button2）并添加了2個(gè)按鈕的單擊事件。在窗體觸發(fā)連接事件中把Label2的可視屬性設(shè)置為假（False布爾型） 圖3、執(zhí)行結(jié)果 圖4、按Yes鍵結(jié)果 圖5、按No鍵結(jié)果4.4日

9、期型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上面代碼是聲明日期型變量，并賦值和用信息框顯示它。 圖6、顯示日期5.記錄類型：用戶自定義類型也稱記錄類型。Public Structure My_da

10、ta 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 = 張大山 mt.xb = 男 mt.xh = 201403001 mt.score = 優(yōu) Me.Visible = Fals

11、e MsgBox(姓名： & & Chr(10) & 性別： & mt.xb & Chr(10) & _ 學(xué)號(hào)： & mt.xh & Chr(10) & 成績(jī)： & mt.score) Me.Close() End SubEnd Class上面代碼顯示了記錄類型的定義和顯示過(guò)程。 圖7、顯示記錄類型上面用的是結(jié)構(gòu)體記錄類型，下面的代碼用類（方法）實(shí)現(xiàn)記錄類型。Public Class Form1 Class My_class Dim lx As Integer Dim ly As Integer Dim rx As Integer Dim ry As Integer Sub s

12、etlx(ByVal val As Integer) lx = val End Sub Sub setly(ByVal val As Integer) ly = val End Sub 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

13、 As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim mt As My_class mt = 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)顯示類（方法）計(jì)算結(jié)果。 圖8、顯示類（方法）記錄類型6.枚舉類型Public Class Form1 Enum my_color m_rod = 190 m_

14、green = 90 m_blue = 165 End Enum Private Sub Form1_Load(ByVal sender As System.Object, ByVal 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、顯示枚舉

15、類型數(shù)據(jù)7.變量和變量命名變量相當(dāng)于一個(gè)容器，它對(duì)應(yīng)著計(jì)算機(jī)內(nèi)存的存儲(chǔ)單元，因此它可以保存數(shù)據(jù)。7.1.變量命名規(guī)則：（1）變量只能由英文、漢字、數(shù)字及下劃線組成。（2）變量名必須由英文字母或漢字開(kāi)頭，最后一個(gè)符號(hào)可以是數(shù)據(jù)類型聲明符，如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 IntegerPrivat

16、e m_p As StringPublic m_color 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.14

17、159269、運(yùn)算符 在VB中有4種運(yùn)算符：算術(shù)運(yùn)算符、關(guān)系運(yùn)算符、連接運(yùn)算符和邏輯運(yùn)算符。9.1.算術(shù)運(yùn)算符運(yùn)算名稱運(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 Form1_Loa

18、d(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 10 Then Label2.Visible = False Button1.Visib

19、le = 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 Or Val(TextBox2.Text) = 0 Then Label1.Enabled = False Label2.Enabled = True Label2.Visible = True Label2.Text = 密碼錯(cuò)誤 End If End SubEn

20、d 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.算法：是解決某個(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_L

21、oad(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.Text = 人才招聘 Label1.Text = 姓名 Label2.Text = 年齡 Label3.Text = 身高 Label4.Text = 學(xué)歷 Button1.Text = 提交 GroupBox1.Text = 個(gè)人信息 GroupBox2.Text = 性別 GroupBox3.Text = 政治面貌 RadioButton1.Text = 男 RadioButton2.Text = 女 RadioBu

22、tton3.Text = 黨員 RadioButton4.Text = 群眾 GroupBox4.Text = 信息反饋 TextBox5.Multiline = True TextBox5.Height = 80 addfen = 100 xueli(0) = 研究生 xueli(1) = 本科 xueli(2) = 大專 xueli(3) = 中專 xueli(4) = 高中 fenst(0) = 10 fenst(1) = 5 fenst(2) = 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(TextBox2.T