【正文】 ? [對(duì)象 ]缺省為當(dāng)前窗體 ， [輸出項(xiàng) ]缺省則打印一空白行 ? 輸出項(xiàng)之間可用分號(hào)或逗號(hào)分隔：使用分號(hào) ， 其后的輸出項(xiàng)緊接著前一個(gè)輸出項(xiàng)輸出；使用逗號(hào) ， 其后的輸出項(xiàng)在下一個(gè)輸出區(qū)輸出 。 條記錄 39。 b End Sub 返回目錄 變量與常量 － 變量 (3) 全局變量： 標(biāo)準(zhǔn)模塊的聲明段用 Public或 Global聲明 有效范圍是整個(gè)工程的所有模塊 說(shuō)明： ? 標(biāo)準(zhǔn)模塊：只含有程序代碼的文件 ， 擴(kuò)展名為 .bas ? 添加標(biāo)準(zhǔn)模塊： “ 工程 → 添加模塊 ” ? 如果在窗體模塊的 “ 通用 ” 返回目錄 聲明段用 Public聲明變量 ，其它模塊可通過(guò)如下方式引用該變量： 窗體模塊名 .變量名 變量與常量 － 常量 1. 內(nèi)部常量 由應(yīng)用程序和控件提供 。a和 b均為變體型變量 Dim S1,S2 As String*6 39。X被賦予數(shù)值 15 X = A amp。聲明日期型變量 D D = 10/5/2022 39。 ? 不要與 VB中的關(guān)鍵字同名 ? 最好能 “ 見(jiàn)名知義 ” 返回目錄 VB編碼規(guī)則 － 賦值語(yǔ)句 語(yǔ)法格式： [Let] 變量名 =表達(dá)式 作用：變量賦值或?qū)傩栽O(shè)置 。 b ? 單引號(hào)后面的內(nèi)容為注釋 ， 可放在一行語(yǔ)句的最后 ， 或單獨(dú)占據(jù)一行 。 a。 ? 與工程有關(guān)的全部文件和對(duì)象的清單，以及所設(shè)置的環(huán)境選項(xiàng)信息都保存在工程文件中 (.vbp)。Visual Basic 程序設(shè)計(jì)與應(yīng)用案例 第 1章 走進(jìn) Visual Basic 學(xué)習(xí)目標(biāo)： ? 認(rèn)識(shí) Visual Basic ? 理解對(duì)象 、 屬性 、 事件和方法的概念 ? 了解 Visual Basic事件驅(qū)動(dòng)的編程特點(diǎn) ? 了解 VB程序的組成 ? 學(xué)會(huì)使用 Visual Basic的幫助系統(tǒng) 第 1章 走進(jìn) Visual Basic 教學(xué)內(nèi)容： Visual Basic編程入門(mén) VB的對(duì)象與編程特點(diǎn) VB的程序組成與代碼窗口 使用 VB的幫助系統(tǒng) Visual Basic編程入門(mén) VB程序示例： 模擬彩票開(kāi)獎(jiǎng)器 簡(jiǎn)易編輯器 返回目錄 Visual Basic編程入門(mén) － 集成開(kāi)發(fā)環(huán)境 VB集成環(huán)境 返回目錄 Visual Basic編程入門(mén) － 集成開(kāi)發(fā)環(huán)境 屬性窗口 窗體設(shè)計(jì)器 工程資源 管理器 窗體布局窗口 工具箱 返回目錄 Visual Basic編程入門(mén) － 創(chuàng)建 VB程序的步驟 一般步驟 ：建立工程 → 設(shè)計(jì)界面 → 設(shè)置對(duì)象屬性 → 編寫(xiě)代碼 → 保存程序 → 運(yùn)行程序 [→ 生成可執(zhí)行文件 ] [例 ] 返回目錄 Visual Basic編程入門(mén) － 創(chuàng)建 VB程序的步驟 1. 建立工程 工程是組成一個(gè)應(yīng)用程序的文件集合 (.vbp)，最常用的是標(biāo)準(zhǔn) EXE類(lèi)型的工程。 1. 窗體模塊 界面和代碼 返回目錄 VB的程序組成與代碼窗口 － VB程序組成 2. 標(biāo)準(zhǔn)模塊 ? 沒(méi)有窗體，擴(kuò)展名為 .bas ? 通常聲明其他模塊共同使用的全局變量或通用過(guò)程 返回目錄 VB的程序組成與代碼窗口 － 代碼窗口 返回目錄 過(guò)程查看 全模塊查看 VB的程序組成與代碼窗口 － 選項(xiàng)設(shè)置 “ 工具 → 選項(xiàng) ” 返回目錄 使用 VB的幫助系統(tǒng) 注：系統(tǒng)中需安裝幫助文檔 MSDN 1. 通過(guò) “ 幫助 ” 菜單 返回目錄 使用 VB的幫助系統(tǒng) 2. 通過(guò) F1鍵 返回目錄 第 2章 Visual Basic語(yǔ)言基礎(chǔ) 學(xué)習(xí)目標(biāo)： ? 掌握 VB的編碼規(guī)則 ? 了解 VB的數(shù)據(jù)類(lèi)型 ? 掌握變量 、 常量的聲明和使用 ? 掌握運(yùn)算符和表達(dá)式的使用 ? 掌握 VB數(shù)據(jù)的輸入與輸出 ? 了解 VB的內(nèi)部函數(shù) 第 2章 Visual Basic語(yǔ)言基礎(chǔ) 教學(xué)內(nèi)容： VB編碼 規(guī)則 VB的數(shù)據(jù)類(lèi)型 變量與常量 運(yùn)算符與表達(dá)式 數(shù)據(jù)的輸入輸出 VB的常用內(nèi)部函數(shù) VB編碼規(guī)則 [例 ] 單擊窗體可輸出內(nèi)容交換后的 a變量和 b變量的值 。 b End Sub 返回目錄 VB編碼規(guī)則 － 語(yǔ)句書(shū)寫(xiě)規(guī)則 ? 語(yǔ)句輸入時(shí)不區(qū)分大小寫(xiě) ， 一條語(yǔ)句通常寫(xiě)在一行中 。 ? 數(shù)值前加上前綴 amp。 例如： Pi = strTemp=―Hello!‖ = ―VB程序設(shè)計(jì)示例 ” = vbWhite 說(shuō)明： ? 只有當(dāng)表達(dá)式的類(lèi)型與變量的數(shù)據(jù)類(lèi)型兼容時(shí) ， 該表達(dá)式的值才可以賦給相應(yīng)的變量或?qū)傩?。日期型變量賦值 Print D ?輸出日期型變量的值 返回目錄 VB的數(shù)據(jù)類(lèi)型 － 基本數(shù)據(jù)類(lèi)型 5. 對(duì)象型 (Object) ? 聲明 對(duì)象 變量后 ， 用 Set語(yǔ)句指定實(shí)際引用的對(duì)象 例 ， 窗體上有命令按鈕 Command1， 執(zhí)行如下語(yǔ)句 ， 可將該按鈕的顯示文字改為 OK Dim a As Object 39。 X 39。S1為變體型變量 ,S2為定長(zhǎng)字符串 返回目錄 見(jiàn)表 變量與常量 － 變量 2. 變量的隱式及顯式聲明 ? 不聲明就用的變量被隱式聲明為 Variant， 初值 Empty ? 強(qiáng)制進(jìn)行變量的顯式聲明 ?“ 通用 ” 聲明段中加上語(yǔ)句： Option Explicit ?―工具 → 選項(xiàng) ” → “ 編輯器 ” 返回目錄 對(duì)新模塊起作用 遇到未經(jīng)聲明的變量包括輸錯(cuò)的變量，系統(tǒng)會(huì)發(fā)出錯(cuò)誤警告 變量與常量 － 變量 3. 變量的有效范圍 (1) 局部變量：在一個(gè) 過(guò)程內(nèi)部聲明 的變量 有效范圍限于聲明它的過(guò)程 ? 自動(dòng)變量： 用 Dim聲明 ， 變量值只在過(guò)程執(zhí)行期間才存在 ? 靜態(tài)變量：用 Static聲明 ， 變量值在程序運(yùn)行期間一直存在 [例 ] 統(tǒng)計(jì)單擊窗體的次數(shù) Private Sub Form_Click() Static intCount As Integer intCount = intCount+1 Print intCount End Sub 返回目錄 單擊窗體3 次 將 Static改為 Dim 變量與常量 － 變量 (2) 模塊變量： “ 通用 ” 聲明段用 Private或 Dim語(yǔ)句聲明 可被該模塊中的任何過(guò)程所訪問(wèn) [例 ] Private a As Integer, b As Integer 39。 例如： = vbBlue ?vbBlue是表示藍(lán)色的內(nèi)部常量 查看系統(tǒng)預(yù)定義常量： “ 視圖 → 對(duì)象瀏覽器 ” 返回目錄 變量與常量 － 常量 2. 符號(hào)常量 (自定義常量 ) ? 命名：遵循標(biāo)識(shí)符命名的規(guī)則 ? 聲明格式： [Public|Private] Const 常量名 [As 類(lèi)型 ] = 表達(dá)式 例： Const conMax As Integer = 9 39。Str為數(shù)值型轉(zhuǎn)字符型函數(shù) 。 ? 兩個(gè)輸出區(qū)默認(rèn)相隔 14列 ? 各輸出項(xiàng)表示要打印的表達(dá)式 ， 組成 [Spc(n) | Tab(n)] 表達(dá)式 Spc(n)：指定在輸出之前插入 n個(gè)空白字符 Tab(n)：指定在第 n列上輸出 返回目錄 數(shù)據(jù)的輸入輸出 － 數(shù)據(jù)輸出 例 ， Private Sub Form_Click() Print Print Tab(15)。 Chr(13) amp。 例如 ， Val(―24 and 57‖) 39。返回 21 上述示例的當(dāng)前日期時(shí)間是 2022年 3月 18號(hào)、星期三、晚上 9點(diǎn) 10分。 _ Price amp。保存累加和 ， 先清零 For I = 1 To 99 Step 2 Sum = Sum + I Next I MsgBox 1+3+5+… +99= amp。 名學(xué)生的平均分為 amp。 If I Mod 6 = 0 Then Print Next I End Sub 返回目錄 斐波那契級(jí)數(shù)： ?第一、二項(xiàng)為 1 ?第三項(xiàng)開(kāi)始，每一項(xiàng) 的值是前兩項(xiàng)值之和 每 6個(gè)數(shù)一行 循環(huán)語(yǔ)句 － Do…Loop 循環(huán) 1. 當(dāng)型循環(huán) 返回目錄 Do While 條件表達(dá)式 循環(huán)體 Loop Do 循環(huán)體 Loop While 條件表達(dá)式 條件表達(dá)式 成立？ 循環(huán)體 No Yes 條件表達(dá)式 成立？ 循環(huán)體 No Yes 先判斷后執(zhí)行 先執(zhí)行后判斷 特點(diǎn)：條件表達(dá)式 成立執(zhí)行 循環(huán)體內(nèi)容 循環(huán)語(yǔ)句 － Do…Loop 循環(huán) [例 ] 計(jì)算平均分 Private Sub Form_Click() Dim Data As Integer, Sum As Integer, N As Integer Dim Average As Single Sum = 0 : N = 0 Data = InputBox(輸入第 amp。開(kāi)始時(shí)項(xiàng)數(shù)為 0 Sum = 0 39。 I 控制行數(shù) (8行 ) Print Tab(10 I)。 = amp。統(tǒng)計(jì)兌換 1角錢(qián)的方案數(shù) For I = 0 To 10 39。 其他語(yǔ)句 － Exit與 End 2. End語(yǔ)句 ? End：終止程序的運(yùn)行 ? End Sub：終止一個(gè)過(guò)程； ? End Function：終止函數(shù)過(guò)程 ? End If：終止條件語(yǔ)句 ? End Type：終止類(lèi)型聲明 ? End Select：終止情況語(yǔ)句 ? End Property：終止屬性過(guò)程 ? End With：終止 With語(yǔ)句 返回目錄 例如： Private Sub Command1_Click() End End Sub 其他語(yǔ)句 － Goto ? 功能：無(wú)條件轉(zhuǎn)向 ? 格式： Goto label label稱(chēng)為語(yǔ)句標(biāo)號(hào) (數(shù)字或標(biāo)識(shí)符 ) [例 ] 求若干個(gè)同學(xué)的成績(jī)總分 Private Sub Form_Click() Dim Data, Sum As Integer Sum = 0 loop1: Data = InputBox(輸入成績(jī) ) If Data = 1 Then GoTo loop2 Else Sum = Sum + Data GoTo loop1 End If loop2: Print 總分 =。 ? 可同時(shí)聲明幾個(gè)數(shù)組 ， 用逗號(hào)分隔 ， 例如 Dim A%(10 To 100), B(800) As Long ? 定義數(shù)組時(shí) ， 下標(biāo)的下界和上界值只能是常數(shù)或常數(shù)表達(dá)式 。 I amp。 If I Mod 5 = 0 Then Print Next I End Sub 返回目錄 數(shù)組 － 一維數(shù)組應(yīng)用例題 [例 ] 輸入一組不重復(fù)的數(shù)據(jù) ， 找出最大值及其位置 Private Sub Form_Click() Const Length = 5