【正文】 ， [2]鄭有增 ,孫洪峰 .《 VisualBasic 程序設(shè)計(jì)與實(shí)訓(xùn)教程 》 .北京：中國水利水電出版社， 2021 [3]催華陽 .《 Visual Basic 實(shí)例精選》 .北京：電子工業(yè)出版社， 2021 年 6月（第一版） [4]王彬華 ,李建 華 .《 Visual Basic 精彩編程五十例》 .四川：電子科技大學(xué)出版社， 2021 年 4 月（第一版） [5]羅朝盛 .《 Visual Basic 程序設(shè)計(jì)基礎(chǔ)教程》 .北京：人民郵電出版社，2021 年 6 月（第一版） 內(nèi)部資料 請勿外傳 9JWKf wvGt YM*Jgamp。此時打開“生成工程 ‖對話框，如圖 39 所示，可以選擇工程存放位置以及工程名。 要注意的是，此時該文件還不能在沒有安裝 Visual Basic 的計(jì)算機(jī)上運(yùn)行 。如果是第一次保存工程文件，將出現(xiàn)“文件另存為”對話框，如圖 38所示，可以選擇文件要保存的 位置以及各文件的名字，依提示保存即可。 圖 37 整個運(yùn)行界面 ? 5 保存工程及生成可執(zhí)行文件 創(chuàng)建 Visual 應(yīng)用程序的最后一步是保存工程及生成可執(zhí)行文件（ .exe）。 Command1(index).Caption End If Else If dflag = 0 Then = amp。 初始化代碼 Private Sub Form_Load() dflag = 0 prev = 0 oflag = 0 ind = 0 opnre = 0 ang = / 180 = 4360 End Sub 16 數(shù)字按鈕代碼 以為控件數(shù)組共享同一事件，所以雙擊任一數(shù)字符按鈕，進(jìn)入集成代碼環(huán)境編寫如下代碼： Private Sub Command1_Click(index As Integer) If ind = 4 Then prev = 0 = ind = 0 End If opnre = 0 If oflag = 0 Then = End If oflag = 1 If Command1(index).Caption . Then If 0 Then = amp。 根據(jù)上面的分析可以操作除“ =”按鈕的其他所有按鈕，具體的過程代碼分塊編寫如下： 模塊變量定義 Dim i As Integer Dim opnre As Integer Dim prev As Double Dim oflag As Integer Dim ind As Integer Dim dflag As Integer Public ang As Double 用 Dim 語句在一個模塊的說明部分說明了一個變量，即創(chuàng)建了一個私有的模塊及變量。 （ 2）當(dāng)開始輸入數(shù)字時，如果直接輸入小數(shù)點(diǎn)“ .”，則以“ 0.”代替。 （ 5） 每點(diǎn)擊退格鍵“ Backspace”一次，刪除一個已寫入的字符，當(dāng)回退到頭 15 部的時候，點(diǎn)擊退格鍵不再起作用。 （ 3）對于“ ”負(fù)號字符，只允許在數(shù)字開始處寫入。 （ 2）不能在一個數(shù)字中出現(xiàn)兩個小數(shù)點(diǎn)。思路歸納如下： 第一、 關(guān)于輸入的規(guī)范 （ 1） 數(shù) 字和運(yùn)算符必須交替輸入，而且必須是從數(shù)字開始。 表 31 計(jì)算器窗體及各個控件的主要屬性 控件類型 控件名 主要屬性 Form Form1 Caption=“實(shí)用計(jì)算器” TexBox Text1 Text=“ 0” Alignment=1 – Right Justify Locekd=True CommandButton Command1(0) Caption=“ 0” Command1(1) Caption=“ 1” Command1(2) Caption=“ 2” Command1(3) Caption=“ 3” Command1(4) Caption=“ 4” Command1(5) Caption=“ 5” Command1(6) Caption=“ 6” Command1(7) Caption=“ 7” Command1(8) Caption=“ 8” Command1(9) Caption=“ 9” Command1(10) Caption=“ .” Command2(0) Caption= ―+‖ Command2(1) Caption= ―‖ Command2(2) Caption= ―/‖ Command2(3) Caption= ―*‖ Command2(4) Caption= ―=‖ Command3(0) Caption= ―sin‖ Command3(1) Caption= ―cos‖ Command3(2) Caption= ―tan‖ Command3(3) Caption= ―cot‖ 14 續(xù)表： 控件類型 控件名 主要屬性 CommandButton Command4（ 0） Caption=“ 1/x” Command4（ 1） Caption=“ x^2” Command4（ 2） Caption=“ SQL” Command4（ 3） Caption=“ log” Command4（ 4） Caption=“ N!” Command5 Caption=“ +/” Command6 Caption=“ Backspace” Command7 Caption=“ clr” Command8 Caption=“ ” Timer Timer1 Enabled=“ False” Timer2 Enabled=“ False” ? 3 編寫代碼 因?yàn)閷?shí)用計(jì)算器的程序是實(shí)現(xiàn)簡單的表達(dá)式計(jì)算，所以在沒有按下“ =”按 鈕之前，所做的工作就是表達(dá)式的輸入與顯示， 這一部分主要講解通過按鈕響應(yīng)獲取表達(dá)式。 本次實(shí)用計(jì)算器的總的窗體布置如圖 35 所示。 添加 mand5 控件 /+，添加 Command6 控件 Backspace，添加 Command7控件 Clr，添加 Command8 控件為 隱藏 /顯示界面的按鈕。 12 添加“運(yùn)算符”按鈕控件數(shù)組 ，同理創(chuàng)建運(yùn)算符控件數(shù)組，如圖 34 所示， 其 中加減除乘等 于 的 Index 屬性 為 0、 4 圖 34 添加 Command2 控件數(shù)組 添加其他按鈕，添加 Command3 數(shù)組控件 sin、 cos、 tan、 cot，其 Index 屬性 為 0、 3。其中這里的 Index 作為響應(yīng)程序的傳入?yún)?shù)。 圖 32 提示創(chuàng)建控件數(shù)組 選擇“是”，然后連續(xù)粘貼 10 個，依次把按鈕的 Caption 設(shè)定為 0~9 以及一個小數(shù)點(diǎn)。 添加 TextBox 控件，雙擊標(biāo)準(zhǔn)工具箱的 TextBox 控件，然后調(diào)整其大 小和位置（如圖 31），把控件的 Caption 設(shè)置為“ 0” ；對齊方式（ Alignment）設(shè)為右對齊（ 1— Right Justify）。 將系統(tǒng)默認(rèn)產(chǎn)生的窗體保存為 文件。其中 Command5 為“負(fù)數(shù)”的控件， Command6 為“退格”控件， Command7 為“清零”控件， Command8為隱藏界面的控件。 有 4 個作為函數(shù)運(yùn)算（ sin cos tan cot）的操作按鈕，為數(shù)組控件 Command3。 在 29 個 CommandButton 控件中，有10 個作為 數(shù)字 按鈕（包括小數(shù)點(diǎn)按鈕），為數(shù)組控件 Command1。 （ 5） 保存工程及生成可執(zhí)行文件。 （ 3） 編寫代碼。 10 ? 第三章 實(shí)用計(jì)算器的設(shè)計(jì) Visual Basic 程序設(shè)計(jì)一般有五個步驟，具體如下： （ 1） 創(chuàng)建應(yīng)用程序的界面。該選項(xiàng)卡中列出 Visua 能建立的應(yīng)用程序 類型 現(xiàn)存：用于選擇并打開現(xiàn)有的工程 最新：列出最近打開過的工程幾其所在的文件夾。 （ 1） 啟動 Visual Basic 單擊“開始” —— “程序” —— “ Microsoft Visual Basic 中文版 命令，即可啟動 Visual Basic，彈出如下圖所示的“新建工程”對話框。對象型在 Visual Basic 的 較高層次的編程中實(shí)用。 對象型數(shù)據(jù)（ Object），對象型數(shù)據(jù)作為 32 位地址存儲，該地址可 引用當(dāng)前應(yīng)用程序或其他應(yīng)用程序中的對象。 Null 通常用于數(shù)據(jù)庫應(yīng)用程序，表示未知數(shù)據(jù)或丟失的數(shù)據(jù)。 Empty、 Null、 Error。一個變體型的變量能夠存儲所有系統(tǒng)定義類型的數(shù)據(jù)， 可以隨為它所賦值的值的類型而改變自身類型，系統(tǒng)默認(rèn)的數(shù)據(jù)類型是變體型 。變長字符串，字符串的長度不固定，隨著給字符串變量賦值，它的長度可以發(fā)生變化。在 Visual Basic 中，字符串分為定長 字符串和變長字符串兩種類型。也可以把其他類型的數(shù)據(jù)（數(shù)值型或由數(shù)字組成的字符串型數(shù)據(jù)）轉(zhuǎn)換為邏輯型數(shù)據(jù)，此時，非 0 的數(shù)據(jù)轉(zhuǎn)換為 True， 0 轉(zhuǎn)換為False。它采用定點(diǎn)表示形式，在計(jì)算機(jī)中一般用 8 個字節(jié)來表示，其取值范圍為~ 邏輯型數(shù)據(jù)（ Boolean），邏輯型數(shù)據(jù)有兩個值： True（真）和 False （假） 邏輯型數(shù)據(jù)在計(jì)算機(jī)內(nèi)用 2 個字節(jié)保存。雙精度實(shí)型在計(jì)算機(jī)中用 8 個字節(jié)來表示的實(shí)數(shù)，其取值范圍為 +/~+/。根據(jù)所表示的數(shù)的范圍和精度不同，又可以分為單精 度實(shí)型（ Single）、雙精度實(shí)型（ Double）、貨幣型（ Currency）三種類型。整型是指在計(jì)算機(jī)內(nèi)用兩個字節(jié)來存儲的整數(shù)，其取值范圍為32768~+32767，長整型是指在計(jì)算機(jī)內(nèi)用四個字節(jié)來存儲的整數(shù)，其取值范圍為 2147483648~2147483647。 字節(jié)型為無符號 整數(shù)。 整型表示的就是整數(shù)，整數(shù)運(yùn)算速度快、 精確，但表示數(shù)的范圍小。 Visual Basic 提供的標(biāo)準(zhǔn)數(shù)據(jù)類型有數(shù)值型、邏輯型、日期型、字符串型、可變型、對象型等。 ? Visual Basic 語言基礎(chǔ) 在 Visual Basic 中，為解決各類實(shí)際問題要采用各種不同的數(shù)據(jù)類型。 （ l0） 聯(lián)機(jī)幫助功能 在 VB 中，利用幫助菜單和 F1 功能鍵，用戶可隨時方便地得到所需要的幫助信息。 （ 9） 支持動態(tài)交換、動態(tài)鏈接技術(shù)． 通過動態(tài)數(shù)據(jù)交換 (DDE)的編程技術(shù)， VB 開發(fā)的應(yīng)用程序能與其他 Windows應(yīng)用程序之間建立數(shù)據(jù)通信。利用這種技術(shù)可以動態(tài)創(chuàng)建和編輯 Web 頁面，使用戶在 VB 中開發(fā)多功能的網(wǎng)絡(luò)應(yīng)用軟件。利用 OLE 技術(shù)，能夠開發(fā)集聲音、圖像、動畫、字處理、 Web 等對象于一體的程序。 （ 5） 強(qiáng)大的數(shù)據(jù)庫訪問功能 VB 利用數(shù)據(jù)控件可以訪問多種數(shù)據(jù)庫， VB 6． O 提供的 ADO 控件，不但可以用最少的代碼實(shí)現(xiàn)數(shù)據(jù)庫操作和控制，也可以取代 Data 控件和 RDO 控件。 （ 4） 結(jié)構(gòu)化的程序設(shè)計(jì)語言 VB 具有豐富的數(shù)據(jù)類型，是一種符合結(jié)構(gòu)化程序設(shè)計(jì)思想的語言，而且簡單易學(xué)。在這個環(huán)境中，編 程者可設(shè)計(jì)界面、編寫代碼、調(diào)試程序，直至把應(yīng)用程序編譯成可在 Windows 中運(yùn)行的可執(zhí)行文件，并為它生成安裝程序。整個應(yīng)用程序就是由彼此獨(dú)立的事件過程構(gòu)成。例如，單擊一個命令按鈕，就觸發(fā)了按鈕的 Click(單擊 )事件，該事件中的代碼就會被執(zhí)行。通常稱這種機(jī)制為事件驅(qū)動。面向?qū)ο蟮木幊叹秃孟翊罘e木一樣，程序員可根據(jù)程序和界面設(shè)計(jì)要求，直接在屏幕上 ―畫 出窗口、菜單、按鈕等不同類型的對象，并為每個對象設(shè)置屬性。 （ 5） 充分 利用 Windows 資源 （ 6） 方便實(shí)用的程序向?qū)? Visual Basic 語言 具有以下一些特點(diǎn)： （ 1） 面向?qū)ο? VB 采用了面向?qū)ο蟮某绦蛟O(shè)計(jì)思想。 Visual Basic 的主要特點(diǎn) （ 1） 面對對象的可視化設(shè)計(jì)平臺。 Visual Basic 是基于 BASIC 的可視化程序設(shè)計(jì)語言，它繼承了 BASIC 語言簡單易懂的特點(diǎn)，采用面向?qū)ο?、事件?qū)動的編程機(jī)制， 提供了直觀的可視化