[教育]應(yīng)用程序接口設(shè)計(jì)及代碼編寫

1、應(yīng)用程序接口設(shè)計(jì)及代碼編寫,一、簡單的計(jì)算器應(yīng)用程序任務(wù),任務(wù)概述界面布局界面設(shè)計(jì)代碼設(shè)計(jì)計(jì)算器應(yīng)用程序分析,二、可視化界面設(shè)計(jì)基礎(chǔ),（一）可視化界面設(shè)計(jì)概述 1、VB應(yīng)用程序的窗體設(shè)計(jì)通常分為三種： （1）單窗體：一個(gè)應(yīng)用程序中只包含一個(gè)窗體。 （2）多窗體：一個(gè)應(yīng)用程序中包含多個(gè)窗體。 （3）MDI窗體：是一種特殊的多窗體界面，由一個(gè)父窗體和眾多的子窗體組成。

2、 2、使窗體界面美觀的基本原則： （1）窗體上的顏色不要過多，否則不易讀。 （2）若設(shè)計(jì)多色彩的窗體界面，應(yīng)盡量采用同一色系的顏色。如：藍(lán)、淡藍(lán)等 （3）不要試圖在一個(gè)窗體上放置過多的信息。 （4）盡可能以清晰簡明的方式設(shè)計(jì)窗體。 （5）使用適當(dāng)?shù)念伾D片來增加窗體的趣味性是必要的，但要適度。 （6）界面

3、元素應(yīng)盡可能一致。即設(shè)計(jì)時(shí)應(yīng)拋棄使用所有控件的想法。,（二）多窗體設(shè)計(jì) 1、添加窗體 工程——〉添加窗體 2、設(shè)置啟動(dòng)窗體 （1） 啟動(dòng)窗體：應(yīng)用程序開始運(yùn)行時(shí)首先出現(xiàn)的窗體稱為~。默認(rèn)情況下，創(chuàng)建的第一個(gè)窗體為啟動(dòng)窗體。應(yīng)用程序的執(zhí)行入口并非必須是某個(gè)窗體。 （2）通過“工程——工程1屬性”,3、窗體的裝載和卸載 （1）Load語句

4、 Load（裝載）語句用于把窗體或其他對象裝入內(nèi)存，但不管顯示。 即Load Form2等效于Form2.Visible=False 注：當(dāng)使用窗體的Show方法時(shí)，VB程序會(huì)自動(dòng)裝載窗體，然后才顯示該窗體，此時(shí)隱含地使用了Load裝載語句。 （2）Unload語句 該語句可以把窗體或其他對象從內(nèi)存中卸載。

5、注：對于單窗體應(yīng)用程序而言 Unload form1 等效于 End,4、多窗體應(yīng)用程序設(shè)計(jì)的一般步驟 （1）添加應(yīng)用程序所需的所有的窗體、模塊。 （2）設(shè)置起始窗體，以及多窗體間的調(diào)用關(guān)系。 （3）按單窗體設(shè)計(jì)方法設(shè)計(jì)每個(gè)窗體。,（三）MDI多文檔窗體的設(shè)計(jì) 多文檔窗體（MDI）時(shí)可以同時(shí)進(jìn)行多個(gè)文檔操作的界面。它允許用戶同時(shí)打開多個(gè)文檔，每個(gè)文檔顯示在自己的窗口中，用

6、戶可以隨意在各個(gè)文檔漸進(jìn)性來回切換。目前大多數(shù)軟件都采用這種界面，比如Microsoft Word. MDI界面由一個(gè)父窗體和多個(gè)子窗體組成。父窗體是所有子窗體的容器。 1、MDI父窗體 一個(gè)VB工程中只能由一個(gè)MDI父窗體，創(chuàng)建的方法是： （1）打開或新建一個(gè)工程，單擊“工程”菜單中的“添加MDI窗體”命令。 （2）再彈出的“添加MDI窗體”對話框中雙擊“MDI窗體

7、”圖標(biāo)。 （3）這時(shí)就會(huì)出現(xiàn)一個(gè)默認(rèn)名稱為MDIForm1的新窗體。 2、MDI子窗體 父窗體創(chuàng)建完成后，我們可以通過“工程”菜單添加若干標(biāo)準(zhǔn)窗體，然后將這些標(biāo)準(zhǔn)窗體的MDIChild屬性值設(shè)置為True，該窗體便成為工程中的MDI子窗體了。,,,3、MDI子窗體的顯示方法 （1）靜態(tài)顯示方法 是通過在設(shè)計(jì)應(yīng)用程序時(shí)添加多個(gè)窗體來完成的。假設(shè)程序中允許用

8、戶在MDI父窗體上最多同時(shí)打開三個(gè)窗體，那么設(shè)計(jì)時(shí)只要添加三個(gè)子窗體，在MDI父窗體中通過Show命令顯示即可。 （2）動(dòng)態(tài)顯示方法 靜態(tài)顯示方法對設(shè)計(jì)者來說比較靈活，但最大的缺點(diǎn)是浪費(fèi)系統(tǒng)資源。當(dāng)所有子窗體具有相同特征時(shí)，就可以采用動(dòng)態(tài)顯示方法了。 動(dòng)態(tài)顯示方法只需要設(shè)計(jì)一個(gè)子窗體，比如Form1，然后通過以步驟就可以實(shí)現(xiàn)多子窗體顯示了。

9、 dim mynewform as new form1 mynewform.show4、MDI界面實(shí)例 例如 P62,（四）窗體的運(yùn)行模式 1、模態(tài)和非模態(tài)顯示窗體 模態(tài)窗體占用整個(gè)應(yīng)用程序的控制。在模態(tài)窗體顯示狀態(tài)下，只有關(guān)閉該窗體，用戶才能與其他窗體進(jìn)行交互，繼續(xù)操作應(yīng)用程序的其他部分。通常用來顯示重要信息。 如

10、：frmAbout.Show 1 也可以寫成：frmAbout Show vbModel 非模態(tài)窗體也稱常態(tài)窗體，用戶在跟此窗體進(jìn)行交互式，還可以切換到其他窗體。 如：Form2.Show 或?qū)懗桑?Form2.Show 0 或 Form2.Show VbModeless （1）非模態(tài)顯示窗體的例子 例 P63 （2）模態(tài)

11、顯示窗體的例子 例 P63.2 2、最前端顯示窗體,三、可視化界面高級設(shè)計(jì),菜單設(shè)計(jì)框架、單選鈕和復(fù)選框控件列表框控件組合框控件工具欄、狀態(tài)欄和圖標(biāo)列表控件通用對話框控件其他常用控件,（一）菜單設(shè)計(jì) 1、菜單的基本屬性和事件 屬性：Caption、Name、Index、Enabled、Visible、Check、ShortCut等 事件：Click事件

12、 2、下拉菜單的基本創(chuàng)建方法 3、設(shè)置分割條的方法 標(biāo)題（Caption）屬性為減號(hào)，即“-” 4、設(shè)置訪問件和快捷鍵的方法 （&） 5、彈出式菜單的創(chuàng)建方法 首先頂級菜單設(shè)置為隱藏，然后利用PopupMenu方法顯示彈出式菜單 例如 P66,（二）框架、單選鈕和復(fù)選框控件 1、框架控件 主要屬性：Caption

13、 其他屬性和事件方法補(bǔ)償使用 2、單選鈕和復(fù)選框控件 （1）單選鈕（OptionButton） 主要屬性：Value 為True，被選中；為False，沒被選中，一組中只被選中一個(gè)。 （2）復(fù)選框（CheckBox） 主要屬性：Value 為0：為被選中；1：選中；2：禁用復(fù)選框

14、 例如：P67 請大家自己做,（三）列表框控件 如果我們希望用戶僅僅通過鼠標(biāo)選擇，而不用使用鍵盤輸入相關(guān)信息時(shí)，就需要使用列表框（ListBox）控件了。 例如P68，自己試一試 1、 常用屬性 List：用來返回或設(shè)置控件的列表部分所包含的項(xiàng)目。List1(0)、List1(1) ListIndex：用來設(shè)置或返回控件中當(dāng)前選定項(xiàng)目的索引。其值

15、為0、1、2，若為-1，則未選定項(xiàng)目 List1.List(List1.ListIndex) Text：用來直接返回當(dāng)前選定項(xiàng)目的文本。List1.Text=List1.List(List1.ListIndex) ListCount： 返回列表框中的項(xiàng)目總數(shù)目。,2、常用方法 AddItem ：用來添加新項(xiàng)目 格式：List1.AddItem 字

16、符串 RemoveItem：刪除列表框中的項(xiàng)目。如：List1.RemoveItem 0 或者 List1.RemoveItem “計(jì)算機(jī)應(yīng)用專業(yè)” Clear：用來刪除列表中的所有項(xiàng)目。,3、常用方法 Click事件：,（四）組合框控件 可以將組合框（ComboBox）控件理解為文本框和列表框

17、控件的功能結(jié)合體。有了這個(gè)控件，用戶既可以從列表中選擇項(xiàng)目，也可以在需要時(shí)輸入項(xiàng)目。 組合框主要包括List，ListIndex，Text，ListCount屬性和AddItem方法，它們的用法與列表框控件相同。 另外，組合框最重要的一個(gè)屬性是Style ，它有0，1，2三個(gè)可選值。 例如：P70 自己試一試,（五）工具欄ToolBar、狀態(tài)欄StatusBar和圖標(biāo)列表ImageL

18、Ist控件 1、添加控件的方法 通過“工程-部件”菜單項(xiàng)進(jìn)行添加，在部件對話窗中選擇“Microsoft Windows Common Controls 6.0”，后單擊“應(yīng)用”按鈕。 2、使用實(shí)例 例如：P72 隨老師一起操作 (1)添加控件。 (2)設(shè)置ImageList控件。在ImageLIst1上擊右鍵

19、 (3)設(shè)置ToolBar控件。在ToolBar1上擊右鍵 (4)設(shè)置StatusBar控件。在StatusBar上擊右鍵 (5)添加事件代碼。,（六）通用對話框控件 經(jīng)常可以見到打開（Open）、保存（Save）、顏色（Color）、字體（Font）、打印（Print）等對話框。 如果希望我們所設(shè)計(jì)的應(yīng)用程序也具有這種對話框，就可以使用通用對話

20、框(CommonDialog)控件了。 首先在部件選擇對話窗中選擇“Microsoft Common Dialog Control 6.0”復(fù)選框，將通用對話框控件添加到工具箱中。該控件在設(shè)計(jì)階段時(shí)可以看到的，但在運(yùn)行時(shí)是不可見的。 ShowOpen、ShowSave、ShowColor、ShowPrinter、ShowFont、ShowHelp 例如：P75,（七）其他常用控件水平滾動(dòng)條(

21、HScrollBar)垂直滾動(dòng)條(VScrollBar),四、代碼設(shè)計(jì)基礎(chǔ),變量的聲明基本數(shù)據(jù)類型變量初始值變量的作用域變量的生命周期常量運(yùn)算符和表達(dá)式常用函數(shù)流程控制語句,（一）變量的聲明 1、顯式聲明 語法結(jié)構(gòu)： dim 變量名 as 數(shù)據(jù)類型 如：dim myresult as double 2、隱性聲明

22、 VB允許在使用變量前不使用dim語句進(jìn)行事先定義，而由VB自動(dòng)將變量聲明為變體型（Variant類型），這種方式稱為隱性聲明。注意：為避免使用隱性聲明方法，可以在應(yīng)用程序的模塊聲明部分，加入Option Explicit語句，使VB的變量在使用前必須進(jìn)行強(qiáng)制聲明，否則就無法編譯執(zhí)行。,（二）基本數(shù)據(jù)類型,（三）變量初始值 任何變量在被聲明后均會(huì)有一個(gè)初始值。一般情況下： 數(shù)值

23、型變量的初始值為0 字符串變量初始值為空字符串，即“” 變體型變量初始值為空值，即Null值 布爾型的初始值為假，即False,（四）變量的作用域 1、過程級變量 是指在過程內(nèi)部聲明的變量。只有在該過程中的代碼才能訪問這個(gè)變量，該變量不能用于程序的其他部分，建議使用Dim關(guān)鍵字來聲明。 2、窗體級和模塊級變量

24、 是指在窗體或模塊的代碼聲明段用Dim或Private 聲明的變量，其作用范圍是整個(gè)模塊或窗體。即在窗體或模塊中的所有過程中，都可以使用這些變量，當(dāng)離開了這個(gè)模塊或窗體，此變量就不起作用了。為了增加可讀性，建議使用Private關(guān)鍵字聲明。 3、全局變量 在整個(gè)應(yīng)用程序中有效，一般在模塊代碼編輯器的頂部使用Public聲明。注意：在窗體中已可以使用Public聲明全局變量，工程中的其他窗體可以使用

25、“窗體名.變量名”的格式，看到并訪問該變量。,（五）變量的生命周期 是指能夠保存變量值的時(shí)間。 1、過程級變量 只有在過程執(zhí)行期才存在。 注意：當(dāng)使用Static關(guān)鍵字來聲明局部變量時(shí)，則該變量的生命周期是應(yīng)用程序的整個(gè)運(yùn)行期，即在該過程執(zhí)行結(jié)束時(shí)，系統(tǒng)并不是房改變量的內(nèi)存空間，而是繼續(xù)保留其值。語法結(jié)構(gòu)是： Static 變量名 as

26、 數(shù)據(jù)類型 2、模塊級、窗體級和全局變量 這些變量的生命周期是程序的運(yùn)行期，不必使用Static關(guān)鍵字進(jìn)行聲明。 例如：P81,（六）常量 是在程序運(yùn)行過程中其值保持不變的量，通常分為直接常量和符號(hào)常量兩大類。 1、直接常量： 字符串常量：用雙引號(hào)括起來的一串字符。如："123" 數(shù)值常量：整數(shù)、長整數(shù)、

27、定點(diǎn)數(shù)、浮點(diǎn)數(shù)和字節(jié)數(shù)。 布爾常量：True和False 日期常量：用兩個(gè)“#”符號(hào)把日期和時(shí)間的值括起來。如：#3/16/2003# 2、符號(hào)常量分為內(nèi)部（系統(tǒng)定義）常量和符號(hào)（用戶定義）常量。 （1）系統(tǒng)內(nèi)部常量由VB應(yīng)用程序和控件提供。如：顏色常量vbGreen（綠色）、 vbRed（紅色）等 例：將窗體背景設(shè)為綠色，可使用以下語句： Form1

28、.BackColor=vbGreen（運(yùn)行后顯示效果） （2）定義符號(hào)常量的一般語法是： [Public|Private] Const 變量名 as 數(shù)據(jù)類型 [=表達(dá)式] 例如：Public Const Pi As Double=3.1415926,（七）運(yùn)算符和表達(dá)式 1、算術(shù)運(yùn)算符 ^ - * / \

29、 Mod + - 2、關(guān)系運(yùn)算符 > (或>= <= 3、邏輯運(yùn)算符 Not And Or Xor Eqv Imp 4、字符串連接符：字符串是由兩個(gè)雙引號(hào)“”包括的字母和數(shù)字的組合體，字符串連接符的作用是將字符串常量、變量和函數(shù)連接起來，從而形成一個(gè)較大的字符串。 + &

30、 如：“abcd”+“1234”=“abcd1234”,（八）常用函數(shù) 1、數(shù)值型函數(shù) 2、字符串函數(shù) 3、日期函數(shù) 4、格式化函數(shù) 5、類型轉(zhuǎn)換函數(shù),1、常用數(shù)學(xué)函數(shù)Sin(x) 返回自變量x的正弦值。自變量x的單位是弧度。Cos(x) 返回自變量x的余弦值。自變量x的單位是弧度。Tan(x) 返回自變量x的正切值。自變量x的單位是

31、弧度。Atn(x) 返回自變量x的反正切值。返回值的單位是弧度。Abs(x) 返回自變量x的絕對值。Sgn(x) 返回自變量x的符號(hào)。當(dāng)x為負(fù)數(shù)時(shí)返回-1，為0時(shí)返回0，為正數(shù)時(shí)返回+1。Sqr(x) 返回自變量x的平方根。Exp(x) 返回以e為底數(shù)、以x為指數(shù)的數(shù)值。Hex(x) 返回十六進(jìn)制數(shù)函數(shù) Rnd(x) 隨機(jī)數(shù)函數(shù)Fix(x) 取整函數(shù) Int(x) 最大

32、整數(shù)函數(shù) Cint(x)四舍五入函數(shù),2、常見字符串函數(shù)Ltrim$(字符串) 去掉字符串左端的空白字符（包括空格合Tab符號(hào)）Rtrim$(字符串) 去掉字符串右端的空白字符Trim$(字符串) 去掉字符串兩端的空白字符Left$(字符串,n) 返回字符串左端的n個(gè)字符組成的子字符串Right$(字符串,n) 返回字符串右端的n個(gè)字符組成的子字符串Mid$(字符串,p,n)

33、 返回從字符串第p個(gè)字符開始連續(xù)n個(gè)字符組成的子字符串。如果省略參數(shù)n就表示從第p個(gè)字符開始取到字符串結(jié)束Len(字符串) 返回字符串的長度Sting$(n,ASCII碼|字符串) 返回一個(gè)由n個(gè)指定字符組成的字符串。當(dāng)?shù)诙€(gè)參數(shù)為字符串時(shí)，字符串的首字符就是指定字符；如果第二個(gè)參數(shù)是一個(gè)ASCII碼，這個(gè)ASCII碼對應(yīng)的字符就是指定字符Space$(n) 返回一個(gè)由n個(gè)空格組成

34、的字符串。,,3、常見日期時(shí)間函數(shù)Day(Now) 返回當(dāng)前日的日期。WeekDay(Now) 返回當(dāng)前日的星期。Month(Now) 返回當(dāng)前日的月份。Year(Now) 返回當(dāng)前日的年份。Hour(Now) 返回當(dāng)前時(shí)間的小時(shí)部分（0-23）。Minute(Now) 返回當(dāng)前時(shí)間的分鐘部分。Second(Now)返回當(dāng)前時(shí)間的秒部分。在日期和時(shí)間函數(shù)中，“Now”是一個(gè)系統(tǒng)已定義的內(nèi)部變量，

35、可以直接使用。,4、格式化函數(shù)格式輸出函數(shù)Format$可以將數(shù)值表達(dá)式的值按照格式輸出控制符指定的格式輸出。格式：Format$ (表達(dá)式, [格式輸出控制符])格式輸出控制符說明：⑴.“#”：數(shù)字格式輸出控制符，表示一個(gè)數(shù)字位。# 的個(gè)數(shù)決定顯示區(qū)段的長度。⑵.“0”：數(shù)字格式輸出控制符，與 # 功能相同，但多余位以0補(bǔ)齊。⑶.“.”：顯示小數(shù)點(diǎn)。⑷.“，”：顯示逗號(hào)表示分位符。⑸.“%”：表示百分號(hào)。⑹.“$”

36、：美元符號(hào)。⑺.“＋”和“－”：正號(hào)和負(fù)號(hào)。⑻.“E＋”和“E－”：用指數(shù)顯示數(shù)值?！癊－”正號(hào)省略。,5、類型轉(zhuǎn)換函數(shù)Int(x) 求不大于自變量x的最大整數(shù)Fix(x) 去掉一個(gè)浮點(diǎn)數(shù)的小數(shù)部分，保留其整數(shù)部分Hex$(x) 把一個(gè)十進(jìn)制數(shù)轉(zhuǎn)換為十六進(jìn)制數(shù)Oct$(x) 把一個(gè)十進(jìn)制數(shù)轉(zhuǎn)換為八進(jìn)制數(shù)Asc(x$) 返回字符串x$中第一個(gè)字符的ASCII碼Chr$(x

37、) 把字符x轉(zhuǎn)換成相應(yīng)的ASCII碼Str$(x) 把x的值轉(zhuǎn)換成一個(gè)字符串Cint(x) 將自變量x的小數(shù)部分四舍五入轉(zhuǎn)換為整數(shù),流程控制語句,在代碼設(shè)計(jì)階段，VB主要采用結(jié)構(gòu)化程序設(shè)計(jì)方法，它一般包括三個(gè)基本結(jié)構(gòu),—順序結(jié)構(gòu)—分支結(jié)構(gòu)—循環(huán)結(jié)構(gòu),順序結(jié)構(gòu)： 順序結(jié)構(gòu)是最簡單和最基本的結(jié)構(gòu)，當(dāng)執(zhí)行順序結(jié)構(gòu)是，將按照語句在程序中的先后順序一次執(zhí)行。其特點(diǎn)是流程直觀易讀，結(jié)構(gòu)簡明。賦值

38、語句就是順序結(jié)構(gòu)中最常用的語句。,分支結(jié)構(gòu),分支結(jié)構(gòu)是根據(jù)一定的條件來決定執(zhí)行何種操作的一種數(shù)據(jù)結(jié)構(gòu)在VB中有五種語句來實(shí)現(xiàn)分支結(jié)構(gòu)：If…ThenIf…Then…End IfIf…Then…ElseIf…Then…ElseIfSelect Case,If…Then,語法規(guī)則If 條件表達(dá)式 Then 語句例：Private Sub Command1_Click()Dim temp As Single

39、temp = Val(InputBox("What is the tempture?"))If temp > 25 Then MsgBox "it is hot"End Sub,If…Then…End If,語法規(guī)則If 條件式 Then 程序段End If,If…Then…End If 語句實(shí)例,Private Sub Command1

40、_Click()Dim test As Integertest = InputBox("please input an integer!")If test > 10 Then Print "test>10" test = test * 2 Print "now test=", testEnd IfEnd Sub,If…The

41、n…Else,語法規(guī)則If 條件式 Then 程序段1Else 程序段2End If,If…Then…Else 語句實(shí)例,Private Sub Command1_Click()Dim test As Integertest = InputBox("please input an integer!")If test > 10 Then

42、Print "test>10"Else Print "test<=10"End IfEnd Sub,If…Then…ElseIf,語法規(guī)則If 條件式 Then 程序段1ElseIf 條件式2 Then 程序段2……ElseIf 條件式n Then 程序段n[Else

43、默認(rèn)程序段]End If,If…Then…ElseIf 語句實(shí)例,Private Sub Command1_Click()Dim test As Integertest = InputBox("please input an integer!")If test > 30 Then Print "test>30"ElseIf test >

44、20 Then Print "test>20"ElseIf test > 10 Then Print "test>10"Else Print "test<=10"End IfEnd Sub,Select Case,語法規(guī)則Select Case 測試表達(dá)式 Case 表達(dá)式1

45、 程序段1 [Case 表達(dá)式2 程序段2] …… [Case Else 默認(rèn)程序段]End Select,Select Case語句實(shí)例,Private Sub Command1_Click()Dim ageage = Val(InputBox("How old are you?"))Sele

46、ct Case age Case 1 To 12 MsgBox "you are a child" Case 13 To 19 MsgBox "you are a teenager" Case 20 To 150 MsgBox "you are an adult" Case Else Msg

47、Box "It is impossible!"End SelectEnd Sub,循環(huán)結(jié)構(gòu),循環(huán)是一組重復(fù)執(zhí)行的指令，重復(fù)次數(shù)由條件決定For…Next語句Do…Loop語句,For…Next語句,主要用于執(zhí)行循環(huán)次數(shù)確定的循環(huán)語法規(guī)則For 循環(huán)變量 = 初值 To 終值 [Step 步長] [程序段] [ Exit For]Next [循環(huán)變量],For…

48、Next語句實(shí)例,Private Sub Command1_Click()For i = 1 To 10 Step 1Print iNext iEnd Sub,Private Sub Command1_Click() Dim Sum As Integer Sum=0 For i=1 to 10 Sum=Sum+i Next i Text1.Text=SumE

49、nd Sub,For…Next語句實(shí)例,Do…Loop語句,當(dāng)循環(huán)次數(shù)無法預(yù)先確定時(shí)，可以使用Do…Loop語句，它有兩種格式,Do…Loop語句,當(dāng)型循環(huán)（先判斷，后執(zhí)行）Do [{While|Until} 條件式] 程序段（一組語句） [If 條件式 Then Exit Do] [程序段]Loop,當(dāng)型循環(huán) Do While語句實(shí)例,Private Sub Com

50、mand1_Click()Dim Sum As Integer Dim i As Integeri = 1Do While i <= 10 Sum=Sum+i i = i + 1Loop Text1.Text=SumEnd Sub,當(dāng)型循環(huán) Do Until語句實(shí)例,Private Sub Command1_Click() Di

51、m Sum As Integer Dim i As Integeri = 1Do Until i > 10 Sum=Sum+i i = i + 1Loop Text1.Text=SumEnd Sub,Do…Loop語句,直到型循環(huán)（先執(zhí)行，后判斷，至少執(zhí)行一次）Do 程序段（一組語句） [If 條件式

52、 Then Exit Do] [程序段]Loop [{While|Until} 條件式],直到型循環(huán) Do While語句實(shí)例,Private Sub Command1_Click() Dim Sum As Integer Dim i As Integer i = 1 Do Sum=Sum+i i = i + 1 Loop While

53、i <= 10 Text1.Text=SumEnd Sub,直到型循環(huán) Do Until語句實(shí)例,Private Sub Command1_Click() Dim Sum As Integer Dim i As Integer i = 1Do Sum=Sum+i i = i + 1Loop Until i > 10

54、 Text1.Text=SumEnd Sub,注意：1、當(dāng)循環(huán)還沒有結(jié)束時(shí)，可使用該語句強(qiáng) 制程序退出循環(huán)體。在DO While循環(huán)中，可以通過Exit Do語句退出循環(huán)。在For Next循環(huán)中可以使用Exit For強(qiáng)行退出循環(huán)。2、退出循環(huán)語句一般要與判斷語句一同使用。3、編寫循環(huán)語句時(shí)，一定要事先檢查是否有結(jié)束該循環(huán)的條件，否則就會(huì)出現(xiàn)“死循環(huán)”。一定要避免出現(xiàn)“死循環(huán)”現(xiàn)象。,

55、常見交互式函數(shù)__ Print 方法,Print 方法用于在窗體、立即窗體、圖片框、打印機(jī)等對象中顯示文本字符串和表達(dá)式的值。Print 方法的格式與功能與BASIC語言中的Print語句類似。格式：[.] Print [表達(dá)式表][ , | ; ]      Print方法具有計(jì)算和輸出雙重功能，原則為先計(jì)算后輸出。在一般情況下，每執(zhí)行一次Print方法后就要

56、自動(dòng)換行。如果在Print方法末尾加上逗號(hào)或分號(hào)，下一條語句可以在同一行繼續(xù)顯示。,常見交互式函數(shù)__ Print 方法,參數(shù)說明：“對象名稱”可以是窗體（Form）、立即窗體（Debug）、圖片框（PictureBox）或打印機(jī)（Printer）等對象。如果省略“對象名稱”表示默認(rèn)為在當(dāng)前窗體中輸出?！氨磉_(dá)式表”是一個(gè)或多個(gè)表達(dá)式，可以是算術(shù)表達(dá)、關(guān)系表達(dá)式、布爾表達(dá)式或字符串表達(dá)式。如果省略“表達(dá)式表”，則輸出一個(gè)空行。[ ,

57、 | ; ]表示多個(gè)表達(dá)式可以用逗號(hào)、分號(hào)和空格分開，其中以逗號(hào)分隔表示各表達(dá)式間用標(biāo)準(zhǔn)輸出格式（分區(qū)輸出格式）輸出數(shù)據(jù)，即每隔14列為一個(gè)打印區(qū)，每個(gè)打印區(qū)中顯示一個(gè)表達(dá)式的值；以分號(hào)和空格分隔表示各表達(dá)式間按照緊湊格式輸出數(shù)據(jù)，字符串間連續(xù)輸出，數(shù)值間空一個(gè)格，數(shù)值為負(fù)數(shù)則符號(hào)位為“-”，否則為空。在Print方法中可以將逗號(hào)和分號(hào)混合使用。,其它說明,當(dāng)文本出現(xiàn)在窗體中時(shí)，文本成為窗體背景的一部分如果輸出的字符串比窗體或圖片框的

58、寬度還要長，超出的部分會(huì)自動(dòng)被截?cái)嗳绻肞rint方法在單行上顯示多個(gè)不同的項(xiàng)目，可以用分號(hào)或逗號(hào)分開如果把分號(hào)或逗號(hào)放在一條語句的最后，則下一條Print語句將輸出在同一行上Print語句中可以有表達(dá)式計(jì)算,Print 方法中常用的函數(shù),⑴.Tab函數(shù)格式：Tab(n) Tab函數(shù)將光標(biāo)移動(dòng)到由數(shù)值表達(dá)式n所指定的位置（列號(hào)），從這個(gè)位置（列號(hào)）開始輸出以后數(shù)據(jù)。要輸出的數(shù)據(jù)放在Tab函數(shù)之后，并以分號(hào)分隔。

59、 ⑵.Spc函數(shù)格式：Spc(n) Spc函數(shù)用于顯示指定數(shù)量的空格。 ⑶.Space$函數(shù)格式：Space$(n) Space$函數(shù)返回n個(gè)空格。,Print 方法實(shí)例,Private Sub Form_Activate() Print "aa"; "bb", "cc", "dd"; "ee&quo

60、t;; "ff" Print 12; 34; 56, 78, 90; -11; 22; -33 Print Print "xx" & "yy", 36 * 2; Print 7 ^ 2, Print "End"End Sub,,Print 方法實(shí)例,Private Sub Form_Activate()

61、 Print "1234567890123456789012345678901234567890" Print "學(xué)號(hào)";Tab(10);"姓名"; Tab(20);"性別"; Print Tab(30);"成績" Print "001";Tab(10);"張軍"; Tab

62、(20);"男";Tab(30);98Print "012";Tab(10);"徐薇"; Tab(20);"女";Tab(30);87PrintPrint "1234567890123456789012345678901234567890"Print "學(xué)號(hào)";Spc(6);"姓名"; Sp

63、c(6);"性別";Spc(6);"成績" Print "021"; Spc(6);"王曉蘭";Spc(6);"女"; Spc(6);88End Sub,,五、工程化思想及編程風(fēng)格,工程化思想代碼書寫規(guī)范及編程風(fēng)格,（1）命名規(guī)則（2）編程風(fēng)格,命名規(guī)則 vb應(yīng)用程序中涉及了大量的常量、變量、窗體、控件

64、對象、過程和函數(shù)等，應(yīng)按一定的規(guī)則對他們進(jìn)行命名，首先應(yīng)保證命名的正確性，即：（1）必須以字母開頭，后面可以跟數(shù)字和下劃線。在體一作用域內(nèi)的常量、變量、控件等的名稱應(yīng)唯一。（2）長度不能超過225個(gè)自負(fù)，其中空間、窗體、類和模塊的名字不能超過49個(gè)字符。（3）不可以包含嵌入的英文句號(hào)或類型聲明字符（%、&、@、$），也不能以VB保留關(guān)鍵字作為變量名。,代碼書寫規(guī)范及編程風(fēng)格:,在保證命名正確的前提下，還要增加程序的可讀性和

65、可維護(hù)性。命名最好要有實(shí)際含義和一定的規(guī)律。通常情況下，對于變量、常用控件等可采用“前綴+名稱”的命名方法。比如對于窗體變量，可統(tǒng)一以frm作為名稱前綴，使人很容易明白該變量代表了一個(gè)窗體對象。,寫文章需要排版，以提高可讀性，寫程序也同樣要注意版式，一方面可增加程序的可讀性，易維護(hù)性，另一方面也可以提高程序的開發(fā)速度。（1）注釋：在程序中加入注釋是一種良好的習(xí)慣。注釋對程序的解釋、調(diào)試是非常有用的。在VB里，注釋語句有兩種，一種是用R