第第2頁VB2019入門教程安裝VisualBasic2019要使用VisualBasic2019，你必須安裝VisualStudio，因為VisualBasic是VisualStudio的一部分。VisualStudio2019是一個微軟開發工具的套裝，它包含了微軟的開發工具，如VisualBasic，C#，VisualC++，J#等。VisualStudio有四個版本，按功能多少依次是：VisualStudioTeamEditionVisualStudioProfessionalEditionVisualStudioStandardEditionVisualStudioExpressEditionVisualBasicVisualStudioExpressEditionVisualStudioStandardEdition就足夠了。VisualStudio2019安裝詳解VisualStudioTeamEditionVisualStudioVisualStudio的哪個版本，安裝過程幾乎都是一樣的，最多是在安裝功能選項中，有些版本功能多，有些版本功能少而已。VisualStudioInstallVisualStudio。Next按鈕就可以點擊了。點擊Next按鈕之后，你會被要求填寫productkey，請將IacceptthetermsoftheLicenseAgreement勾上，然后填上你的productkey。至于Name欄，一般來說是填寫該軟件的購買者。所有填完之后再按Next。VisualStudio還不是很熟，就直接勾Default，DefualtVisualStudio會自動幫你安裝推薦的功能。如果你覺得還不放心，你可以選擇Full，FullVisualStudio會安裝所有的功能，一個不落。CustomCustom之后，VisualStudio的功能，打勾的表示要安裝，打叉的表示不要安裝。VisualStudioTeamVisualStudio其它版本，你所看到的功能列表可能比這張圖上的要少一些。野眼，為革命保護視力。Success，VisualStudioSetupiscompleted綠色字樣，表示已經成功安裝完畢。OfficeDependencyWarningVisualStudioOffice工具的功OfficeVisualStudioOffice工OfficeServicePack。截圖中的這條提示，在你的安裝中可能根本就不會出現，忽略它就是了。然后點擊畫面右下角的Finish按鈕。點擊了Finish按鈕，安裝程序會自動回到安裝初始畫面。這時候，畫面提示你安裝MSDN，MSDN就是微軟的技術文檔庫。對于使用微軟開發工具的人來說，沒有MSDN就等于砍掉6個指頭讓他打鍵盤。點擊InstallProductDocumentation，會出現如下畫面，按Next按鈕。然后會出現如下畫面，請勾上Iacceptthetermsinthelicenseagreement.然后填上你的UserName信息和Organization信息，通常是填寫該軟件的購買者信息。填完之后，再按Next按鈕。然后出現SetupType畫面，如下。有三個SetupType選項，一個是Full，表示全部安裝，強烈建議你用這個選項。另外兩個分別Custom和Minimum。Custom讓你可以選擇哪些文檔要裝，哪些不要安裝。Minimum表示僅僅安裝你的VisualStudio里面所選功能的相關文檔。然后出現目的目錄選擇畫面，如下。如果你不喜歡安裝在缺省ProgramFiles目錄下，你可以按browswer按鈕，選擇一個目錄。選好目的目錄后，會出現如下畫面。請點擊畫面的Install按鈕。安裝完畢后，會出現如下畫面，按Finish即可。至此，你已經成功安裝好了VisualStudio和MSDN。你真聰明！一個簡單的VisualBasic2019程序VisualBasic2019示VisualBasic開發環境。選擇VisualBasic開發環境設定首先，請打開VisualStudio2019，如果你是第一次打開VisualStudio，屏幕上會顯示一個ChooseDefaultEnvironmentSettings對話框，請選擇VisualBasicDevelopmentSettings，表示你選擇了使用VisualBasic的開發環境。在上一節安裝VisualBasic2005中我們提過，VisualStudio2019是個開發工具套裝，除了包含VisualBasic，它還包含C#,VisualC++等其它開發工具，每個開發工具有不同的開發環境設定。為了方便VisualBasic開發，應選擇VisualBasic開發環境設定，即VisualBasicDevelopmentSettings。VisualStudioToolsImportandExportSettingsResetallsettingsNext按鈕，屏幕上會出現如下畫面：NextVisualBasicDevelopmentFinish即可。新建一個簡單的VisualBasic2019程序好了，現在開始我們就要創建第一個VB2019程序了。打開VisualStudio2019之后，選擇菜單File中的NewProject，會出現NewProject對話框，如下。ProjectTypesWindowsTemplates框中的WindowsApplicationNameWindowsApplication1VisualBasic2019Worddocument1的名字一樣。你可以修改這個NewProject的Name值，不過為了方便，我們姑且就不改了，就叫它WindowsApplication1吧。然后在View菜單中選擇Toolbox，窗口左邊就會顯示Toolbox。至此，VisualBasic2019(IntergratedDevelopmentEnvironment的各種常用窗口VisualBasic2019的集成開發環境吧。VisualBasic2019集成開發環境(IDE)VisualBasic2019集成開發環境，英文為IntergratedDevelopmentEnvironment，簡稱IDE，請記住這個常用的簡稱。VisualBasic2019IDE其實就是用VisualBasic2019編寫程序時出現的窗口，對話框等。IDE提供多種可視化的工具，幫助開發員更加方便地開發VB程序。上圖顯示了IDE畫面。我們一一簡述。IDE頂部是菜單，有Files，Edit，View，Project，Build，Debug，Data，Tools，Test，Window，Community，Help菜單，見下圖。菜單下面的是工具欄(Toolbar)，就是一些快捷圖標的組合，見下圖。用過微軟Office的用戶應該對菜單和工具欄很熟悉。菜單包含了各種指令。工具欄其實就是提供了用戶一些菜單命令的快捷圖標點擊工具欄的某個圖標其實就是執行菜單項的某個指令比如使用這個 圖標，就相當于執行View菜單中的Toobox命令。IDE左面的Toolbox，見下圖，包含了各種現成的控件和組件，比如按鈕(Button)控件，文本框(Textbox)控件等。IDE中間的大窗口，是設計窗口，你可以在設計窗口設計用戶界面和編寫代碼。IDE右面上方的窗口是解決方案資源管理器(SolutionExplorer)，里面顯示你所編程序的每一個組成部分。IDE右面下方的窗口是屬性(Properties)窗口，顯示你所選中對象的屬性。設計用戶界面簡單介紹了IDE基本組成之后，我們再回到剛才新建的程序。SolutionExplorerForm1.vbPropertiesForm1.vb的相FileNameSolutionExplorerForm1.vb也改成了hellouser.vb。然后我們要向畫面中的窗體Form1中添加幾個常用的控件，如下：1(Label)1(TextBox)2(Button)從Toolbox里選擇Label，然后按住鼠標將其拖到Form1窗體中。選中Form1中的Label1，你可以隨意移動這個Label1，將其放在窗體中適當的位置。然后在Properties窗口里，將Name屬性設為lblName，將Text屬性設為EnterYourName。見下圖。ToolboxForm1Form1TextBox兩邊中間各有一個小方塊，鼠標移到小方塊上，可以擴大TextBox的長度。然后在Properties窗口里，將Name屬性改成txtName。見下圖。ToolboxForm1ButtonForm1中PropertiesButtonName屬性設置為btnShow，TextShow。見下圖。從Toolbox里再選中Button，將其拖放到Form1中。然后將該Button的Name屬性設置為btnExit，Text屬性設置為Exit。見下圖。為程序添加代碼用戶界面設計好之后，現在我們要為這個程序添加代碼了。雙擊寫有Show的Button，你會看到代碼編輯器(CodeEditor)窗口，如下圖。你會看到CodeEditor中有如下代碼：第3頁第第27頁提示提示由于頁面寬度限制，不可能將sub聲明放在一行中。VisualBasic2019允許使用下劃線_將代碼斷開，表示這時前一行的繼續，而下劃線前必須有一個空格，下一行中代碼前的所有空格可忽略。比如，我們在ByValsenderAsSystem.Object,后面加了一個空格和一個下劃線_，將原本一行的代碼分成了兩行顯示。PrivateSubbtnShow_Click(ByValsenderAsSystem.Object,_ByValeAsSystem.EventArgs)HandlesbtnShow.ClickPrivateSubbtnShow_Click(ByValsenderAsSystem.Object,_ByValeAsSystem.EventArgs)HandlesbtnShow.ClickEndSub在上述代碼行中間插入下面的代碼：MessageBox.Show("Hello,"&txtName.Text,"Welcome")MessageBox.Show("Hello,"&txtName.Text,"Welcome")此代碼的意思是彈出一個消息框，消息框里會顯示Hello,和用戶輸入TextBox的文字。消息框上面的名稱是Welcome。然后在View菜單中選擇Designer，回到剛才Form1窗體畫面，雙擊寫有Exit的Button，再次回到Codeeditor，這時候，你會看到多加了如下代碼：PrivateSubbtnExit_Click(ByValsenderAsSystem.Object,_ByValeAsSystem.EventArgs)HandlesbtnExit.ClickPrivateSubbtnExit_Click(ByValsenderAsSystem.Object,_ByValeAsSystem.EventArgs)HandlesbtnExit.ClickEndSub在上述代碼中加入如下代碼：Me.Close()此代碼的意思是關閉當前Form。測試程序界面和代碼部分都完成了，現在我們可以測試一下程序了。選擇Debug菜單中的StartDebugging。這時，你會看到彈出一個Form1窗口，如下圖。TextBoxShowHello,woyouxian彈出消息框。要關閉這個消息框，按OK即可。我們再試試Exit按鈕，點擊這個按鈕，Form1窗口就關閉了。保存程序測試完程序以后，你可能需要保存程序，以便日后查看和修改。選擇File菜單中的SaveAll，你會看到如下畫面，點擊Save即可。其中Location是存放程序的目錄，你可以通過點擊Browse按鈕，選擇合適的目錄存放你的程序。這樣一個簡單的VisualBasic程序就完成了。一點不難吧。有些讀者喜歡直接用英文術語，有些則希望用中文，我采取這樣的方式，在每一章節中第一次寫到某個術“解決方案資源管理器(Solution語，都已經非常中文化了，我就用中文；比如IDE，我就寫英文。什么是編程語言(ProgrammingLanguage)?在集中精力開始學習VisualBasic2019編程語言(ProgrammingLanguage)之前，了解什么是編程語言及其原理（包括一些編程術語）對你會有幫助。編程原理計算機本身并不聰明。計算機本質上不過是一大堆微小的電子開關，這些開關只有兩個功能，不是開就是關。通過設置這些開關的不同組合，可以使計算機做一些事情，例如在屏幕上顯示某些內容或發出聲音。這就是最簡單的編程概念：告訴計算機做什么。當然，了解哪些開關組合能使計算機做你想做的事是一件極其困難的任務，這也是編程語言產生的原因。什么是編程語言？人們通過使用由很多詞語組成的語言來表達自己的思想。而計算機使用一種只包含1和0的簡單語言，其中1表示“開”，0表示“關”。嘗試用0和1和計算機交流就好像嘗試用摩爾斯電報碼與朋友交談一樣——是可以這樣做，但是何必呢？編程語言相當于你和計算機之間的翻譯。您不必學習計算機自己的語言（即“機器語言”），而是可以使用編程語言，以一種更易于學習和理解的方式向計算機發出指令。(Compiler)VisualBasic-->編譯器-->Basic本身就提供，你就不用多操心了。所以對你來說，你根本不用了解機器語言，也不用了解編譯器，你只要學會使用VisualBasic語言就行了。VisualBasic語言的內部結構VisualBasic與你日常使用的語言非常類似。當您說話或寫作時會用到不同類型的詞，例如VisualBasic也有不同類型的詞（“編程元素”），這些編程元素定義了各自在編程中的用法。VisualBasic中的編程元素包括語句(Statement)、聲明(Declaration)、方法(Method)、運算符(Operator)和關鍵字(Keywords)。Car.Speed.Maximum=55書面語和口語也具有結構：例如，一本書內有章節，章節內有段落，段落內有句子。用VisualBasic編寫的程序也具有結構：模塊(Module)相當于章節，過程(Procedure)相當于段落，而代碼行相當于句Car.Speed.Maximum=55書面語和口語也具有結構：例如，一本書內有章節，章節內有段落，段落內有句子。用VisualBasic編寫的程序也具有結構：模塊(Module)相當于章節，過程(Procedure)相當于段落，而代碼行相當于句子。什么是變量(Variable)?什么是變量(Variable)變量是計算機編程中的一個重要概念。變量是一個可以存儲值的字母或名稱。當你編程時，可使用變量來存儲數字，例如建筑物的高度，或者存儲單詞，例如人的名字。簡單地說，可使用變量表示程序所需的任何信息。”例如，你可以寫個程序來跟蹤罐子里糖豆的數目。因為糖是要被吃掉的，所以罐里糖豆的數目可能會隨著時間的推移而改變。你可以使用一個變量來表示不同時間的糖豆數目，而無需在每次糖豆數目變化時重新修改程序。將信息存儲于變量中使用變量有三個步驟：(declarethevariable)。告訴程序變量的名稱和類型。(assignthevariable)。賦予變量一個要保存的值。(userthevariable)。在程序中獲得變量中所存儲的值。聲明變量DimaNumberAsInteger這行代碼的意思是要使用一個名為DimaNumberAsInteger這行代碼的意思是要使用一個名為aNumber的變量，并且希望它所存儲的值的數據類型為整數(Integer)。aNumber(Integer)42.5這樣帶有小(Double)(String)(Boolean)TrueFalse值。下面是關于如何聲明變量的更多示例。聲明變量時，必須決定其名稱和存儲其中的數據的類型(datatype)。使用Dim和As這兩個關鍵字來聲明變量，如下所示。DimaDoubleAsDoubleDimaNameAsStringDimYesOrNoAsDimaDoubleAsDoubleDimaNameAsStringDimYesOrNoAsBoolean給變量賦值使用=符號給變量賦值，如下例所示。這時候，這個=符號我們稱之為賦值變量運算符(assignmentoperator)。aNumber=42aNumber=42這行代碼的值為42，它存儲在先前聲明的名為aNumber的變量中。聲明變量并給變量賦個缺省值你可以用一行代碼聲明變量，然后用另一行代碼給變量賦值。比如：DimaNumberAsIntegeraNumber=42DimaNumberAsIntegeraNumber=42但是，如果嘗試在賦值前使用變量，可能導致錯誤。因此，最好在同一行代碼中聲明變量和并給變量賦值。即使還不知道變量將要存儲什么值，也可以給變量賦個缺省值(defaultvalue)。上面的兩行代碼就可以寫成：DimaNumberAsInteger=42DimaNumberAsInteger=42更多代碼示例：DimaDoubleAsDouble=0DimaDoubleAsDouble=0DimaNameAsString="defaultstring"DimYesOrNoAsBoolean=True通過用同一行代碼聲明變量并給變量賦個缺省值，可以避免可能發生的錯誤。以后你仍可以使用賦值方法為變量賦給不同的值。試一試(messagebox)窗口中顯示每個值。首先我們將創建存儲代碼的項目。創建項目打開VisualStudio在文件(File)菜單上，單擊新建項目(NewProject)。在新建項目(NewProject)對話框的模板(Templates)窗格中，單擊Windows應用程序(WindowsApplication)。在名稱(Name)框中鍵入Variables，再單擊確定(OK)。VisualBasic將為程序創建文件并打開窗體設計器(FormDesigner)。DimanIntegerAsInteger=42DimaDoubleAsDouble=39.345677653DimanIntegerAsInteger=42DimaDoubleAsDouble=39.345677653DimaStringAsString="Ilikewoyouxian."DimaBooleanAsBoolean=True此代碼聲明四個變量：Integer、Double、String和Boolean，并給它們賦默認值。提示鍵入代碼時，您可能會注意到：在鍵入As后，光標下會出現一個單詞列表。此功能稱為智能感應(Intellisense)Tab鍵完成單詞。注意每當在程序中表示實際文本時，必須用雙引號""將文本括起來。這會告訴程序將文本解釋為實際文本而不是變量名。如果在實際文本中還包含雙引號，你則用兩個雙引號代替。比如下一步，我們將創建變量。創建變量并顯示它們的值雙擊該窗體。代碼編輯器(CodeEditor)打開并顯示名為Form1_Load的代碼節。這節代碼，稱為過程(Procedure)，包含在窗體首次加載到內存中時執行的指令。在Form1_Load過程中，鍵入以下代碼。DimaStringAsString="Ilike""blabla""!"DimaStringAsString="Ilike""blabla""!"給Boolean變量賦True或False值時，則無需用雙引號將其括起來，因為True和False是VisualBasic關鍵字，其本身有特殊的含義。然后在上一步寫的代碼下鍵入以下代碼。MsgBox(anInteger)MsgBox(aDouble)MsgBox(aString)MsgBox(aBoolean)MsgBox(anInteger)MsgBox(aDouble)MsgBox(aString)MsgBox(aBoolean)End前四行代碼使用MsgBox函數告訴程序在新窗口中顯示上一步給每個變量所賦的值。最后一行使用End語句告訴程序在執行完此過程后結束。運行程序選擇調試(Debug)菜單中的開始調試(StartDebugging)運行程序。或者直接按快捷鍵F5運行程序。在出現的每個窗口上單擊確定(OK)。注意每個變量的值依次顯示，然后程序結束。程序結束后，你可以返回并更改代碼中給變量所賦的值，然后再次運行應用程序，你會看到顯示的新值。數據類型(DataType)概要VisualBasic2019(DataType)不僅決定了可存儲在變量中的值或數據的種類，而且決第三個保存名稱，你可以使用前兩個變量執行算術運算，但不能對名稱執行算術運算。可見，為一個變量指定數據類型可以更容易地確定在哪些情況下能夠（或者不能夠）使用該變量。注意其他編程元素，比如常數(Constant)、屬性(Proerpty)和函數(Function)中也會用到數據類型。在以后章節中，你將學習更多有關數據類型的其他用法。用于數字的數據類型lc提供了多種數字數據類型以便更有效地處理數字。最常用的數字數據類型是Integer，該類型用于表示整數，即不帶小數的數字。選擇表示整數的數據類型時，除非存儲在變量中的數字大于二十億左右，你才需要使用Long數據類型，否則使用Integer更為有效。（924.5）。Double數據類型用于表示帶小數的數字。注意DecimalShortSByteUInteger；這些類型通常用于極其龐大的程序中，對這些程序來說，要考慮內存使用或內存速度。作為初學者，你現在只需了解基本的數字數據類型即可。有關常用的數字數據類型使用，請參見數據類型中整數和浮點數的使用。數據類型中整數和浮點數的使用運用VisualBasic處理數字時，要用到兩種類型的數字：整型和浮點型。整型只能表示整數，浮點型主要用于表示帶有小數的數字，雖然浮點數也可以表示整數。常見的整型數學運算廢話少說，先做一個整數變量的計算示例你就大致明白了。Visual(File)(New。在新建項目(NewProject)(Templates)Windows應用程序(WindowsApplication)。在名稱(Name)框中鍵入IntegerMath(OK)。單擊工具箱(Toolbox)里的按鈕(Button)控件，按住鼠標將其拖放到Form1上。然后在屬性PrivateSubbtnIntMath_Click(ByValsenderAsSystem.Object,_ByValeAsSystem.EventArgs)HandlesbtnIntMath.ClickEndSub在上述代碼中插入一些代碼，擴充成如下：(Properties)窗口內將其Name屬性改為btnIntMath，將其Text屬性改為PrivateSubbtnIntMath_Click(ByValsenderAsSystem.Object,_ByValeAsSystem.EventArgs)HandlesbtnIntMath.ClickEndSub在上述代碼中插入一些代碼，擴充成如下：PrivateSubbtnIntMath_Click(ByValsenderAsSystem.Object,PrivateSubbtnIntMath_Click(ByValsenderAsSystem.Object,_ByValeAsSystem.EventArgs)HandlesbtnIntMath.Click'DeclarevariableDimintNumberAsInteger'Setnumber,addnumbers,anddisplayresultsintNumber=16intNumber=intNumber+8MessageBox.Show("Additiontest..."&intNumber,"IntegerMath")'Setnumber,subtractnumbers,anddisplayresultsintNumber=24intNumber=intNumber-2intNumber=16intNumber=intNumber+8MessageBox.Show("Additiontest..."&intNumber,"IntegerMath")intNumber=16intNumber=intNumber+8MessageBox.Show("Additiontest..."&intNumber,"IntegerMath")第一行代碼意思：將16這個整數賦值給變量intNumber。第二行代碼意思：在變量intNumber中存儲當前的intNumber（即16）加8的值。第三行代碼意思：彈出消息框，顯示intNumber最終存儲的數字。依次類推，該程序中的其它代碼你也很好理解，它們分別是變量的減法運算，乘法運算和除法運算。整數的運算中，用+表示加法，-表示減法，*表示乘法，/表示除法。VisualBasic2019中的整數類型(Integer)能表示-2,147,483,648到2,147,483,647之間的整數。簡寫運算符我們可以用簡寫運算符縮短我們的代碼，比如整形運算的主要問題就是對小數部分無能為力。假設我們寫了如下代碼：MessageBox.Show("Subtractiontest..."&intNumber,"IntegerMath")'Setnumber,multiplynumbers,anddisplayresultsintNumber=6intNumber=intNumber*10MessageBox.Show("Multiplicationtest..."&intNumber,"IntegerMath")'Setnumber,dividenumbers,anddisplayresultsintNumber=12intNumber=intNumber/6MessageBox.Show("Divisiontest..."&intNumber,"IntegerMath")EndSub(Debug)(StartF5運行。(OK)即可關閉消息框。我們先看其中這段代碼：intNumber=intNumber+8intNumber=intNumber+8可以簡寫成：intNumber+=8intNumber+=8這樣就不必寫兩次intNumber了。下面依次列示了減法，乘法和除法的簡寫運算符intNumber-=8intNumber*=8intNumber整形運算的問題/=8'TNumber=6'TNumber=6intNumber=intNumber*10.23intNumber610.23intNumber的返回值卻是61。類似的問題也會出現在除法運算中，比如下列代碼：類似的問題也會出現在除法運算中，比如下列代碼：'TNumber=12'TNumber=12intNumber=intNumber/512除以5應該等于2.4，但是intNumber的返回值卻是2。遇到有關小數的運算，我們應該用下面講述的浮點運算。浮點運算先做一個有關浮點運算的示例吧。Visual(File)(New。在新建項目(NewProject)(Templates)窗格中，單擊Windows(WindowsApplication)。在名稱(Name)Floating-PtMath(OK)。在窗體Form1里添加一個按鈕(Button)控件，然后在相關屬性(Properties)窗口內將其Name屬性改為btnFloatMath，將其Text屬性改為DoubleTest。然后雙擊該按鈕，出現Click事件處理程序頭尾兩行代碼，如下：PrivateSubbtnFloatMath_Click(ByValsenderAsSystem.Object,PrivateSubbtnFloatMath_Click(ByValsenderAsSystem.Object,_ByValeAsSystem.EventArgs)HandlesbtnFloatMath.ClickEndSub在其中加入代碼，擴充成如下：PrivateSubbtnFloatMath_Click(ByValsenderAsSystem.Object,_ByValeAsSystem.EventArgs)HandlesbtnFloatMath.Click'DeclarevariableDimdblNumberAsDouble'Setnumber,multiplynumbers,anddisplayresultsdblNumber=45.34dblNumber*=4.333MessageBox.Show("Multiplicationtest..."&dblNumber,"FloatingPoints")'Setnumber,dividenumbers,anddisplayresultsdblNumber=12dblNumber/=7MessageBox.Show("Divisiontest..."&dblNumber,"FloatingPoints")EndSub(Debug)(StartF5運行。dblNumber(Double)，而不是整數(Integer)類型。執行上述代碼，得出的運算結果是帶有小數的數值。提示之所以叫浮點數，主要是因為它存儲數字的方式類似于科學計數法。當用科學計數法表示某個數時，可以表示為1-10之間的某個數乘以10的冪次方。例如，10001被表示為1.0001*104，0.0010001被表示為1.001*10-3。可以看出，小數點”浮動“到第一個數字后面。這種表示法的優點在于不管是大數還是小數，都可以用相同的精度來表示。浮點數變量以相同的方式存儲在計算機里，不過不是10冪次方，而是2的冪次方。雙精度浮點數和單精度浮點數前面的示例中我們用了雙精度浮點數(Double)的數據類型。在VisualBasic中，還提供單精度浮點數(Single)的數據類型。這兩者主要在精度上有區別。雙精度浮點數能精確表示1.79769313486231570E+308到-4.94065645841246544E-324范圍的負數和從4.94065645841246544E-324到1.79769313486231570E+308范圍的正數。單精度浮點數能夠精確表示從-3.4028235E+38到-1.401298E-45的負數和從1.401298E-45到3.4028235E+38的正數。單精度浮點數的精度沒有雙精度那么高，但是所需內存少，運算速度快。提示如果對精度要求不高，則應該盡量避免使用雙精度浮點數，而應該使用單精度浮點數。這一點在一些大型應用程序中非常重要。如果在定義變量時，單精度浮點數就足夠了，但是卻使用了雙精度浮點數，會大大減慢程序的運行。如果某個變量只需要整數類型就足夠了，應避免用浮點數。因為整數的運算速度更快。用于文本的數據類型String數據類型String是一個句子、一個段落、一個字符，還可以什么都沒有（即一個空字符串）。對于始終僅表示一個字符的變量，還可以使用Char數據類型。如果只需在一個變量中保存一個字符，可以使用數據類型Char而不是String。有關String數據類型的使用，請參見數據類型中字符串的使用。數據類型中字符串的使用(String)數(DataType)String的長度是任意的，它可以是一個句子、一個段落、一個字符，還可以什么都沒有（即一個空字符串）。strData="Hello,world!"String用法。strData="Hello,world!"String用法。試一試Visual(File)(New。在新建項目(NewProject)(Templates)Windows(WindowsApplication)。在名稱(Name)Strings，再單擊確定(OK)。單擊工具箱(Toolbox)里的按鈕(Button)控件，按住鼠標將其拖放到Form1上。然后在屬性(Properties)窗口內將其Name屬性改為btnStrings，將其Text屬性設為OK。然后雙擊該按鈕，出現Click事件處理程序頭尾兩行代碼，如下：PrivateSubbtnStrings_Click(ByValsenderAsSystem.Object,PrivateSubbtnStrings_Click(ByValsenderAsSystem.Object,_ByValeAsSystem.EventArgs)HandlesbtnStrings.ClickEndSub在其間加入如下代碼：'DeclarevariableDimstrDataAsString'Setthestring'DeclarevariableDimstrDataAsString'SetthestringvaluestrData="Hello,world!"strResults=strDataOne&strDataTwostrResults="Hello,"&"World!"我們再做一個簡單示例。同上面一個例子一樣，只是在strResults=strDataOne&strDataTwostrResults="Hello,"&"World!"我們再做一個簡單示例。同上面一個例子一樣，只是在Click事件中換如下代碼：'DisplaytheresultsMessageBox.Show(strData,"Strings")(Debug)(StartF5運行。Helloworld!(OK)即可關閉消息框。字符串的連接如何將幾個字符串連接起來成為一個字符串呢？VisualBasic用&符號來進行字符串的連接。比如：'DeclarevariablesDimstrOneAsStringDimstrTwoAsString'DeclarevariablesDimstrOneAsStringDimstrTwoAsStringDimstrResultsAsString'SetthestringvaluesstrOne="Hello"strTwo=",world!"'ConcatenatethestringsstrResults=strOne&strTwo'DisplaytheresultsMessageBox.Show(strResults,"Strings")再修改最后一行代碼看看：'DeclarevariablesDimstrOneAsStringDimstrTwoAsString'DeclarevariablesDimstrOneAsStringDimstrTwoAsStringDimstrResultsAsString'SetthestringvaluesstrOne="Hello"strTwo=",world!"'ConcatenatethestringsstrResults=strOne&strTwo'DisplaytheresultsMessageBox.Show("Theresultis"&strResults,"Strings")以上示例幫助你記住&符號，連接字符串就是用這個符號。字符串長度用Length屬性(Property)可以得到字符串的長度。還是舉個例子說明吧。Visual(File)(New。在新建項目(NewProject)(Templates)窗格中，單擊Windows(WindowsApplication)。在名稱(Name)StringLength(OK)。單擊工具箱(Toolbox)里的按鈕(Button)控件，按住鼠標將其拖放到Form1上。然后在屬性(Properties)窗口內將其Name屬性改為btnLength，將其Text屬性設為Length。然后雙擊該按鈕，出現Click事件處理程序頭尾兩行代碼，如下：'DeclarevariableDimstrDataAs'DeclarevariableDimstrDataAsString'GetthetextfromtheTextBoxstrData="Hello,World!"'DisplaythelengthofthestringMessageBox.Show(strData.Length&"character(s)","Strings")aa得到該字符串的長度。截取字符串的一部分用Substring這個方法(Method)可以得到字符串的某一部分。我們按如下步驟作個示例，演示Substring的用法。Visual(File)(New。在新建項目(NewProject)(Templates)Windows(WindowsApplication)。在名稱(Name)StringSplit(OK)。單擊工具箱(Toolbox)里的按鈕(Button)控件，按住鼠標將其拖放到Form1上。然后在屬性(Properties)窗口內將其Name屬性改為btnSplit，將其Text屬性設為Split。然后雙擊該按鈕，出現Click事件處理程序頭尾兩行代碼，如下：PrivateSubbtnLength_Click(ByValsenderAsSystem.Object,_ByValeAsSystem.EventArgs)HandlesbtnLength.ClickEndSub在其間加入如下代碼：PrivateSubbtnSplit_Click(ByValsenderAsSystem.Object,_ByValeAsSystem.EventArgs)HandlesbtnSplit.ClickPrivateSubbtnSplit_Click(ByValsenderAsSystem.Object,_ByValeAsSystem.EventArgs)HandlesbtnSplit.ClickEndSub在其間加入如下代碼：'DeclarevariableDimstrDataAs'DeclarevariableDimstrDataAsString'GetthetextfromtheTextBoxstrData="Ilikeadmin5/htmlandwoyouxian."'DisplaythefirstthreecharactersMessageBox.Show(strData.Substring(0,3),“Strings”)'DisplaythemiddlethreecharactersMessageBox.Show(strData.Substring(3,3),“Strings”)'Displaythesubstringwithoutfirst6charactersMessageBox.Show(strData.Substring(6),“Strings”)strData.Substring(03)033個字符。strData.Substring(33)3345，6個字符。代碼中的strData.Substring(6)表示從第6個字符算起，取后面的所有字符。替換字符串的某一部分用用Replace這個方法可以替換字符串的某一部分。比如：strNewData=strData.Replace("admin5/html","wowstory")strNewData=strData.Replace("admin5/html","wowstory")表示將變量strData字符串中將所有admin5/html替換成wowstory，將替換后的值賦給變量strNewData。Replace方法有兩個參數，前一個參數表示要被替換掉的字符串，后一個參數表示用來替換的字符串。我們做個示例演示一下Replace方法的用法。Visual(File)(New。在新建項目(NewProject)對話框的模板(Templates)窗格中，單擊Windows應用程序(WindowsApplication)。在名稱(Name)框中鍵入StringReplace，再單擊確定(OK)。單擊工具箱(Toolbox)里的按鈕(Button)控件，按住鼠標將其拖放到Form1上。然后在屬性(Properties)窗口內將其Name屬性改為btnReplace，將其Text屬性設為Replace。然后雙擊該按鈕，出現Click事件處理程序頭尾兩行代碼，如下：PrivateSubbtnReplace_Click(ByValsenderAsSystem.Object,PrivateSubbtnReplace_Click(ByValsenderAsSystem.Object,_ByValeAsSystem.EventArgs)HandlesbtnReplace.ClickEndSub在其間加入如下代碼：DimstrDataAsStringDimstrNewDataAsStringstrData="Ilikeadmin5/htmlandadmin5/htmlandwoyouxian."strNewData=strData.Replace("admin5/html","wowstory")MessageBox.Show(strNewData,"Strings")(Debug)(StartF5運行。admin5/htmlwowstory(OK)即可關閉消息框。其他數據類型TrueFalse值、日期或對程序有特殊含義的數據。對于可表示為True/False、Yes/No、On/Off的值，VisualBasic提供了布爾(Boolean)數據類型。Boolean變量可保存兩個可能值之一：True或False。雖然可以將日期或時間表示為數字，但Date數據類型可以使日期或時間的容易計算，如計算到您的生日還有幾天，或者到午飯時間還差幾分鐘。有關Date數據類型的使用，請參見數據類型中日期的使用。數據類型中日期的使用日期(Date)也是一種常用的數據類型(DataType)。Date可包含年月日小時分鐘秒的信息。日期的大小范圍是從0001年1月1日到9999年12月31日。日期的缺省值是0001年1月1日0:00:00。如何表示日期theDate=#12/2/20192:10:00PM#上面這句代碼表示將一個2019年theDate=#12/2/20192:10:00PM#上面這句代碼表示將一個2019年12月2日下午2點10分的日期值賦給theDate這個變量。注意PrivateSubbtnShow_Click(ByValsenderAsSystem.Object,_ByValeAsSystem.EventArgs)HandlesbtnShow.ClickEndSubPrivateSubbtnShow_Click(ByValsenderAsSystem.Object,_ByValeAsSystem.EventArgs)HandlesbtnShow.ClickEndSub在其間加入如下代碼：你必須以m/d/yyyy的格式表示日期，不管你計算機上的區域和日期如何設置(ControlPanel中RegionalandLanguageOptions里可設)。這樣的顯示是為了避免程序出錯。比如你在程序中用#3/4/1998#表示2019年3月4日，假使將你這個程序裝在其它機器上，而這臺機器上的日期設置卻是dd/mm/yyyy，那你這個日期表示就變成了2019年4月3日。我們再將你的程序裝在另外一個機器上，該機器上的日期設置是yyyy/mm/dd，結果就變成了0003年4月2019日，這是個無效日期，會導致程序編譯錯誤。這里稍微解釋一下剛才所用日期格式的表示，m表示月份，d表示日期，y表示年份。我們做個簡單示例，演示一下如何表示日期。Visual(File)(New。在新建項目(NewProject)(Templates)窗格中，單擊Windows(WindowsApplication)。在名稱(Name)ShowDate(OK)。單擊工具箱(Toolbox)里的按鈕(Button)控件，按住鼠標將其拖放到Form1上。然后在屬性(Properties)窗口內將其Name屬性改為btnShow，將其Text屬性設為Show。然后雙擊該按鈕，出現Click事件處理程序頭尾兩行代碼，如下：'DeclarevariableDimtheDateAsDate'Setthedatevalue'DeclarevariableDimtheDateAsDate'SetthedatevaluetheDate=#12/2/20192:10:00PM#'DisplaytheresultsMessageBox.Show(theDate,"ShowDate")(Debug)(StartF5運行。會彈出一個消息框，消息框中顯示了所賦值的日期。按確認(OK)即可關閉消息框。如何表示當前日期用Now可以表示當前日期。將上面的示例修改一下，將theDate=#12/2/20192:10:00PM#theDate=#12/2/20192:10:00PM#改成theDate=NowtheDate=Now便可以得到當前日期。這個日期是你程序所運行的機器上的當前日期。如何分別得到日期的年、月、日、小時、分鐘、秒等信息用Year屬性可以得到日期的年份值。用Month屬性可以得到日期的月份值。用Day屬性可以得到日期的日值。用Hour屬性可以得到日期的小時值。用Minute屬性可以得到日期的分鐘值。用Second屬性可以得到日期的秒值。用DayOfWeek屬性可以知道該日期是一個星期的第幾天。注意DayOfWeekDayOfWeek從0算起，星期天用0表示，星期一用1表示，依次類推，星期六用6表示。用DayOfYear 屬性可以知道該日期是一年的第幾天。下面一個示例，演示了上述屬性的用法。打開VisualStudio在文件(File)菜單上單擊新建項目(NewProject)。在新建項目(NewProject)對話框的模板(Templates)窗格中，單擊Windows 應用程序(WindowsApplication)。在名稱(Name) 框中鍵入ShowDateProp ，再單擊確定(OK)。單擊工具箱(Toolbox)里的按鈕(Button)控件，按住鼠標將其拖放到Form1上。然后在屬性(Properties)窗口內將其Name 屬性改為btnShow，將其Text屬性設為Show。然后雙擊該按鈕出現Click事件處理程序頭尾兩行代碼，如下：PrivateSubbtnShow_Click(ByValsenderAsSystem.Object,_ByValeAsSystem.EventArgs)HandlesbtnShow.ClickPrivateSubbtnShow_Click(ByValsenderAsSystem.Object,_ByValeAsSystem.EventArgs)HandlesbtnShow.ClickEndSub在其間加入如下代碼：DimtheDateAsDate=NowDimintYearAsInteger=theDate.YearDimintMonthAsInteger=theDate.MonthDimintDayAsInteger=theDate.DayDimintHourAsInteger=theDate.HourDimintMinAsInteger=theDate.MinuteDimintSecAsInteger=theDate.SecondDimintDayWeekAsInteger=theDate.DayOfWeekDimintDayYearAsInteger=theDate.DayOfYearMessageBox.Show(theDate,"showdate")MessageBox.Show("Year:"&intYear,"showdateproperties")MessageBox.Show("Month:"&intMonth,"showdateproperties")MessageBox.Show("Day:"&intDay,"showdateproperties")MessageBox.Show("Hour:"&intHour,"showdateproperties")MessageBox.Show("Minute:"&intMin,"showdateproperties")MessageBox.Show("Second:"&intSec,"showdateproperties")MessageBox.Show("DayofWeek:"&intDayWeek,"showdateproperties")MessageBox.Show("DayofYear:"&intDayYear,"showdateproperties")選擇調試(Debug)菜單中的開始調試(StartDebugging)，運行該程序。或者直接按快捷鍵F5運行。運行以后，會彈出一系列對話框，分別顯示當前日期的年、月、日、小時、分鐘、秒的部分，還會顯示該日期是一個星期的第幾天，是一年的第幾天。如何對日期進行加減運算用AddYears方法可以為指定日期加減年數。用AddMonths 方法可以為指定日期加減月數。用AddDays 方法可以為指定日期加減日數。用AddHours 方法可以為指定日期加減小時數用AddMinutes 方法可以為指定日期加減分鐘數用AddSeconds 方法可以為指定日期加減秒數。上述方法的用法是一樣的，只不過加減的部分不一樣。我們選上述方法的用法是一樣的，只不過加減的部分不一樣。我們選AddDays作示例，其它方法的使用參照這個示例就行了。Visual(File)(New。在新建項目(NewProject)(Templates)窗格中，單擊Windows(WindowsApplication)。在名稱(Name)ShowDateMethod(OK)。單擊工具箱(Toolbox)里的按鈕(Button)控件，按住鼠標將其拖放到Form1上。然后在屬性(Properties)窗口內將其Name屬性改為btnShow，將其Text屬性設為Show。然后雙擊該按鈕，出現Click事件處理程序頭尾兩行代碼，如下：PrivateSubbtnShow_Click(ByValsenderAsSystem.Object,_ByValeAsSystem.EventArgs)HandlesbtnShow.ClickPrivateSubbtnShow_Click(ByValsenderAsSystem.Object,_ByValeAsSystem.EventArgs)HandlesbtnShow.ClickEndSub在其間加入如下代碼：DimtheDateAsDate=NowdimnewDateAsDatenewDate=theDate.AddDays(50)MessageBox.Show(newDate,"shownewdate")(Debug)(StartF5運行。50天。AddDays()里的參數可以是整數也可以是負數。比如：AddDays(50表示加50天AddDays(-50表示減50天如果需要在一個變量中存儲多種類型的數據，可以使用復合數據類型(compositedatatype)。復合數據類型包括數組(Array)、結構(Structure)和類(Class)。在后面的課程中，你會了解到有關這些復合數據類型的更多信息。最后，在有些情況下需要存儲的數據類型在不同的時間可能有所不同。Object數據類型允許你先聲明變量，以后再定義該變量的數據類型。在后面的課程中，你會了解到有關Object數據類型的更多信息。過程(Procedure)-子例程(Sub)和函數(Function)什么是過程(Procedure)MessageBox.Show就是一個內置過程，該過程用來彈出一個消息對話框。VisualBasic2019提供了很多內置過程來執行常見的操作，但是總會有一些情況，你希望程序執行內置過程無法處理的操作。這時候，你就需要自己編寫過程來完成此任務。另外，自己編寫過程也有利于你代碼的復用。過程有兩種，一種叫子例程(Subroutine)，我們通常叫做Sub；另外一種叫函數，通常叫Function。子例程(Sub)PrivateSubShowYearOfNowDimtheDateAsDate=NowMessageBox.Show(theDate.Year,"ShowYear")EndSub用Sub表示子例程開始，用EndSubPrivateSubShowYearOfNowDimtheDateAsDate=NowMessageBox.Show(theDate.Year,"ShowYear")EndSubPublicClassForm1PrivateSubbtnCall_Click(ByValsenderAsSystem.Object,_ByValeAsSystem.EventArgs)HandlesbtnCall.ClickPublicClassForm1PrivateSubbtnCall_Click(ByValsenderAsSystem.Object,_ByValeAsSystem.EventArgs)HandlesbtnCall.ClickShowYear()EndSubPrivateSubShowYear()DimtheDateAsDate=NowMessageBox.Show(theDate.Year,"ShowYear")EndSubEndClass(Debug)(StartF5運行。會彈出一個消息框，消息框中寫著當前日期的年份。按確認(OK)即可關閉消息框。你可以看到，在btnCall_Click事件里調用了ShowYear這個子例程。你也許會想，為什么不將ShowYear這個子例程里的兩行代碼直接寫入btnCall_Click事件，變成下面那樣：我們用下面的示例，演示如何調用這個子例程。Visual(File)(New。在新建項目(NewProject)(Templates)窗格中，單擊Windows(WindowsApplication)。在名稱(Name)Procedure(OK)。單擊工具箱(Toolbox)里的按鈕(Button)控件，按住鼠標將其拖放到Form1上。然后在屬性(Properties)窗口內將其Name屬性改為btnCall，將其Text屬性設為Call。然后雙擊該按鈕，顯示代碼編輯器(CodeEditor)。加入代碼，使其顯示如下PrivateSubbtnCall_Click(ByValsenderAsSystem.Object,_ByValeAsSystem.EventArgs)HandlesbtnCall.ClickPrivateSubbtnCall_Click(ByValsenderAsSystem.Object,_ByValeAsSystem.EventArgs)HandlesbtnCall.ClickDimtheDateAsDate=NowMessageBox.Show(theDate.Year,"ShowYear")EndSub這就要講到代碼的復用。假設有一個過程有50行代碼，你需要在程序中有100次用到這個過程，你只要寫一個過程，然后每次程序需要用到時調用這個例程就行了，而不用在程序的100個地方寫相同的代100個地方寫了相同的代碼，結果發現需要修改，你豈不是要修改100處？而用了過程，你只要修改一處就行了。函數(Function)函數和子例程都是過程，其不同之處在于子例程只執行操作，沒有返回值。而函數則有返回值。用上面的示例修改一下，變成如下代碼。你可以看到，函數GetYear返回一個Integer值。PublicClassForm1PrivateSubbtnCall_Click(ByValsenderAsSystem.Object,_ByValeAsSystem.EventArgs)HandlesbtnCall.ClickPublicClassForm1PrivateSubbtnCall_Click(ByValsenderAsSystem.Object,_ByValeAsSystem.EventArgs)HandlesbtnCall.ClickDimtheYearAsIntegertheYear=GetYear()MessageBox.Show(theYear,"ShowYear")EndSubPrivateFunctionGetArea(ByVallengthAsInteger,_ByValwidthAsInteger)AsIntegerReturnlength*widthEndFunctionPrivateFunctionGetArea(ByVallengthAsInteger,_ByValwidthAsInteger)AsIntegerReturnlength*widthEndFunction在過程聲明中，參數在緊跟著過程名的括號中聲明。每個參數一般都有ByVal關鍵字，如果你不添加ByVal關鍵字，VisualBasic會自動添加它。As關鍵字用來聲明參數的數據類型。If...Then...Else條件語句在生活中，我們要作各種各樣的決定。比如，今天我做個決定：如果我錢包里的錢多于100元，我就去買大閘蟹，不到100元呢，我就隨便買點蔬菜吧。在編程中，你可能也希望程序提供這樣的判斷能力，如果符合某個條件(即當條件為True時)，就執行某些代碼，反之，則執行其它代碼。在VisualBasic中，提供了這樣的決策結構。其中最常用的，就是If...Then...Else語句。If...Then...Else語句If...Then...Else語句基本結構如下：PrivateFunctionGetYear()AsIntegerDimtheDateAsDate=NowReturntheDate.YearEndFunctionEndClass在上述代碼中，函數GetYear有返回值，返回值數據類型為Integer。FunctionEndFunctionFunctionGetYear(AsIntegerAsIntegerInteger類型的。Sub和Function的區別兩者區別在于，Sub只執行操作，沒有返回值；Function不但執行操作，并且有返回值。Sub和Function中的參數有時你要為過程提供一些信息。通過參數，你可以將這些信息傳遞給過程