VS2008VB編程實例

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

2、加完善。2.VB語言的基礎(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)識符：標(biāo)識符是指編寫代碼時定義的名稱。在VB中所有的常量、變量、模塊、函數(shù)、類、對象及其屬性都有各自的名稱，這些名稱就是標(biāo)識符。例如： 工程1：一個工程的標(biāo)識符。 Form1：一個窗體的標(biāo)識符。 Class1：一個類模塊的標(biāo)識符。 Modu

3、le1：一個模塊的標(biāo)識符。3.基本數(shù)據(jù)類型數(shù)據(jù)類型類型名稱存儲空間變長字符型String10字節(jié)加字符串長度定長字符型String字符串長度整數(shù)型Integer2字節(jié)長整型Long4字節(jié)單精度型（雙精度型）Single(Double)4字節(jié)（8字節(jié)）字節(jié)型Byte1字節(jié)布爾型Boolean2字節(jié)日期型Date8字節(jié)對象型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)用程序，并在窗體上添加一個標(biāo)簽控件（Label1）,用關(guān)鍵字Dim 聲名一個字符型變量 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上面代碼是對5種數(shù)值型數(shù)據(jù)聲名和賦值并在窗體里顯示出來（在窗體里添加5個文本框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í)隊伍中來！ 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語言編程 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 = 我對它不感興趣 End SubEnd Class上面代碼是在VS2008VB類中建立Window窗體應(yīng)用程序項目，并在窗體中添加2個標(biāo)簽控件（Label1 ,Label2）和2個按鈕控件（Button1 , Button2）并添加了2個按鈕的單擊事件。在窗體觸發(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é)號： & mt.xh & Chr(10) & 成績： & mt.score) Me.Close() End SubEnd Class上面代碼顯示了記錄類型的定義和顯示過程。 圖7、顯示記錄類型上面用的是結(jié)構(gòu)體記錄類型，下面的代碼用類（方法）實現(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)用來顯示類（方法）計算結(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)于一個容器，它對應(yīng)著計算機(jī)內(nèi)存的存儲單元，因此它可以保存數(shù)據(jù)。7.1.變量命名規(guī)則：（1）變量只能由英文、漢字、數(shù)字及下劃線組成。（2）變量名必須由英文字母或漢字開頭，最后一個符號可以是數(shù)據(jù)類型聲明符，如Dim a%。（3）變量名長度可達(dá)255個字符，有效字符為40個。（4）VB中的關(guān)鍵字不能作為變量名。（5）不能在變量名中出現(xiàn)標(biāo)點符號、空格或者嵌入！、#、$、%、&等字符。（6）在變量有效的范圍內(nèi)不能用同名命名變量。（7）變量名不區(qū)分大小寫。7.2.變量聲明的方式（1）顯式聲明變量：使用聲明語句聲明變量。Dim mydata As IntegerPrivat

16、e m_p As StringPublic m_color As ByteStatic itLenght As Integer（2）隱式聲明變量：不聲明直接使用變量。a=153itWidth=357.3.變量的作用域一個變量被聲明后，只在聲明它的區(qū)域內(nèi)有效。例如在一個過程內(nèi)聲明的變量，只在該過程內(nèi)有效；一個在模塊的通用聲明聲明的變量，只在該模塊內(nèi)的所有過程中有效；用Public語句聲明的變量，不僅對于同一模塊內(nèi)的所有過程有效，甚至對于整個應(yīng)用程序的所有過程也都有效。8、常量的聲明當(dāng)程序中需要重復(fù)使用一個其值始終不發(fā)生改變的量時，可用#Const 語句來聲明常量。#Const PI = 3.14

17、159269、運算符 在VB中有4種運算符：算術(shù)運算符、關(guān)系運算符、連接運算符和邏輯運算符。9.1.算術(shù)運算符運算名稱運算符號指數(shù)運算乘法運算*除法運算/求余數(shù)運算Mod整除運算加法運算+減法運算-Dim a As Integer, b As Integera = 100b = a Mod 3MsgBox(b) 圖10、求余運算9.2關(guān)系運算符：用于比較運算符左、右兩邊表達(dá)式之間的大小關(guān)系。其運算結(jié)果為布爾型數(shù)據(jù)（TrueFalse）。VB中的關(guā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)系運算 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 = 密碼錯誤 End If End SubEn

20、d Class上面代碼描述了簡單密碼登錄過程，程序要求輸入數(shù)據(jù)（兩個文本框）。如果兩邊文本框的數(shù)值相等并且大于10成功登錄網(wǎng)站，如果兩邊文本框的數(shù)值不相等或是其中有一個文本框的值為0將顯示“密碼錯誤”信息。 圖14、登錄界面 圖15、顯示密碼錯誤信息 圖16、成功登錄網(wǎng)站第三章 算法和程序控制結(jié)構(gòu)1.算法：是解決某個問題或處理某件事的方法和步驟。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 = 個人信息 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