【正文】 假設(shè)始終有效（例如，在輸入字段中有值之前禁止使用啟動(dòng)該處理過(guò)程的命令按鈕）。如果原來(lái)假設(shè)該事件僅能由用戶(hù)的交互操作所觸發(fā)，則可能會(huì)產(chǎn)生意料之外的結(jié)果。 標(biāo)準(zhǔn)菜單包括： 3． 工具欄 在編程環(huán)境下用于快速訪(fǎng)問(wèn)常用命令。需要再設(shè)計(jì)另一個(gè)窗體時(shí)，單擊工具欄上的“添加窗體”按鈕即可。 7． 工程管理器窗口 用于瀏覽工程中所包含的窗體和模塊，還可以從中查看代碼、查看對(duì)象?？梢允褂谩皩?duì)象瀏覽器”瀏覽在 VB 中的對(duì)象和其它應(yīng)用程序，查看對(duì)那些對(duì)象有 效的方法和屬性，并將代碼過(guò)程粘貼進(jìn)自己的應(yīng)用程序。 創(chuàng)建 VB 應(yīng)用程序的一般步驟 一個(gè) VB 程序也稱(chēng)為一個(gè)工程，由窗體、標(biāo)準(zhǔn)模塊、自定義控件及應(yīng)用所需的環(huán)境設(shè)置組成。） List：列表屬性。 （無(wú)選中時(shí)其值為 1） Text： 列表項(xiàng) 的正文。 取值：０：（默認(rèn)值）使用垂直滾動(dòng)條。 MultiSelect：設(shè)定是否允許用戶(hù)多重選取對(duì)象的列表項(xiàng) 取值： ０：不能多重選取。（類(lèi)似文件選取） Selected：設(shè)定列表項(xiàng)是否被選取的狀態(tài)。（默認(rèn)值） Sorted：排序?qū)傩浴? 格式： [對(duì)象名稱(chēng)． ]AddItem 列表項(xiàng)文本 [,插入位置序號(hào) ] 說(shuō)明：１、若不指定位置，則插入到列表項(xiàng)末尾。 格式： ［對(duì)象名稱(chēng)．］ RemoveItem 刪除項(xiàng)序號(hào) 事件： Click ：?jiǎn)螕羰录? ２．如何知道目前用戶(hù)所選取的列表項(xiàng)和目前列表框中的列表項(xiàng)數(shù)目？ 用戶(hù)目前所選的列表項(xiàng)： Text 的值。 Style ：外觀屬性。它的下拉式窗體不是一直顯示的。它的下拉式窗體是一 直顯示的。 稱(chēng)為單純下拉式的組合框。其取值為用戶(hù)從列表框中選定的文本內(nèi)容或直接輸入文本框中的內(nèi)容。 帶有文本框的０ ，１組合框：在編輯文本時(shí)可引發(fā) Change 事件。 圖像：（ image） : 主要用于圖像的顯示、放大、縮小等靜態(tài)顯示圖像場(chǎng)合。 取值： True ：（默認(rèn)值）看得見(jiàn)。 其值在設(shè)定時(shí)的格式為：盤(pán)符 \ 路徑 \圖片文件名（ .ico 圖標(biāo)文件 .bmp 位圖文件） stretch : 用來(lái)決定圖像控件的大小是否要隨著所載入圖片的大小而變化。 方法： Move Refresh （ 10）圖片：（ picturebox） : 不僅可以裝入圖像，還可以在它上面繪制各種圖形和顯示正文、放置控件（類(lèi)似框架控件）。） Max / Min : 定義了 Value 屬性值所能出現(xiàn)的最大值和最小值。 Value : 滾動(dòng)條目前所在位置所對(duì)應(yīng)的數(shù)值。 SmallChang : 當(dāng)用戶(hù)在滾動(dòng)條兩端的箭頭按鈕上單擊時(shí) Value 所增加的值?；蛘呖梢岳? Change 事件過(guò)程在 一個(gè)工作區(qū)里顯示數(shù)據(jù)和公式，在另一個(gè)區(qū)域里顯示結(jié)果。 Refresh : 強(qiáng)制全部重繪一個(gè)滾動(dòng)條。 時(shí)間控件在工具箱中的圖標(biāo) P25；在窗體中的形式 屬性： 名稱(chēng)： enabled interval 用來(lái)設(shè)定引發(fā) timer 事件過(guò)程的間隔時(shí)間，單位為 1/1000 秒。 3．填寫(xiě) timer 事件的程序內(nèi)容， 4．當(dāng)程序開(kāi)始執(zhí)行后，將不會(huì)看到它的圖標(biāo)，每隔 interval 定義的時(shí)間內(nèi)，程序會(huì)觸發(fā)一次 timer 事件。 某一字符：用戶(hù)每輸入一個(gè)字符，文本框內(nèi)就出現(xiàn)一個(gè)該字符。 １～ 32 KB。 False：（默認(rèn)值）只能單行輸入。 1：靠右對(duì)齊。設(shè)置是否可用 [Tab]鍵來(lái)移動(dòng)焦點(diǎn)到另一個(gè)對(duì)象上。 方法： Refresh ：刷新。 LostFocus：當(dāng)光標(biāo)離開(kāi)文本框時(shí)，引發(fā)本事件。（通常以“ Lbl”作為前綴。即標(biāo)簽的大小是否隨著標(biāo)題內(nèi)容的多少而自動(dòng)變化。設(shè)置在標(biāo)簽內(nèi)顯示的文本的字體名稱(chēng)。 DblClick：雙擊事件。其值就是在命令按鈕上顯示的文本。 Enabled ：設(shè)定命令按鈕是否可用。（用戶(hù)此時(shí)按回車(chē)鍵將會(huì)執(zhí)行此命令按鈕。 Value ：表示復(fù)選框在執(zhí)行時(shí)的三種狀態(tài)。 事件： click ：?jiǎn)螕羰录? 取值： 0：（默認(rèn)值）靠左對(duì)齊 1：靠右對(duì)齊 2：靠中對(duì)齊 value : 其值決定該選項(xiàng)按鈕是否被選中。 事件： click ：?jiǎn)螕簟? 在一個(gè)框架內(nèi)的控件可以進(jìn)行整體的激活、屏蔽、移動(dòng)等等。 第三章： Visual Basic語(yǔ)言基礎(chǔ) 本章內(nèi)容及要求： 1 熟悉 VB 程序中代碼和語(yǔ)句書(shū)寫(xiě)規(guī)則； 2 掌握 VB 的數(shù)據(jù)類(lèi)型； 3 掌握 VB 的 運(yùn)算符和表達(dá)式的使用； 4 掌握常用內(nèi)部函數(shù)的使用； 本章重點(diǎn)： 變 量和常量的定義及使用、運(yùn)算符和表達(dá)式的使用及常用內(nèi)部函數(shù)的使用。過(guò)程及說(shuō)明又被組織在 “模塊 ”之中。 二 模塊 模塊是 VB 用于將不同類(lèi)型過(guò)程代碼組織到一起而提供的一種結(jié)構(gòu)。為提高運(yùn)行效率 (整型效率較高 )，或達(dá)到一定的運(yùn)算精確度（浮點(diǎn)型精度較高，但運(yùn)行較慢），應(yīng)合理的定義數(shù)據(jù)類(lèi)型。 如： 3/22/2020 2020322 14:30:20 Dim T As Date T= Print T 39。這 8 個(gè)字節(jié)加上額外的 24 個(gè)字節(jié)，使得這個(gè)數(shù)組所需總內(nèi)存空間為 32 個(gè)字節(jié)。 不定長(zhǎng)字符串 ： Dim strA As String 最多可存放 2MB 個(gè)字符 2） 隱式聲明 VB 中允許變量不經(jīng)過(guò)聲明就直接使用，這種稱(chēng)為隱式聲明，所有隱式聲明的變 量都是變體型的。 八進(jìn)制常數(shù)： 在數(shù)值前加 amp。H123 2）用戶(hù)聲明的符號(hào)常量 用 Const 來(lái)聲明： Const 符號(hào)常量名 [As 類(lèi)型 ] = 表達(dá)式 如： Const PI= 39。聲明了常量 MAX，代表八進(jìn)制數(shù) 144，整型 Const COUNT= 39。 3. 變量作用域與變量說(shuō)明語(yǔ)句 1）變量作用域 變量的有效作用范圍稱(chēng)為變量作用域。 ? －：加法運(yùn)算。 ? Mod：求余運(yùn)算。 把常量、變量等運(yùn)算元素用算術(shù)運(yùn)算符連接起來(lái)的式子稱(chēng)為 “算術(shù)表達(dá)式 ”。 結(jié)果為： VB 程序設(shè)計(jì)教程 說(shuō)明：當(dāng)連接符兩旁的操作量都為字符串時(shí)，上述兩個(gè)連接符等價(jià)。若關(guān)系成立，結(jié)果為 True，若關(guān)系不成立，結(jié)果為 False。例如 : a32 x+y=z/2 b$ Basic object1 is object2 ● 關(guān)系表達(dá)式的運(yùn)算是采用 “按值比較 ”的方法，即先求出運(yùn)算符兩邊的 “值 ”，若是變量，則取其當(dāng)前值，如果兩端的值滿(mǎn)足條件，則結(jié)果為 “True”，否則為 “False”。例 a+*b 是錯(cuò)誤的。 2．可以用括號(hào)改變優(yōu)先順序，強(qiáng)令表達(dá)式的某些部分優(yōu)先運(yùn)行。為方便使用，可以用 StrConv 函數(shù)來(lái)對(duì) Unicode 與 DBCS進(jìn)行轉(zhuǎn)換，可以用函數(shù) Len（）函數(shù)求字符串的字符數(shù)，用 LenB（）函數(shù)求字符串的字節(jié)數(shù)。如： 語(yǔ)句 輸出 Format (2, “ ” ) Format (.7, “ 0%” ) 70% Format (1140, “ $,0” ) $1,140 Format 字符 的 意義 字符 意義 字符 意義 0 顯 示一 數(shù) 字 ，若此 位 置沒(méi) 有 數(shù)字 則 補(bǔ)0 . 小數(shù)點(diǎn) 顯 示一 數(shù) 字 ，若此 位 置沒(méi) 有 數(shù)字 則 不顯示 , 千位的分隔符 % 數(shù)字乘以 100 并在右 邊 加上 ” %”號(hào) + $ ( ) 這 些字 出 現(xiàn) 在 fmt 里 將 原樣 打出 第四章 VB 程序的控制結(jié)構(gòu) 算法概論 1．算法的概念 算法 ：指用計(jì)算機(jī)解決某一問(wèn)題的方法和步驟。 （ 3）有窮性：指一個(gè)算法應(yīng)該在有限的時(shí)間和步驟內(nèi)可以執(zhí)行完畢的。 4．算法的描述 一般常用流程框圖來(lái)描述算法。 程序舉例：已知半徑，求圓面積 已知三邊長(zhǎng)，求三角形面積 P65 （ 2）不同數(shù)據(jù)類(lèi)型數(shù)據(jù)的賦值： P59 4． 2． 2 InputBox 函數(shù)： P60 InputBox 函數(shù)：用來(lái)接受 用戶(hù)通過(guò)鍵盤(pán)輸入的數(shù)據(jù)。 用戶(hù)可通 過(guò)設(shè)置 InputBox 函數(shù)的參數(shù)來(lái)定制提示信息對(duì)話(huà)框的形式。 （對(duì)此功能的理解可看 P64 圖 47 ） 程序舉例： 用 InputBox 輸入一個(gè)數(shù)，若此數(shù)大小 0，則在窗體上將它顯示出來(lái)。 若所有 ei 的值均為 false ,則執(zhí)行 else 后的 A(n+1) 語(yǔ)句組后轉(zhuǎn) end if 的下一條語(yǔ)句去繼續(xù)執(zhí)行。形式可為以下三種： ◆ 具體取值：常量 1，常量 2， … .. ◆ 連續(xù)的數(shù)據(jù)范圍： 下界值 to 上界值 例如： 8 to 12 B to H 等等。 e1：循環(huán)控制變量的初值。 ◆ 循環(huán)次數(shù)的計(jì)算公式：循環(huán)次數(shù) =Int((e2e1)/e3)+1 ◆當(dāng) step 1 時(shí)，此部分可以省略。 s End Sub 例 44 P70 例 45 P71 先看 len、 mid 函數(shù)的使用： 有一個(gè)字符串 A=”abcd” （ 1） 則 len(A)=4 len（ x） 可獲得 x 字符串長(zhǎng)度。 For I=1 to 5 Print int((999100+1)*rnd+100) Next I 自習(xí) P74 各例 isNumeric(x) : 判斷一個(gè)字符串是否是一個(gè)數(shù)字串。 （ 2）執(zhí)行到 loop while 語(yǔ)句時(shí)，判斷 e 的值，若為 true , 轉(zhuǎn)（ 1），若為 false , 循環(huán)結(jié)束，轉(zhuǎn) loop 的下面一條語(yǔ)句去執(zhí)行。 （２） until 后的條件值為 false 時(shí)，執(zhí)行循環(huán)體，為 true 時(shí)，循環(huán)結(jié)束。 P45 數(shù)組元素：數(shù)組中的每個(gè)成員為一個(gè)元素。 數(shù)組的維數(shù)： 一維數(shù)組：只有一個(gè)下標(biāo)的數(shù)組稱(chēng)為一維數(shù)組。 ①數(shù)組說(shuō)明語(yǔ)句一般格式： P85 Dim 數(shù)組名 1（ [維界定義 ]） [ As 數(shù)據(jù)類(lèi)型 ][，數(shù)組名 2（下標(biāo)范圍） As 數(shù)據(jù)類(lèi)型 ]…… 其中：維界定義的形式： [下界 1 to] 上界 1[， [下界 2 to] 上界 2]…… 例如： Dim a(1 to 5) As integer 本語(yǔ)句說(shuō)明了一個(gè)一維 a 數(shù)組，有 5 個(gè)元素，分別為 a(1),a(2),a(3),a(4),a(5) 又例如： Dim b(1 to 2,1 to 3) As Single,c(3) As Integer， d(3 to 5) 本語(yǔ)句說(shuō)明了三個(gè)數(shù)組： 二維數(shù)組 b :有 2 行 3 列， 6 個(gè)元素分別為： b(1,1) b(1,2) b(1,3) b(2,1) b(2,2) b(2,3) 一維數(shù)組 c ：有 4 個(gè)元素： c(0) c(1) c(2) c(3) 一維數(shù)組 d ：有 3 個(gè)元素： d(3) d(4) d(5) 使用說(shuō)明： ? ? 下界缺省時(shí)，為 0。使用循環(huán)給一維數(shù)組賦值并輸出 A(i) = Int(99 * Rnd) + 1 Print A(i) Next i Print For i = 1 To 2 39。 例 P93 Option Base 1 Private Sub Form_Click() Dim A As Variant, I As Integer Dim B(4) As Variant A = Array(5, 4, 3, 2, 1) Print A(1)。 A(5) A = Array(, , , ) Print A(1)。 B = Array(1, 2, 3, 4, 5, 6) ?注意 A 與 B 的區(qū)別 End Sub 5． 2． 2 數(shù)組元素的輸出 例 ： 一維數(shù)組的輸出 二維數(shù)組的輸出 P94 Option Explicit O