北京電大visualbasic程序設(shè)計(jì)第3章應(yīng)用程序接口設(shè)計(jì)及代碼編寫(編輯修改稿)

　

【文章內(nèi)容簡介】 （全路徑名） MsgBox 你剛才輸入的文件名是： + End Sub 3．“顏色”對話框 Private Sub Command1_Click() ?設(shè)置顏色窗體的形狀，有 8等四個常用， ‘ 請同學(xué)們自己試一試 = 1 39。顯示“顏色”對話框 39。根據(jù)選擇的顏色，改變文本框的前景色 = End Sub – 此外，還可以通過 ShowPrinter、 ShowFont和ShowHelp方法顯示打印、字體和幫助對話框，它們的用法請同學(xué)們自己通過 VB聯(lián)機(jī)幫忙學(xué)習(xí) 其他常用控件 – 當(dāng)界面上的控件太多時(shí)，可以使用 TabStrip控件將它們分組布置 – 當(dāng)需要顯示安裝進(jìn)度、程序執(zhí)行進(jìn)度時(shí)，可以使用 ProgressBar控件 – 當(dāng)希望制作類似于 Windows資源管理器式的菜單時(shí)，可以使用TreeView控件 – 水平滾動條（ HScrollBar）和垂直滾動條控件（ VscrollBar）也可能會經(jīng)常用到 – 而 VB的代碼就像一條線，將這些圖形界面元素串在一起，從而可以使窗體、控件通過事件驅(qū)動機(jī)制連接為一個有機(jī)整體 變量的聲明 Dim MyResult As Double 數(shù)據(jù)類型 變量名 ? 1．顯式聲明 – Dim 變量名 As 數(shù)據(jù)類型 ? 2．隱性聲明 – VB允許在使用變量前不使用 Dim語句進(jìn)行事先定義，而由 VB自動將變量聲明為變體型（ Variant類型），這種方式稱為隱性聲明 ? 隱性聲明方法為書寫程序提供了較多的靈活性，但也會降低了程序的執(zhí)行效率，特別是可讀性。當(dāng)把一個變量聲明為 Variant類型時(shí)，這個變量可以用來存儲各種數(shù)據(jù)。但是由此也會帶來內(nèi)存空間消耗量的增大，也容易出現(xiàn)數(shù)據(jù)運(yùn)算問題。因此，最好對每個變量都進(jìn)行顯式聲明 ? 為了避免使用隱性聲明方法，我們可以在應(yīng)用程序的模塊聲明部分，加入 Option Explicit語句，使 VB的變量在使用前必須進(jìn)行強(qiáng)制聲明，否則就無法編譯執(zhí)行。 基本數(shù)據(jù)類型 數(shù)據(jù)類型 含義 數(shù)據(jù)范圍 Integer 整型 32768~32767 Long 長整型 2147483648~2147483647 Single 單精度浮點(diǎn)型 Double 雙精度浮點(diǎn)型 Currency 貨幣型 Byte 字節(jié)型 0~255 String 字符串型 Boolean 布爾型 Date 日期型 Variant 變體型 Object 對象型 實(shí)例 Private Sub Command1_Click() Dim MyInteger As Integer 39。聲明一個整型變量 Dim MyString As String 39。聲明一個變長的字符型變量 Dim MyString As String*10 39。聲明一個長度固定的字符型變量 Dim MyBoolean As Boolean 39。聲明一個布爾變量 Dim MyVariant As Variant 39。聲明一個變體型變量 End Sub Private Sub Command1_Click() Dim MyText As New TextBox 39。聲明一個類型為文本框的變量 Set MyText = Text1 39。將控件 Text1的值賦給對象變量 MyText = 你好！ 39。改變對象變量 MyText的標(biāo)題 End Sub ? Private Sub Command1_Click() ? Dim MyObject As Control 39。聲明控件變量 ? Set MyObject = 39。將 Form1的 Text1控件賦給對象變量 ? = 你好！ 39。改變對象變量的標(biāo)題 ? Set MyObject = ? = 確定 ? End Sub 變量初始值 – 數(shù)值型變量的初始值為 0 – 字符串變量初始值為空字符串，即“”，變體型變量初始值為空值，即 Null值 – 布爾型的初值為假，即 False。 – 當(dāng)空值的變體變量在表達(dá)式中參加運(yùn)算時(shí)，系統(tǒng)會根據(jù)實(shí)際情況將其解釋為 0或空字符串。 變量的作用域 –變量的作用域是從空間角度去分析變量屬性的。它規(guī)定了變量在應(yīng)用程序中的使用范圍，即在什么范圍內(nèi)是可見的 (Visible)、有效的（ Enabled）。 ? 1．過程級變量 – 過程級變量是指在過程內(nèi)部聲明的變量。只有在該過程中的代碼才能訪問這個變量，不能用于程序的其他部分，建議使用 Dim關(guān)鍵字來聲明 ? 2． 窗體級和模塊級變量 – 窗體級變量是指在窗體或模塊的代碼聲明段用 Dim或Private聲明的變量，其作用范圍是整個模塊或窗體。即在窗體或模塊中的所有過程中，都可以共同使用這些變量，當(dāng)離開了這個模塊或窗體，此變量就不起作用了。為了增加可讀性，建議使用 Private關(guān)鍵字聲明 ? 3．全局變量 – 全局變量在整個應(yīng)用程序中有效，一般在模塊代碼編輯器的頂部使用 Public聲明 變量的生命周期 –所謂變量的生命周期，是指能夠保存變量值的時(shí)間。如果說變量的作用域是從空間角度來看待變量的，那么生命周期則是從變量存在的時(shí)間上來理解的。 ? 1．過程級變量 – 用 Dim聲明的過程級變量，只有在過程執(zhí)行期才存在。當(dāng)過程執(zhí)行結(jié)束時(shí)（ End Sub），這些變量的值也將從內(nèi)存中釋放。 – 直到下一次調(diào)用該過程時(shí)，才重新給該變量分配一個儲存空間，重新賦值，開始一個新的生命周期 – 但當(dāng)使用 Static關(guān)鍵字來聲明局部變量時(shí) ， 則該變量的生命周期是應(yīng)用程序的整個運(yùn)行期 ， 即在該過程執(zhí)行結(jié)束時(shí) ， 系統(tǒng)并不釋放該變量的內(nèi)存空間 ， 繼續(xù)保留其值 。 語法結(jié)構(gòu)是： ? Static 變量名 As 數(shù)據(jù)類型 ? 2．模塊級、窗體級和全局變量 – 這些變量的生命周期是程序的運(yùn)行期，不必使用 Static關(guān)鍵字進(jìn)行聲明 –以兩個窗體的調(diào)用進(jìn)行演示 ? Form2中定義一個窗體級變量 j ? Form2的 Load事件中 :j=j+1 常量 – Public Const PI As Double = – 在應(yīng)用程序的任何地方出現(xiàn)的表達(dá)式 I=Pi * 25，等價(jià)于I= * 25。 運(yùn)算符和表達(dá)式 – VB中有四種類型的運(yùn)算符 – 算術(shù)運(yùn)算符 – 字符串連接符 –關(guān)系運(yùn)算符 – 邏輯運(yùn)行符 1．算術(shù)運(yùn)算符 ? VB中主要有 8個算術(shù)運(yùn)算符 ， 按優(yōu)先級別的高低順序分別是： ? （ 1） 指數(shù)運(yùn)算符： ^。 ? （ 2） 取負(fù)： 。 ? （ 3） 乘法 *、 除法 / ? （ 4） 整除： \ ? （ 5） 取模 （ 取余 ） ： Mod ? （ 6） 加 +、 減 2．關(guān)系運(yùn)算符 ? VB中有 6種關(guān)系運(yùn)算符 – 大于（ ）、小于（ ）、等于（ =）、不等于（ 或 ）、大于等于（ =）、小于等于（ =）。 – 它們的優(yōu)先級相同，按自左向右順序運(yùn)算，即用于對字符串或數(shù)值型數(shù)據(jù)的比較分析 3．邏輯運(yùn)算符 ? VB提供了以下 6個邏輯運(yùn)算符 ， 按優(yōu)先順序排列如下 ： ? （ 1） 邏輯非： Not ? （ 2） 邏輯與 And ? （ 3） 邏輯或 or ? （ 4） 邏輯異或： Xor ? （ 5） 等價(jià)： Eqv ? （ 6） 蘊(yùn)含： Imp 4．字符串連接符 –主要有 +和 amp。兩個符號，它們的運(yùn)算結(jié)果基本相同 常用函數(shù) ? 1．?dāng)?shù)值型函數(shù) – 絕對值函數(shù)（ Abs） – 平方根函數(shù)（ Sqr） – 冪指函數(shù)（ Exp） – 十六進(jìn)制函數(shù)（ Hex） – 八進(jìn)制函數(shù)（ Oct） – 取整函數(shù)（ Fix） – 四舍五入函數(shù)（ Cint） – 最大整數(shù)函數(shù)（ Int） – 隨機(jī)數(shù)函數(shù) Rnd – 以及 Sin、 Cos、 Tan、 Atn等三角函數(shù) 2．字符串函數(shù) ? （ 1） Len(x)返回 x代表的字符串的長度 。 ? （ 2） Trim(x)去掉字符串 x前面的空格 。 ? （ 3） Left(x,n)返回字符串 x從左邊算起 n個長度的字符序列 。 ? （ 4） Right(x,n)返回字符串 x從右向左的 n個字符序列 。 ? （ 5） Mid(x,n,m)返回字符串從左邊第 n個字符開始 m個長度的字符序列 。 ? （ 6） Str(x)將數(shù)值型數(shù)據(jù) x轉(zhuǎn)化為字符串 。 這個函數(shù)的返回值總會在前頭保留一個空格 ， 因此多數(shù)情況下與 Trim函數(shù)結(jié)合使用 ， 去掉首部空格 。 – （ 7） Val(x)將數(shù)字字符串轉(zhuǎn)化為數(shù)值型數(shù)據(jù) 。 – （ 8） Chr(x)返回?cái)?shù)值 x(0~255)所對應(yīng)的 Ascii碼 。 比如 Chr(13)、Chr(10)分別表示回車 、 換行 。 – （ 9） Asc(x)返回字符串 x首字符的 Ascii碼值 。 – （ 10） UCase(x)和 Lcase(x)分別返回大寫和小寫字符串 。 3．日期函數(shù) –（ 1） Date返回當(dāng)前系統(tǒng)日期 – （ 2） Time返回當(dāng)前系統(tǒng)時(shí)間 – （ 3） Year(x)返回 x表示的日期中的年份。類似的還有 Month、 Day、 WeekDay等。 4．格式化函數(shù) – ?以系統(tǒng)設(shè)置的長時(shí)間格式返回當(dāng)前系統(tǒng)時(shí)間。 MyStr = Format(Time, Long Time) – 39。以系統(tǒng)設(shè)置的長日期格式返回當(dāng)前系統(tǒng)日期。 MyStr = Format(Date, Long Date) – MyStr = For