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