VB程序設(shè)計(jì)基礎(chǔ)_全套課件_VB教程第3章教案課件

1、主頁主頁 VB程序設(shè)計(jì)基礎(chǔ)_全套課件_VB教 程第3章教案 1 學(xué)習(xí)程序設(shè)計(jì)，初學(xué)者要學(xué)習(xí)程序設(shè)計(jì)，初學(xué)者要 善于模仿，并要多練。善于模仿，并要多練。 任何一門程序設(shè)計(jì)語言都任何一門程序設(shè)計(jì)語言都 有一套嚴(yán)格的編程規(guī)定有一套嚴(yán)格的編程規(guī)定( (如語法如語法 規(guī)則規(guī)則) )，在編程時(shí)一定要遵守這，在編程時(shí)一定要遵守這 些規(guī)定些規(guī)定( (只能遵守，不能創(chuàng)造只能遵守，不能創(chuàng)造) )。 主頁主頁 VB程序設(shè)計(jì)基礎(chǔ)_全套課件_VB教 程第3章教案 2 一個(gè)完整的一個(gè)完整的VBVB應(yīng)用程序，一般都包含三部分內(nèi)容，即應(yīng)用程序，一般都包含三部分內(nèi)容，即 輸入輸入 處理處理 輸出輸出 可通過可通過VBVB語句、

2、各種控件實(shí)現(xiàn)輸入輸出操作語句、各種控件實(shí)現(xiàn)輸入輸出操作 本章主要內(nèi)容本章主要內(nèi)容 第第3 3章章 賦值與輸入輸出賦值與輸入輸出 命令按鈕命令按鈕 標(biāo)簽標(biāo)簽 文本框文本框 輸入框輸入框消息框消息框 退出退出 主頁主頁 VB程序設(shè)計(jì)基礎(chǔ)_全套課件_VB教 程第3章教案 3 1. 1. 賦值語句賦值語句LetLet變量名變量名= =表達(dá)式表達(dá)式 示例：示例：x = 5 x = 5 * * 1.4 1.4 2. 2. 注釋、結(jié)束和暫停語句注釋、結(jié)束和暫停語句 (1) (1) 注釋語句注釋語句 Rem 注釋內(nèi)容注釋內(nèi)容 或或 注釋內(nèi)容注釋內(nèi)容 (2) (2) 結(jié)束語句結(jié)束語句 End (3) (3) 暫

3、停語句暫停語句 Stop 也可以通過單擊工具欄上的也可以通過單擊工具欄上的“中斷中斷”按鈕來實(shí)按鈕來實(shí) 現(xiàn)現(xiàn) 使用使用Ctrl + Break組合鍵組合鍵 賦值與輸入輸出賦值與輸入輸出 主頁主頁 VB程序設(shè)計(jì)基礎(chǔ)_全套課件_VB教 程第3章教案 4 (1)(1)表達(dá)式中的變量必須是賦過值的，否則變量的初值自動(dòng)表達(dá)式中的變量必須是賦過值的，否則變量的初值自動(dòng) 取零值取零值( (變長字符串變量取空字符變長字符串變量取空字符) )。例如：。例如： a = 1a = 1 c = a + b + 3 c = a + b + 3 bb未賦過值，為未賦過值，為0 0 執(zhí)行后，執(zhí)行后，c c 值為值為 4 4

4、 (2)(2)賦值語句跟數(shù)學(xué)中等式具有不同的含意，例如賦值語句跟數(shù)學(xué)中等式具有不同的含意，例如 x = x + 1x = x + 1 表示表示把變量把變量x x的當(dāng)前值加上的當(dāng)前值加上1 1后再將結(jié)果賦給變量后再將結(jié)果賦給變量 “先讀后寫先讀后寫”：讀出讀出x x的內(nèi)容的內(nèi)容 加加1 1 寫回寫回x x（覆蓋原（覆蓋原 有內(nèi)容）有內(nèi)容） 說明說明 主頁主頁 VB程序設(shè)計(jì)基礎(chǔ)_全套課件_VB教 程第3章教案 5 (3)變量出現(xiàn)在賦值號的右邊和左邊，其用途是不相同的。出變量出現(xiàn)在賦值號的右邊和左邊，其用途是不相同的。出 現(xiàn)在右邊表達(dá)式中時(shí)，變量是參與運(yùn)算的元素現(xiàn)在右邊表達(dá)式中時(shí)，變量是參與運(yùn)算的元

5、素(其值被讀出其值被讀出)；出；出 現(xiàn)在左邊時(shí)，變量起存放表達(dá)式的值的作用現(xiàn)在左邊時(shí)，變量起存放表達(dá)式的值的作用(被賦值被賦值)。例如。例如 x = 2 a = 3 x = 2*a + 5 當(dāng)執(zhí)行第當(dāng)執(zhí)行第3行語句行語句“x=2*a+5”時(shí)，將讀出變量時(shí)，將讀出變量a的值的值(即即3)，把，把 該值乘該值乘2后加后加5，然后將結(jié)果，然后將結(jié)果(11)賦值給變量賦值給變量x。 (4)賦值號兩邊的數(shù)據(jù)類型必須一致，即同時(shí)為數(shù)值型或同時(shí)賦值號兩邊的數(shù)據(jù)類型必須一致，即同時(shí)為數(shù)值型或同時(shí) 為字符型。為字符型。 說明說明 主頁主頁 VB程序設(shè)計(jì)基礎(chǔ)_全套課件_VB教 程第3章教案 6 例例3.2 設(shè)計(jì)程

6、序，實(shí)現(xiàn)兩個(gè)文本框內(nèi)容的交換設(shè)計(jì)程序，實(shí)現(xiàn)兩個(gè)文本框內(nèi)容的交換 (1)在窗體上建立兩個(gè)標(biāo)簽、兩個(gè)文本框和一個(gè)命令按鈕在窗體上建立兩個(gè)標(biāo)簽、兩個(gè)文本框和一個(gè)命令按鈕 (2)編寫程序代碼編寫程序代碼 借助于另一個(gè)變量借助于另一個(gè)變量(假設(shè)為假設(shè)為 t) ，并直接在控件中交換數(shù)據(jù)并直接在控件中交換數(shù)據(jù) Private Sub Command1_Click() “交換交換”按鈕按鈕 Dim t As String t = Text1.Text Text1.Text = Text2.Text Text2.Text = t End Sub Text1 Text2 例例3.2 主頁主頁 VB程序設(shè)計(jì)基礎(chǔ)_全

7、套課件_VB教 程第3章教案 7 編寫的程序代碼如下編寫的程序代碼如下 ： Private Sub Command1_Click() “交換交換”按鈕按鈕 t = Text1.Text Text1.Text = Text2.Text Text2.Text = t End Sub 采用變體型變量采用變體型變量 說明：說明：對于初學(xué)者來說，為了節(jié)省時(shí)間，有時(shí)可對于初學(xué)者來說，為了節(jié)省時(shí)間，有時(shí)可 以不采用以不采用Dim等語句聲明就直接使用變量等語句聲明就直接使用變量(默認(rèn)為變體默認(rèn)為變體 型，如型，如t)。但在規(guī)范的軟件開發(fā)中，通常都要求程序。但在規(guī)范的軟件開發(fā)中，通常都要求程序 中使用的變量必須

8、預(yù)先聲明。中使用的變量必須預(yù)先聲明。 主頁主頁 VB程序設(shè)計(jì)基礎(chǔ)_全套課件_VB教 程第3章教案 8 把上述程序改為以下形式，效果是否一樣？把上述程序改為以下形式，效果是否一樣？ Private Sub Command1_Click() “交換交換”按鈕按鈕 Text2.Text = Text1.Text Text1.Text = Text2.Text End Sub 想一想想一想 主頁主頁 VB程序設(shè)計(jì)基礎(chǔ)_全套課件_VB教 程第3章教案 9 下列程序的運(yùn)行結(jié)果是什么？下列程序的運(yùn)行結(jié)果是什么？ 運(yùn)行時(shí)，在文本框運(yùn)行時(shí)，在文本框Text1Text1中輸入中輸入5 5，單擊，單擊“計(jì)算計(jì)算”

9、按鈕后，在文本框按鈕后，在文本框Text2Text2顯示的結(jié)果是什么顯示的結(jié)果是什么? ? Private Sub Command1_Click() “計(jì)算計(jì)算”按鈕按鈕 Dim a As Integer, b As Integer, c As Integer a = Val(Text1.Text) b = 7 c = 2 * a Mod b / 3 + 1 a = a + 1 b = 2 * b - 1 c = c + a + b Text2.Text = c End Sub 想一想想一想 Text1 Text2 例例3.2h 20 主頁主頁 VB程序設(shè)計(jì)基礎(chǔ)_全套課件_VB教 程第3章教案

10、 10 3.3.1 Print3.3.1 Print方法方法 用于顯示用于顯示( (輸出輸出) )文本文本 格式：格式：對象名對象名. .Print Print 表達(dá)式列表表達(dá)式列表 說明：說明：(1)使用的對象可以是窗體等使用的對象可以是窗體等 Print “Print “程序設(shè)計(jì)程序設(shè)計(jì)” 在當(dāng)前窗體上輸出在當(dāng)前窗體上輸出 Picture1.Print “Picture1.Print “程序設(shè)計(jì)程序設(shè)計(jì)” ” 在圖片框上輸出在圖片框上輸出 (2)表達(dá)式列表是一個(gè)或多個(gè)表達(dá)式，如果省略，則輸出表達(dá)式列表是一個(gè)或多個(gè)表達(dá)式，如果省略，則輸出 一個(gè)空行一個(gè)空行 3.3 使用使用Print方法輸出

11、數(shù)據(jù)方法輸出數(shù)據(jù) 主頁主頁 VB程序設(shè)計(jì)基礎(chǔ)_全套課件_VB教 程第3章教案 11 例例3.2a Private Sub Form_Click() a = 2 b = VB Print 50 * a 計(jì)算并輸出表達(dá)式的值計(jì)算并輸出表達(dá)式的值 Print b 輸出變量的值輸出變量的值 Print 輸出空行輸出空行 Print The Total is 輸出字符串常量輸出字符串常量 End Sub 運(yùn)行結(jié)果：運(yùn)行結(jié)果： 例例3.2a 主頁主頁 VB程序設(shè)計(jì)基礎(chǔ)_全套課件_VB教 程第3章教案 12 輸出數(shù)值數(shù)據(jù)時(shí)，前面有一個(gè)符號位輸出數(shù)值數(shù)據(jù)時(shí)，前面有一個(gè)符號位( (正號以空格表示正號以空格表示)

12、 )，后，后 面留有一個(gè)空格；輸出字符串時(shí)，前后不留空格面留有一個(gè)空格；輸出字符串時(shí)，前后不留空格 (3)(3)當(dāng)輸出多個(gè)表達(dá)式時(shí)，各表達(dá)式之間用分號當(dāng)輸出多個(gè)表達(dá)式時(shí)，各表達(dá)式之間用分號“；”( (緊湊緊湊 格式格式) )或逗號或逗號“，”( (按區(qū)格式按區(qū)格式) )隔開。隔開。 按區(qū)格式按區(qū)格式(14(14個(gè)字符位置個(gè)字符位置) ) (4) (4)若語句行末尾有分號或逗號若語句行末尾有分號或逗號, ,則輸出本行輸出項(xiàng)后不換行則輸出本行輸出項(xiàng)后不換行 主頁主頁 VB程序設(shè)計(jì)基礎(chǔ)_全套課件_VB教 程第3章教案 13 例例3.2b Private Sub Form_Click() a = 3:

13、 b = 4 Print a, b, 4 + a, Print 2 * b Print a, , b Print a=; a, b=; b End Sub 運(yùn)行結(jié)果運(yùn)行結(jié)果 例例3.2b 主頁主頁 VB程序設(shè)計(jì)基礎(chǔ)_全套課件_VB教 程第3章教案 14 1. Spc1. Spc函數(shù)函數(shù) 格式：格式：Spc(n)Spc(n) 功能：在輸出下一項(xiàng)之前插入功能：在輸出下一項(xiàng)之前插入n n個(gè)空格。個(gè)空格。 例如：例如： Print Print 學(xué)號學(xué)號；Spc(2)Spc(2)；姓名姓名；Spc(5)Spc(5)；成績成績 輸出結(jié)果輸出結(jié)果(表示空格表示空格) )： 學(xué)號學(xué)號姓名姓名成績成績 3.3.

14、23.3.2 特殊打印格式特殊打印格式 主頁主頁 VB程序設(shè)計(jì)基礎(chǔ)_全套課件_VB教 程第3章教案 15 函數(shù)格式：函數(shù)格式：Tab(n)Tab(n) 功能：把輸出位置移到第功能：把輸出位置移到第n n列。列。 例如：例如： Print Tab(2);Print Tab(2);學(xué)號學(xué)號；Tab(11);Tab(11);姓名姓名；Tab(21);Tab(21);成績成績 輸出結(jié)果是輸出結(jié)果是(1(1個(gè)漢字占個(gè)漢字占2 2個(gè)位置個(gè)位置) )： 學(xué)號學(xué)號姓名姓名成績成績 2. Tab函數(shù)函數(shù) 主頁主頁 VB程序設(shè)計(jì)基礎(chǔ)_全套課件_VB教 程第3章教案 16 格式：格式：Format(Format(表

15、達(dá)式表達(dá)式 ,格式串格式串) 功能：根據(jù)格式串規(guī)定的格式來輸出表達(dá)式的值功能：根據(jù)格式串規(guī)定的格式來輸出表達(dá)式的值 例例3.2c a=4513.7 : b=3456.78 : TimeVar=#08:30:05# Print Format(a, #,#.#) Print Format(a, $#,#.00) Print Format(b, +#,#.#) Print Format(TimeVar, h:m:s) 輸出結(jié)果是：輸出結(jié)果是： 4,513.7 $4,513.70 +3,456.8 8:30:5 格式符號格式符號# #和和0 0都能顯示數(shù)字，但符號都能顯示數(shù)字，但符號# #會(huì)剔除不必要

16、的會(huì)剔除不必要的0 0， 符號符號0 0會(huì)按規(guī)定補(bǔ)足會(huì)按規(guī)定補(bǔ)足0 0 3. Format函數(shù)函數(shù) 例例3.2c 主頁主頁 VB程序設(shè)計(jì)基礎(chǔ)_全套課件_VB教 程第3章教案 17 窗體窗體(Form)是設(shè)計(jì)是設(shè)計(jì)VB應(yīng)用程序的基本平臺(tái)應(yīng)用程序的基本平臺(tái) 窗體本身是一個(gè)對象，又是其他對象的載體或容器窗體本身是一個(gè)對象，又是其他對象的載體或容器 多數(shù)應(yīng)用程序是從窗體開始執(zhí)行的多數(shù)應(yīng)用程序是從窗體開始執(zhí)行的 ; 一個(gè)程序可以有多個(gè)窗一個(gè)程序可以有多個(gè)窗 體體 3.4.1 3.4.1 窗體的基本屬性窗體的基本屬性 設(shè)置窗體的屬性，可在程序設(shè)計(jì)時(shí)在屬性窗口中手工設(shè)置，設(shè)置窗體的屬性，可在程序設(shè)計(jì)時(shí)在屬性

17、窗口中手工設(shè)置， 也可以在程序運(yùn)行時(shí)由代碼實(shí)現(xiàn)也可以在程序運(yùn)行時(shí)由代碼實(shí)現(xiàn) 默認(rèn)屬性默認(rèn)屬性 3.4 窗體窗體 主頁主頁 VB程序設(shè)計(jì)基礎(chǔ)_全套課件_VB教 程第3章教案 18 一些常用的窗體屬性：一些常用的窗體屬性： NameName屬性屬性：用于設(shè)置窗體的名稱。：用于設(shè)置窗體的名稱。指定窗體的名稱。只讀，指定窗體的名稱。只讀， 不能在應(yīng)用程序中修改不能在應(yīng)用程序中修改 CaptionCaption屬性屬性：用于設(shè)置窗體標(biāo)題欄上的標(biāo)題內(nèi)容。：用于設(shè)置窗體標(biāo)題欄上的標(biāo)題內(nèi)容。 MaxbuttonMaxbutton和和MinbuttonMinbutton屬性屬性：用于設(shè)置最大化和最小化按鈕：用于

18、設(shè)置最大化和最小化按鈕 HeightHeight和和WidthWidth屬性屬性：確定窗體的初始高度和寬度：確定窗體的初始高度和寬度 LeftLeft和和TopTop屬性屬性：確定窗體的左上角在屏幕上的橫、縱坐標(biāo)：確定窗體的左上角在屏幕上的橫、縱坐標(biāo) AppearanceAppearance屬性屬性：用于設(shè)置窗體的外觀是平面還是三維的：用于設(shè)置窗體的外觀是平面還是三維的 BackColorBackColor和和ForeColorForeColor屬性屬性：設(shè)置窗體的背景色和前景色：設(shè)置窗體的背景色和前景色 PicturePicture屬性屬性：用于在窗體上設(shè)置要顯示的圖形。：用于在窗體上設(shè)置要

19、顯示的圖形。 對象對象. .Picture=LoadPicture(Picture=LoadPicture(文件名文件名) ) Visible(Visible(可見性可見性) )：設(shè)置對象的可見性，默認(rèn)值為設(shè)置對象的可見性，默認(rèn)值為True 主頁主頁 VB程序設(shè)計(jì)基礎(chǔ)_全套課件_VB教 程第3章教案 19 坐標(biāo)原點(diǎn)坐標(biāo)原點(diǎn)(0, 0)(0, 0)在窗體的左上角在窗體的左上角 坐標(biāo)軸刻度單位為緹坐標(biāo)軸刻度單位為緹(Twip,567(Twip,567緹為緹為1 1厘米厘米) ) 當(dāng)前位置的橫坐標(biāo)當(dāng)前位置的橫坐標(biāo)(CurrentX)(CurrentX)和縱坐標(biāo)和縱坐標(biāo)(CurrentY)(Curre

20、ntY) Y Y X X (CurrentX, CurrentY) 當(dāng)前位置 窗體坐標(biāo)系統(tǒng)窗體坐標(biāo)系統(tǒng) 主頁主頁 VB程序設(shè)計(jì)基礎(chǔ)_全套課件_VB教 程第3章教案 20 窗體事件過程的一般格式為：窗體事件過程的一般格式為： Private Sub Form_事件名事件名(參數(shù)表參數(shù)表) End 在事件過程中只能使用在事件過程中只能使用Form，而在過程內(nèi)對窗，而在過程內(nèi)對窗 體進(jìn)行引用時(shí)才會(huì)用到窗體名字體進(jìn)行引用時(shí)才會(huì)用到窗體名字(如如Form1等等) 3.4.2 窗體的事件窗體的事件 主頁主頁 VB程序設(shè)計(jì)基礎(chǔ)_全套課件_VB教 程第3章教案 21 與窗體有關(guān)的常用事件有以下幾種。與窗體有關(guān)

21、的常用事件有以下幾種。 (1)Load(裝載裝載)事件事件 (2)Unload(卸載卸載)事件事件 (3)Activate(活動(dòng)活動(dòng))、Deactivate(非活動(dòng)非活動(dòng))事件事件 (4)Paint(繪畫繪畫)事件事件 (5)Click(單擊單擊)事件事件 (6)DblClick(雙擊雙擊)事件事件 (7)KeyPress(按鍵按鍵)事件：當(dāng)按下鍵盤上的某個(gè)健時(shí)，將觸發(fā)事件：當(dāng)按下鍵盤上的某個(gè)健時(shí)，將觸發(fā) KeyPress事件。其事件過程的格式為：事件。其事件過程的格式為： Private Sub 對象對象_KeyPress(KeyAscii As Integer) End Sub 參數(shù)參數(shù)K

22、eyAscii返回所按鍵的返回所按鍵的ASCII碼碼 主頁主頁 VB程序設(shè)計(jì)基礎(chǔ)_全套課件_VB教 程第3章教案 22 (1)Show(1)Show方法方法：用于快速顯示一個(gè)窗體，使該窗體變成活：用于快速顯示一個(gè)窗體，使該窗體變成活 動(dòng)窗體動(dòng)窗體 (2)Print(2)Print方法方法：用于在窗體上輸出表達(dá)式的值：用于在窗體上輸出表達(dá)式的值 (3)Cls(3)Cls方法方法：用于清除運(yùn)行時(shí)在窗體中顯示的文本或圖形：用于清除運(yùn)行時(shí)在窗體中顯示的文本或圖形 (4)Move(4)Move(移動(dòng)移動(dòng)) )方法方法：用于移動(dòng)并改變窗體或控件的位置：用于移動(dòng)并改變窗體或控件的位置 和大小和大小 3.4.

23、33.4.3 窗體的方法窗體的方法 主頁主頁 VB程序設(shè)計(jì)基礎(chǔ)_全套課件_VB教 程第3章教案 23 1.1.屬性：對象的特性屬性：對象的特性 如如 Text1.Text1.TextText,Label1.,Label1.BackColorBackColor等等 設(shè)置方法：設(shè)置方法：(1) 在屬性窗口中設(shè)置在屬性窗口中設(shè)置 (2) 在程序中更改對象的屬性在程序中更改對象的屬性 如如 Text1.Text = “ABCDEFG”Text1.Text = “ABCDEFG” 2. 2.事件：事件：由系統(tǒng)預(yù)先設(shè)置好的、能被對象識別的動(dòng)作。由系統(tǒng)預(yù)先設(shè)置好的、能被對象識別的動(dòng)作。 例如：鼠標(biāo)的移動(dòng)例如

24、：鼠標(biāo)的移動(dòng)(MouseMove)、單擊、單擊(Click)等等 用來引發(fā)事件過程，其格式如下用來引發(fā)事件過程，其格式如下 3. 3. 方法方法 方法是對象能夠執(zhí)行的動(dòng)作方法是對象能夠執(zhí)行的動(dòng)作 它是對象本身內(nèi)含的函數(shù)或過程，用于完成某種特定的功能它是對象本身內(nèi)含的函數(shù)或過程，用于完成某種特定的功能 一般格式：一般格式：對象名對象名.方法名方法名(參數(shù)參數(shù)) 如如 Form1.Cls 消除窗體消除窗體Form1上的內(nèi)容上的內(nèi)容 Form1.Print Visual BASIC 在當(dāng)前窗體上顯示在當(dāng)前窗體上顯示 對象的屬性、事件與方法對象的屬性、事件與方法( (小結(jié)小結(jié)) ) Sub 對象名對象

25、名_事件名事件名() 處理事件的程序代碼處理事件的程序代碼 End Sub 主頁主頁 VB程序設(shè)計(jì)基礎(chǔ)_全套課件_VB教 程第3章教案 24 1. 1. 焦點(diǎn)焦點(diǎn) 焦點(diǎn)焦點(diǎn)(Focus(Focus，光標(biāo)，光標(biāo)) )是是對象接收鼠標(biāo)或鍵盤輸入的能力對象接收鼠標(biāo)或鍵盤輸入的能力。 要將焦點(diǎn)賦給控件，有以下幾種方法：要將焦點(diǎn)賦給控件，有以下幾種方法： (1)(1)用鼠標(biāo)選定對象用鼠標(biāo)選定對象 (2)(2)按快捷鍵選定對象按快捷鍵選定對象 (3)(3)按按TabTab鍵或鍵或Shift+TabShift+Tab鍵在當(dāng)前窗體的各對象之間切換焦點(diǎn)鍵在當(dāng)前窗體的各對象之間切換焦點(diǎn) (4)(4)在代碼中用在代

26、碼中用SetFocusSetFocus方法來設(shè)置焦點(diǎn)。例如：方法來設(shè)置焦點(diǎn)。例如： Text1.SetFocus Text1.SetFocus 把焦點(diǎn)設(shè)置在文本框把焦點(diǎn)設(shè)置在文本框Text1Text1 2. Tab 2. Tab鍵序鍵序 TabTab鍵序是指用戶按鍵序是指用戶按TabTab鍵時(shí)，焦點(diǎn)在控件間移動(dòng)的順序鍵時(shí)，焦點(diǎn)在控件間移動(dòng)的順序 反映在控件的反映在控件的TabIndexTabIndex屬性屬性 3.4.4 3.4.4 焦點(diǎn)與焦點(diǎn)與TabTab鍵序鍵序 主頁主頁 VB程序設(shè)計(jì)基礎(chǔ)_全套課件_VB教 程第3章教案 25 設(shè)置以下設(shè)置以下3 3個(gè)命令按鈕：個(gè)命令按鈕： “ “顯示顯示

27、”按鈕：用于顯示唐詩按鈕：用于顯示唐詩“靜夜思靜夜思” “ “清除清除”按鈕：用于清除所生成的文本按鈕：用于清除所生成的文本 “ “結(jié)束結(jié)束”按鈕：結(jié)束程序的運(yùn)行按鈕：結(jié)束程序的運(yùn)行 設(shè)計(jì)步驟如下：設(shè)計(jì)步驟如下： (1)(1)創(chuàng)建應(yīng)用程序的用戶界面和設(shè)置對象的屬性創(chuàng)建應(yīng)用程序的用戶界面和設(shè)置對象的屬性 例例3.33.3 顯示唐詩顯示唐詩“靜夜思靜夜思”例例3.3 主頁主頁 VB程序設(shè)計(jì)基礎(chǔ)_全套課件_VB教 程第3章教案 26 (2)(2)編寫程序代碼。編寫的三個(gè)按鈕的編寫程序代碼。編寫的三個(gè)按鈕的ClickClick事件過程代碼：事件過程代碼： Private Sub CmdPrt_Clic

28、k() BackColor = RGB(255, 255, 255) ForeColor = RGB(0, 0, 255) FontName = 楷體楷體_GB2312 FontSize = 20 FontBold = True 粗體粗體 CurrentX = 1200:CurrentY = 350 顯示位置顯示位置 Print 靜夜思靜夜思(唐詩唐詩) FontName = 幼圓幼圓 Print FontSize = 13 Print Spc(6); 床前明月光，疑是地上霜床前明月光，疑是地上霜 Print Print Spc(6); 舉頭望明月，低頭思故鄉(xiāng)舉頭望明月，低頭思故鄉(xiāng) End S

29、ub 主頁主頁 VB程序設(shè)計(jì)基礎(chǔ)_全套課件_VB教 程第3章教案 27 Private Sub CmdCls_Click() Cls End Sub Private Sub CmdEnd_Click() End End Sub 程序運(yùn)行后，單擊程序運(yùn)行后，單擊“顯示顯示”按鈕，輸出結(jié)果按鈕，輸出結(jié)果 主頁主頁 VB程序設(shè)計(jì)基礎(chǔ)_全套課件_VB教 程第3章教案 28 3.5 3.5 基本控件基本控件 三種基本控件三種基本控件命令按鈕、標(biāo)簽和文本框命令按鈕、標(biāo)簽和文本框 命令按鈕命令按鈕(commandButten)用于引發(fā)應(yīng)用程序的某個(gè)操作用于引發(fā)應(yīng)用程序的某個(gè)操作 標(biāo)簽標(biāo)簽(Label)主要用

30、來顯示比較固定的提示性信息。主要用來顯示比較固定的提示性信息。 文本框文本框(TextBox)是一個(gè)文本編輯區(qū)域，用戶可以在該區(qū)域中是一個(gè)文本編輯區(qū)域，用戶可以在該區(qū)域中 輸入、編輯和顯示文本內(nèi)容。輸入、編輯和顯示文本內(nèi)容。 幾點(diǎn)說明：幾點(diǎn)說明： (1) Caption屬性：屬性：對象的標(biāo)題對象的標(biāo)題 可以在可以在Caption屬性中為控件指定一個(gè)訪問鍵屬性中為控件指定一個(gè)訪問鍵 例如：例如： Command1.Caption=“結(jié)束結(jié)束(&E)” 運(yùn)行時(shí)只要用戶同時(shí)按下運(yùn)行時(shí)只要用戶同時(shí)按下Alt鍵和鍵和E鍵，就能執(zhí)行該按鈕命令鍵，就能執(zhí)行該按鈕命令 (2) Enabled屬性：屬性：決定控

31、件是否對用戶產(chǎn)生的事件作出響應(yīng)決定控件是否對用戶產(chǎn)生的事件作出響應(yīng) (3) Visible屬性：屬性：決定控件是否可見，默認(rèn)值為決定控件是否可見，默認(rèn)值為True 主頁主頁 VB程序設(shè)計(jì)基礎(chǔ)_全套課件_VB教 程第3章教案 29 在窗體上已經(jīng)建立了兩個(gè)文本框在窗體上已經(jīng)建立了兩個(gè)文本框Text1和和Text2，并編寫，并編寫 如下三個(gè)事件過程：如下三個(gè)事件過程： Private Sub Form_Click() Text2.Text = P Text1.Text = P + Text1.Text End Sub Private Sub Text1_Change() 內(nèi)容發(fā)生改變內(nèi)容發(fā)生改變 T

32、ext2.Text = Text2.Text + N + Text1.Text End Sub Private Sub Form_Load() Text2.Text = M Text1.Text = M End Sub 運(yùn)行程序后單擊窗體，則在文本框運(yùn)行程序后單擊窗體，則在文本框Text2中顯示的內(nèi)容是中顯示的內(nèi)容是 A. PNM B. NPM C. PNP D. PNPMA. PNM B. NPM C. PNP D. PNPM 例例3.3a D 想一想想一想 主頁主頁 VB程序設(shè)計(jì)基礎(chǔ)_全套課件_VB教 程第3章教案 30 對話框既可以用來顯示信息，也可以用于輸入信息對話框既可以用來顯示信息

33、，也可以用于輸入信息 VBVB中能夠建立兩種預(yù)制對話框：輸入框和消息框中能夠建立兩種預(yù)制對話框：輸入框和消息框 使用系統(tǒng)提供的函數(shù)使用系統(tǒng)提供的函數(shù)( (InputBoxInputBox和和MsgBoxMsgBox) )，而不必為，而不必為 對話框另建窗體對話框另建窗體 先看以下一個(gè)例子先看以下一個(gè)例子 例例3.4a3.4a 通過輸入框輸入姓名，然后再消息框中顯示出來通過輸入框輸入姓名，然后再消息框中顯示出來 Private Sub Form_Load() x = InputBox(輸入您的姓名輸入您的姓名, 您叫什么名您叫什么名?) y = MsgBox( x & 先生：祝您馬到功成！先生：

34、祝您馬到功成！) End Sub 3.63.6 使用對話框使用對話框 例例3.4a 主頁主頁 VB程序設(shè)計(jì)基礎(chǔ)_全套課件_VB教 程第3章教案 31 用于產(chǎn)生一個(gè)能接收用戶輸入的對話框用于產(chǎn)生一個(gè)能接收用戶輸入的對話框 格式：格式： 變量變量=InputBox(=InputBox(提示提示,標(biāo)題標(biāo)題,缺省值缺省值,xpos,ypos),xpos,ypos) 舉例舉例 $=InputBox(“請輸入文件名請輸入文件名(不超過不超過8個(gè)字符個(gè)字符)”，”文件名文件名”，”vbfile”) 將產(chǎn)生一個(gè)如下對話框?qū)a(chǎn)生一個(gè)如下對話框 3.6.1 3.6.1 輸入對話框輸入對話框 例例3.4b 主頁主頁

35、 VB程序設(shè)計(jì)基礎(chǔ)_全套課件_VB教 程第3章教案 32 $=InputBox(請輸入文件名請輸入文件名 + Chr(13) + (不超過不超過8個(gè)字符個(gè)字符), 文件名文件名, vbfile) 主頁主頁 VB程序設(shè)計(jì)基礎(chǔ)_全套課件_VB教 程第3章教案 33 使用使用MsgBoxMsgBox函數(shù)，可以產(chǎn)生一個(gè)對話框來顯示消息函數(shù)，可以產(chǎn)生一個(gè)對話框來顯示消息 當(dāng)用戶單擊某個(gè)按鈕后，將返回一個(gè)數(shù)值以標(biāo)明用戶單擊當(dāng)用戶單擊某個(gè)按鈕后，將返回一個(gè)數(shù)值以標(biāo)明用戶單擊 了哪個(gè)按鈕了哪個(gè)按鈕 其語法格式是：其語法格式是： 變量變量=MsgBox(=MsgBox(提示提示,對話框類型對話框類型,對話框標(biāo)題

36、對話框標(biāo)題) 例：例：y = MsgBox(“y = MsgBox(“輸入文件名是否正確輸入文件名是否正確”,52,”,52,”請確請確 認(rèn)認(rèn)”) ) “ “對話框類型對話框類型”一般有一般有3 3個(gè)參數(shù)，個(gè)參數(shù)， 4+48+04+48+0 出現(xiàn)按鈕；圖標(biāo)類型；默認(rèn)按鈕；出現(xiàn)按鈕；圖標(biāo)類型；默認(rèn)按鈕； 函數(shù)返回值函數(shù)返回值 示例：示例： 3.6.2 3.6.2 消息對話框消息對話框 例例3.4c 主頁主頁 VB程序設(shè)計(jì)基礎(chǔ)_全套課件_VB教 程第3章教案 34 1. 1. 返回一個(gè)值。從返回值中可以知道用戶按下的返回一個(gè)值。從返回值中可以知道用戶按下的 是哪個(gè)按鈕（表是哪個(gè)按鈕（表3.53.5

37、）。例如）。例如 y = MsgBox(“y = MsgBox(“輸入文件名是否正確輸入文件名是否正確”,52,”,52,”請確請確 認(rèn)認(rèn)”) ) 若若y y為為1 1，表示用戶按下的是，表示用戶按下的是“確定確定”按鈕，依此類推。按鈕，依此類推。 程序通過判斷程序通過判斷y y值值( (如采用條件語句如采用條件語句IF-THEN)IF-THEN)，再根據(jù)用，再根據(jù)用 戶按下的是什么按鈕，再做不同的處理。戶按下的是什么按鈕，再做不同的處理。 2. 2. 不返回值。例如不返回值。例如 MsgBox “MsgBox “輸入文件名是否正確輸入文件名是否正確”,52,”,52,”請確認(rèn)請確認(rèn)” ” M

38、sgBox “MsgBox “輸入文件名是否正確輸入文件名是否正確” 采用這種格式時(shí)，不知道用戶按下的是什么按鈕。這種采用這種格式時(shí)，不知道用戶按下的是什么按鈕。這種 格式可以使用在不需要知道用戶按鈕情況的場合。格式可以使用在不需要知道用戶按鈕情況的場合。 MsgBox的兩種格式 主頁主頁 VB程序設(shè)計(jì)基礎(chǔ)_全套課件_VB教 程第3章教案 35 (1)(1)創(chuàng)建應(yīng)用程序的用戶界面和設(shè)置對象屬性創(chuàng)建應(yīng)用程序的用戶界面和設(shè)置對象屬性 (2)(2)編寫程序代碼編寫程序代碼 Private Sub Command1_Click() Dim r As Single, k As Single, s As

39、Single r = Val(InputBox(請輸入圓的半徑請輸入圓的半徑, 計(jì)算圓的周長和面積計(jì)算圓的周長和面積) k = 2 * 3.14159 * r s = 3.14159 * r * r Text1.Text = k Text2.Text = s MsgBox 計(jì)算已完成計(jì)算已完成, , 例例3.5 End Sub Private Sub Command2_Click() End End Sub 例例3.5 從輸入框中輸入圓的半徑，計(jì)算圓的周長和面積從輸入框中輸入圓的半徑，計(jì)算圓的周長和面積 例例3.5 主頁主頁 VB程序設(shè)計(jì)基礎(chǔ)_全套課件_VB教 程第3章教案 36 當(dāng)輸入的圓半

40、徑為當(dāng)輸入的圓半徑為6565時(shí)，運(yùn)行結(jié)果時(shí)，運(yùn)行結(jié)果 主頁主頁 VB程序設(shè)計(jì)基礎(chǔ)_全套課件_VB教 程第3章教案 37 例例3.63.6 控制窗體控制窗體“變大變大”和和“變小變小” 在窗體上設(shè)置三個(gè)命令按鈕在窗體上設(shè)置三個(gè)命令按鈕(圖圖3.13)，程序進(jìn)入運(yùn)行狀態(tài)，程序進(jìn)入運(yùn)行狀態(tài) 后，當(dāng)單擊后，當(dāng)單擊“窗體變大窗體變大”命令按鈕時(shí)，窗體變大，單擊命令按鈕時(shí)，窗體變大，單擊“窗體窗體 變小變小”按鈕時(shí)，窗體變小。單擊按鈕時(shí)，窗體變小。單擊“退出退出”按鈕時(shí)，則退出。按鈕時(shí)，則退出。 3.7 3.7 程序舉例程序舉例 例例3.6 主頁主頁 VB程序設(shè)計(jì)基礎(chǔ)_全套課件_VB教 程第3章教案 38

41、 (1)(1)建立應(yīng)用程序的用戶界面和設(shè)置對象屬性建立應(yīng)用程序的用戶界面和設(shè)置對象屬性 (2)(2)編寫程序代碼編寫程序代碼 Private Sub Form_Load() Form1.Height = 4000 Height為窗體的高度，為窗體的高度，P55 Form1.Width = 4000 Height為窗體的寬度為窗體的寬度 Form1.Top = 1000 設(shè)置窗體的初始位置設(shè)置窗體的初始位置 Form1.Left = 1000 End Sub Private Sub Command1_Click() “窗體變大窗體變大”按鈕按鈕 Form1.Height = Form1.Height + 200 每次增加每次增加200點(diǎn)點(diǎn) Form1.Width = Form1.Width + 200 End Sub Private Sub Command2_Click() “窗體變小窗體變小”按鈕按鈕 Form1.Height = Form1.Height - 200 每次減少每次減少200點(diǎn)點(diǎn) Form1.Width = Form1.Width - 200 End Sub 主頁主頁 V