【正文】 ? End語句 ? Stop語句 順序結(jié)構(gòu)程序 ? 在事件驅(qū)動機制下，由用戶激發(fā)的某個事件去執(zhí)行相應(yīng)的事件過程。這些事件處理過程之間并無特定的執(zhí)行順序，但每個事件過程內(nèi)部卻包含 3種結(jié)構(gòu)。在順序結(jié)構(gòu)中，語句將按照出現(xiàn)的順序逐條執(zhí)行。 ? 在順序結(jié)構(gòu)程序中，語句的書寫順序和語句的執(zhí)行順序是一致的在順序結(jié)構(gòu)程序中常使用的語句有賦值語句、結(jié)束語句和暫停語句等。 賦值語句 在上面的程序中 ， 讀入數(shù)據(jù) ， 進行計算和輸出結(jié)果 ， 使用的都是賦值語句 。 其中讀入數(shù)據(jù)和進行計算是給普通變量賦值 ，輸出結(jié)果是給文本框的屬性賦值 。 在 VB中變量包括普通變量和屬性變量 。 普通變量名是由用戶定義的 ， 簡稱為變量名 。屬性變量名是系統(tǒng)提供的 ， 簡稱為屬性名 。 都可以使用賦值語句給他們賦值 。 ? 賦值語句的一般格式為： [Let] 變量名 = 表達式 [對象名 .]屬性名 = 表達式 其中 “ =”是賦值號 。 賦值語句的功能是：先計算賦值號右邊表達式的值 ， 然后把表達式的值賦給賦值號左邊的變量 。 ? 賦值號不同于等號 ， 例如 X=Y和 Y=X是代數(shù)中完全一樣的方程 ， 但若出現(xiàn)在 VB語句中 ， 它們是完全不同的賦值語句 。前者是把 Y的值賦給 X， 使 X接收 Y的值 ， Y的值保持不變 。后者是把 X的值賦給 Y， 使 Y接收的 X值 ， X的值保持不變 。 賦值號左邊只能是變量名 ， 不能是常數(shù)或表達式 ， 因為該變量要接收并保存右邊表達式的值 。 賦值號右邊 ， 可以是常數(shù) 、 變量或表達式 ， 可以把常數(shù)和變量看成最簡單的表達式 。 在一個 VB賦值語句中 ， 只允許出現(xiàn)一個賦值號 。 例如X=Y=Z=1， 不代表使變量 X、 Y和 Z都接收并保持數(shù)值 1。 要完成該功能要使用三個賦值語句 。 VB編譯只會將第一個 “ =”解釋為賦值號 ， 將其余的 “ =”解釋為關(guān)系運算符 。 賦值語句可以是 K=K+ M=2*M， 這些在代數(shù)方程中是不合理的 ， 但它們是合法的賦值語句 。 前者代表用原來 K的值加 1再賦給 K， 即使 K增 1。 后者代表用原來 M的值乘 2再賦給 M， 使現(xiàn)在的 M是原來 M的 2倍 。 ? 請分析下面程序的輸出結(jié)果 。 運行該程序 ， 檢查分析的對錯 。 Private Sub Form_Click() Dim num1 As Integer, num2 As Integer Dim sum1 As Double, sum2 As Double Dim str1 As String, str2 As String sum1 = * 1000 sum2 = * 10000 num1 = sum1: num2 = sum2 str1 = 123 str2 = 123 Print num1, num2 Print sum1, sum2 Print str1, str2 Print str1 + num1 Print str1 amp。 num1 End Sub 注釋語句 ? 注釋語句是非執(zhí)行語句 ， 注釋語句是用來給程序作注解的 ，它不是源程序的必要部分 ， 對程序的運行不起任何作用 。 解釋程序和編譯程序都不處理注釋語句 ， 它僅僅是程序員的備忘錄 。 在 VB集成環(huán)境中 ， 注釋語句是綠色的 ， 而注釋語句外的源程序是黑色或藍色的 ， 其中藍色的是保留字或稱關(guān)鍵字 。 在程序中 ， 經(jīng)常用注釋語句說明程序的功能 ， 變量的作用等 。 在調(diào)試程序時 ， 常用注釋語句使某個語句不再執(zhí)行 。在打印輸出源程序時 ， 注釋語句和其他語句一樣輸出 。 ? 注釋語句的一般格式為： Rem|’ 字符串 注釋語句可單獨占一行，也可以放在語句的后面。若在其他語句行后使用 Rem關(guān)鍵字，則必須使用冒號 (： )與前面語句隔開；若在其他語句行后使用單引號，則不必使用冒號。注意：單引號應(yīng)是半角英文的直撇號。 ? 例如 ， 39。────────────────────────── 39。本程序是檢查數(shù)值與數(shù)字字符串用 “ +”運算符 ， 計算的結(jié)果 39。本程序的輸出結(jié)果是 39。────────────────────────── Private Sub Form_Click() Dim Abc As Double 39。定義 Abc為雙精度變量 Dim Xyz As String 39。定義 Xyz為字符串變量 Abc = Xyz = Print Abc + Xyz 39。輸出結(jié)果為 End Sub End語句 ? End語句結(jié)束程序 。 在集成環(huán)境中 ， 程序執(zhí)行到 End語句將返回設(shè)計狀態(tài) 。 若由 VB源程序生成了可執(zhí)行程序或打包后安裝的 VB程序 ， 這樣的程序在 Windows下直接運行 ， 當程序執(zhí)行到 End語句將返回 Windows環(huán)境 。 End語句的一般格式為： End End語句提供了一種強行中止程序的方法 。 End語句可出現(xiàn)在程序任何位置 ， 執(zhí)行到 End語句將停止后續(xù)代碼的執(zhí)行 。 要重新運行程序只能從頭開始 ， 在集成環(huán)境中單擊工具欄中的啟動按鈕 ， 在 Windows環(huán)境雙擊代表該應(yīng)用程序 (可執(zhí)行文件 )的圖標 。 Stop語句 ? Stop語句中斷一個過程或模塊 。 在集成環(huán)境中，程序執(zhí)行到 Stop語句將返回設(shè)計狀態(tài)并顯示代碼窗口，在代碼窗口中 Stop語句加黃色底紋顯示，表示執(zhí)行到該語句。此時可以使用 【 立即窗口 】 詢問變量的值，因此常用 Stop語句調(diào)試程序。執(zhí)行到 Stop語句時 VB集成環(huán)境也有變化，此時的“啟動”變?yōu)椤袄^續(xù)”。若要繼續(xù)運行程序，使用菜單應(yīng)從 【 運行 】 中選擇 【 繼續(xù) 】 命令；或使用工具欄，應(yīng)單擊工具欄的 (繼續(xù) )按鈕 (按鈕的形狀沒有變化，但按鈕的提示信息發(fā)生了變化 )；或按功能鍵 F5 也能繼續(xù)運行程序；此時要想終止程序的執(zhí)行，不能使用用戶窗體右上角的關(guān)閉按鈕，要使用集成環(huán)境的結(jié)束；或使用菜單，應(yīng)從 【 運行 】中選擇 【 結(jié)束 】 命令；或使用工具欄，應(yīng)單擊工具欄的 (結(jié)束 )按鈕。實際上當前用戶程序已被掛起，用戶窗體只能看見但不能操作。 標簽 (Label)控件 ? 標簽控件在工具箱中的圖標是 。 標簽控件 (Label)也稱標簽或標簽框 ，是最常使用的控件之一 ， 常用于輸出文本 ， 顯示提示信息 。 用標簽控件輸出的文本 、 提示信息不能編輯 、 修改 ，所以標簽控件常用來輸出標題 、 顯示處理結(jié)果或標識那些不帶 Caption屬性的控件 ， 如 TextBox控件 。 標簽 控件 ? 標簽控件屬性 ? 標簽控件事件 標簽控件屬性 ? 1. Name(名稱 )屬性 在界面設(shè)計時，用 Name屬性設(shè)置標簽控件的名稱。當程序員向窗體添加標簽控件時，系統(tǒng)為每一個標簽控件起了一個名字，這些名字稱為系統(tǒng)默認名稱。隨著標簽控件的建立，系統(tǒng)賦給標簽控件的默認名稱為 Label Label2等，在默認名稱中 Label永遠保持不變，變化的是后邊的序號，能表示出是第幾個添加的標簽控件。在程序中對控件的操作，都是通過名稱來識別對象。 ? 2. Caption屬性 Caption屬性是字符串類型 ， 用于設(shè)置該標簽控件的標題 。該屬性值就是標簽控件要顯示的內(nèi)容 ， 它既可以在 【 屬性 】窗格中設(shè)定 ， 也可用代碼設(shè)定 。 例如： = 姓名 ? 3. Alignment屬性 數(shù)值型 ， 用于設(shè)置標題的對齊方式 ， 可設(shè)置為 0、 1和 2， 其作用如下： 0－左對齊 ， 從標簽的左邊開始顯示標題 ， 默認值 。 1－右對齊 ， 標題顯示在標簽的右邊 。 2－中間對齊 ， 標題顯示在標簽的中間 。 ? 4. AutoSize屬性 AutoSize屬性是布爾類型 ， 標簽的大小是否隨標題內(nèi)容的大小自動調(diào)整 。 當該屬性設(shè)置為 True時 ， 標簽的大小隨標題內(nèi)容自動調(diào)整 ， 使標簽的大小正好適應(yīng)標題 ， 且不換行 。 當該屬性設(shè)置為 False時 ， 標簽的大小不隨標題內(nèi)容自動調(diào)整 ， 標題超過標簽尺寸的部分不能顯示 。 默認值為 False。 ? 5. BorderStyle屬性 數(shù)值型 ， 用于設(shè)置邊框的樣式 ， 只能取 0或 1， 其作用如下： 0－標簽無邊界線，默認值。 1－標簽有邊界線。 ? 6. BackStyle屬性 數(shù)值型 ， 用于設(shè)置背景的樣式 ， 只能取 0或 1， 其作用如下： 0－透明顯示 ， 默認值 。 1－不透明顯示 。 ? 7. 其他屬性 和窗體、命令按鈕類似，標簽控件也有和大小、位置有關(guān)的屬性，有 Height、 Left、 Top和 Width。標簽控件也有和行為有關(guān)的屬性 Enabled和 Visible。另外，標簽控件有標題，因此有與 Font相關(guān)的屬性及 ForeColor和 BackColor。標簽控件也能顯示提示信息，因此有 ToolTipText屬性。 ? 例 對齊屬性設(shè)置 設(shè)計一個窗體，在窗體上添加 3個命令按鈕和一個大于標簽中顯示內(nèi)容的白色標簽框，標簽框的標題為紅色字 【 對齊 】 ，命令按鈕的標題分別為 【 左對齊 】 、 【 居中顯示 】 和 【 右對齊 】 ，單擊命令按鈕，使標簽框中的字完成對齊格式設(shè)置。 ? 例 顯示系統(tǒng)的年月日 設(shè)計一個窗體，在窗體上畫三個命令按鈕和一個標簽框，命令按鈕的 Caption 屬性分別是“年”、“月”和“日”。要求單擊各命令按鈕時，分別在標簽框中顯示系統(tǒng)的年月日。 ? 例 開始和結(jié)束時間 設(shè)計一個窗體，在窗體上添加 4個標簽和兩個按鈕。程序啟動后，單擊 【 開始 】 按鈕在標簽 3上顯示系統(tǒng)時間。單擊【 結(jié)束 】 按鈕在標簽 4上顯示系統(tǒng)時間。標簽 1和標簽 2標識文本框的作用，當鼠標指針移到命令按鈕上顯示提示信息。 標簽控件事件 ? 標簽控件一般不用來觸發(fā)事件，但可以觸發(fā) Click、 DblClick等事件，也可以編寫相應(yīng)的事件過程。 文本框 (TextBox)控件 ? 文本框控件既能顯示信息又能接收用戶輸入的信息 。通常用于接收輸入的參數(shù) 、 顯示查詢的信息以及程序繼續(xù)運行所需的數(shù)據(jù) 。 文本框中輸入或顯示的信息是可以編輯的 ， 例如進行選擇 、 刪除 、 復(fù)制 、 粘貼 、 替換和修改等操作 ， 完成這些操作甚至不需要編程 。 ? 文本框具有多行顯示功能 ， 根據(jù)控件尺寸和輸入信息的多少自動換行 。 文本框在工具箱中的圖標是 。 文本框 控件 ? 文本框?qū)傩? ? 文本框事件和方法 文本框?qū)傩? ? 1. Text屬性 Text屬性是字符串類型 ， 用于設(shè)置文本框中顯示的文字 。 該屬性值是文本框要顯示的內(nèi)容 ， 它既可以在 【 屬性 】 窗格中設(shè)定 ， 也可用代碼改變控件顯示的內(nèi)容 。 例如 ， = 面向?qū)ο蟮某绦蛟O(shè)計 Print ? 2. PasswordChar屬性 PasswordChar屬性是字符串類型 ， 用于設(shè)置文本框中顯示的字符 ， 常用于口令輸入 。 該屬性值默認為空串 (不是空格 )， 用戶輸入到文本框的內(nèi)容都原樣顯示 。 若該屬性是星號 “ *” ，用戶輸入到文本框的內(nèi)容將都變成星號 。 例如 ， Private Sub Command1_Click() Dim Yh As String, Pw As String Yh = Pw = Print 你輸入的用戶名是： 。 Yh Print 你輸入的口令是： 。 Pw End Sub ? 3. Multiline屬性 Multiline屬性是布爾類型，用于設(shè)置文本框中是否可以輸入多行文本。默認值是 False，此時文本框中只能輸入一行文本。當設(shè)置該屬性為 True時，文本框可以輸入多行文本。當該屬性設(shè)置為 False時， PasswordChar屬性才能發(fā)揮作用。 ? 4. ScrollBars屬性