林卓然VB教程課件順序結(jié)構(gòu)第3章教案

1、主頁主頁2022-2-31 學(xué)習(xí)程序設(shè)計，初學(xué)者要學(xué)習(xí)程序設(shè)計，初學(xué)者要善于模仿，并要多練。善于模仿，并要多練。 任何一門程序設(shè)計語言都任何一門程序設(shè)計語言都有一套嚴(yán)格的編程規(guī)定有一套嚴(yán)格的編程規(guī)定( (如語法如語法規(guī)則規(guī)則) )，在編程時一定要遵守這，在編程時一定要遵守這些規(guī)定些規(guī)定( (只能遵守，不能創(chuàng)造只能遵守，不能創(chuàng)造) )。主頁主頁2022-2-32 一個完整的一個完整的VBVB應(yīng)用程序，一般都包含三部分內(nèi)容，即應(yīng)用程序，一般都包含三部分內(nèi)容，即 輸入輸入 處理處理 輸出輸出 可通過可通過VBVB語句、各種控件實現(xiàn)輸入輸出操作語句、各種控件實現(xiàn)輸入輸出操作 本章主要內(nèi)容本章主要內(nèi)容第

2、第3 3章章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計賦值語句賦值語句注釋、結(jié)束及暫停語句注釋、結(jié)束及暫停語句使用使用Print方法輸出數(shù)據(jù)方法輸出數(shù)據(jù)窗體和基本控件窗體和基本控件對話框?qū)υ捒虺绦蚺e例程序舉例命令按鈕命令按鈕標(biāo)簽標(biāo)簽文本框文本框輸入框輸入框消息框消息框退出退出主頁主頁2022-2-33 1. 1. 賦值語句賦值語句LetLet變量名變量名= =表達式表達式 示例：示例：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é)束語句

3、End (3) (3) 暫停語句暫停語句 Stop 也可以通過單擊工具欄上的也可以通過單擊工具欄上的“中斷中斷”按鈕來實按鈕來實現(xiàn)現(xiàn) 使用使用Ctrl + Break組合鍵組合鍵, ,可強制程序暫停運行可強制程序暫停運行賦值與輸入輸出賦值與輸入輸出主頁主頁2022-2-34 (1)(1)表達式中的變量必須是賦過值的，否則變量的初值自動表達式中的變量必須是賦過值的，否則變量的初值自動取零值取零值( (變長字符串變量取空字符變長字符串變量取空字符) )。例如：。例如： a = 1a = 1 c = a + b + 3 c = a + b + 3 bb未賦過值，為未賦過值，為0 0 執(zhí)行后，執(zhí)行后，

4、c c 值為值為 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)容）說明說明主頁主頁2022-2-35 (3)變量出現(xiàn)在賦值號的右邊和左邊，其用途是不相同的。出變量出現(xiàn)在賦值號的右邊和左邊，其用途是不相同的。出現(xiàn)在右邊表達式中時，變量是參與運算的元素現(xiàn)在右邊表達式中時，變量是參與運算的元素(其值被讀出其值

5、被讀出)；出；出現(xiàn)在左邊時，變量起存放表達式的值的作用現(xiàn)在左邊時，變量起存放表達式的值的作用(被賦值被賦值)。例如。例如 x = 2 a = 3 x = 2*a + 5 當(dāng)執(zhí)行第當(dāng)執(zhí)行第3行語句行語句“x=2*a+5”時，將讀出變量時，將讀出變量a的值的值(即即3)，把，把該值乘該值乘2后加后加5，然后將結(jié)果，然后將結(jié)果(11)賦值給變量賦值給變量x。 (4)賦值號兩邊的數(shù)據(jù)類型必須一致，即同時為數(shù)值型或同時賦值號兩邊的數(shù)據(jù)類型必須一致，即同時為數(shù)值型或同時為字符型。為字符型。說明說明主頁主頁2022-2-36編寫的窗體單擊事件過程代碼如下：編寫的窗體單擊事件過程代碼如下： Private S

6、ub Form_Click() Dim x As Integer, a As Integer Dim b As Integer, c As Integer x = 36 a = Int(x / 10) 求十位數(shù)求十位數(shù) b = x Mod 10 求個位數(shù)求個位數(shù) c = b * 10 + a 生成新的數(shù)生成新的數(shù) Print 處理后的數(shù)處理后的數(shù): ; c End Sub運行程序后單擊窗體，輸出結(jié)果是：運行程序后單擊窗體，輸出結(jié)果是： 處理后的數(shù)：處理后的數(shù)：63例例3.1 給定一個兩位數(shù)給定一個兩位數(shù)(如如36)，交換個位數(shù)和十位數(shù)的位，交換個位數(shù)和十位數(shù)的位置，把處理后的數(shù)顯示在窗體上置，

7、把處理后的數(shù)顯示在窗體上例例3.1 處理方法處理方法兩位數(shù)兩位數(shù) ab b取出個位數(shù)取出個位數(shù) a取出十位數(shù)取出十位數(shù)新兩位數(shù)新兩位數(shù): : b b* *10 + a10 + a主頁主頁2022-2-37 編寫的編寫的VBVB程序代碼如下：程序代碼如下： Private Sub Form_Click()Private Sub Form_Click() Dim x As Integer, a As Integer Dim x As Integer, a As Integer Dim b As Integer, c As Integer Dim b As Integer, c As Integer

8、 x = InputBox(“ x = InputBox(“輸入一個位數(shù)輸入一個位數(shù)”)”) 運行時由用戶運行時由用戶任意任意給定一個位數(shù)給定一個位數(shù) a = Int(x / 10) a = Int(x / 10) 求十位數(shù)求十位數(shù) b = x Mod 10 b = x Mod 10 求個位數(shù)求個位數(shù) c = b c = b * * 10 + a 10 + a 生成新的數(shù)生成新的數(shù) Print Print 處理后的數(shù)處理后的數(shù): ; c: ; c End Sub End Sub 執(zhí)行后，彈出一個輸入對話框，若用戶輸入執(zhí)行后，彈出一個輸入對話框，若用戶輸入“83”83”，輸出結(jié)，輸出結(jié)果：果：

9、處理后的數(shù)處理后的數(shù): 38: 38 例例3.1A 3.1A 運行時由用戶任意運行時由用戶任意給定一個兩位數(shù)，交換個位數(shù)和十位數(shù)給定一個兩位數(shù)，交換個位數(shù)和十位數(shù)的位置，把處理后的數(shù)顯示在網(wǎng)頁上。的位置，把處理后的數(shù)顯示在網(wǎng)頁上。例例3.1A一種靈活一種靈活輸入方式輸入方式InputBox是是VB函數(shù)，函數(shù)，見見P58主頁主頁2022-2-38例例3.2 設(shè)計程序，實現(xiàn)兩個文本框內(nèi)容的交換設(shè)計程序，實現(xiàn)兩個文本框內(nèi)容的交換 (1)在窗體上建立兩個標(biāo)簽、兩個文本框和一個命令按鈕在窗體上建立兩個標(biāo)簽、兩個文本框和一個命令按鈕 (2)編寫程序代碼編寫程序代碼 借助于另一個變量借助于另一個變量(假設(shè)為

10、假設(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 SubText1Text2例例3.2有的對象屬性有的對象屬性具有變量的特性具有變量的特性主頁主頁2022-2-39 編寫的程序代碼如下編寫的程序代碼如下 ： Private Sub Command1_Click() “交換交換”按鈕按鈕 t = Text1.Text Text1.Text = Text2.Te

11、xt Text2.Text = t End Sub 采用變體型變量采用變體型變量 說明：說明：對于初學(xué)者來說，為了節(jié)省時間，有時可對于初學(xué)者來說，為了節(jié)省時間，有時可以不采用以不采用Dim等語句聲明就直接使用變量等語句聲明就直接使用變量(默認為變體默認為變體型，如型，如t)。但在規(guī)范的軟件開發(fā)中，通常都要求程序。但在規(guī)范的軟件開發(fā)中，通常都要求程序中使用的變量必須預(yù)先聲明。中使用的變量必須預(yù)先聲明。沒用沒用Dim語句語句t 是變體型變量是變體型變量主頁主頁2022-2-310 把上述程序改為以下形式，效果是否一樣？把上述程序改為以下形式，效果是否一樣？Private Sub Command1_

12、Click() “交換交換”按鈕按鈕 Text2.Text = Text1.Text Text1.Text = Text2.Text End Sub思考題思考題想一想想一想主頁主頁2022-2-311 下列程序的運行結(jié)果是什么？下列程序的運行結(jié)果是什么？ 運行時，在文本框運行時，在文本框Text1Text1中輸入中輸入5 5，單擊，單擊“計算計算”按鈕后，在文本框按鈕后，在文本框Text2Text2顯示的結(jié)果是什么顯示的結(jié)果是什么? ? Private Sub Command1_Click() “計算計算”按鈕按鈕 Dim a As Integer, b As Integer, c As In

13、teger 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 = cEnd Sub思考題思考題想一想想一想Text1Text2例例3.2A20主頁主頁2022-2-312 3.3.1 Print3.3.1 Print方法方法 用于顯示用于顯示( (輸出輸出) )文本文本 格式：格式：對象名對象名. .Print Print 表達式列表表達式列表 說明：說明：(1)使用的對象可以是窗體等使用的對象可以是窗體等 Print “Print “程序設(shè)計程序

14、設(shè)計” 在當(dāng)前窗體上輸出在當(dāng)前窗體上輸出 Picture1.Print “Picture1.Print “程序設(shè)計程序設(shè)計” ” 在圖片框上輸出在圖片框上輸出 并不是所有控件都支持并不是所有控件都支持print，比如，比如Label就不支持。就不支持。 (2)表達式列表是一個或多個表達式，如果省略，則輸出表達式列表是一個或多個表達式，如果省略，則輸出一個空行一個空行 3.3 使用使用Print方法輸出數(shù)據(jù)方法輸出數(shù)據(jù)主頁主頁2022-2-313 例例3.3 Print3.3 Print輸出示例輸出示例 Private Sub Form_Click() a = 3: b = 4 Print a,

15、 b, 4 + a, Print 2 * b Print a, , b Print Print a=; a, b=; b End Sub 運行結(jié)果運行結(jié)果 例例3.3分號分號“；”緊湊格式，緊挨著輸出緊湊格式，緊挨著輸出逗號逗號“，”按區(qū)段格式按區(qū)段格式(14個字符位個字符位置置)語句行末尾有分號或逗號語句行末尾有分號或逗號,則輸出本行輸則輸出本行輸出項后不換行出項后不換行多個表達式之間用分號多個表達式之間用分號; 或逗號或逗號,隔開。隔開。輸出數(shù)值數(shù)據(jù)時，前面自動有一個符號輸出數(shù)值數(shù)據(jù)時，前面自動有一個符號位位(正號以空格表示正號以空格表示)，后面留有一個空格；，后面留有一個空格；而輸出字符

16、串時，前后不留空格。而輸出字符串時，前后不留空格。主頁主頁2022-2-314 1. Spc1. Spc函數(shù)函數(shù) 格式：格式：Spc(nSpc(n) ) 功能：在輸出下一項之前插入功能：在輸出下一項之前插入n n個空格。個空格。 例如：例如： Print Print 學(xué)號學(xué)號；Spc(2)Spc(2)；姓名姓名；Spc(5)Spc(5)；成績成績 輸出結(jié)果輸出結(jié)果(表示空格表示空格) )： 學(xué)號學(xué)號姓名姓名成績成績 3.3.23.3.2 特殊打印格式特殊打印格式主頁主頁2022-2-315 函數(shù)格式：函數(shù)格式：Tab(nTab(n) ) 功能：把輸出位置移到第功能：把輸出位置移到第n n列。列

17、。 例如：例如： Print Tab(2);Print Tab(2);學(xué)號學(xué)號；Tab(11);Tab(11);姓名姓名；Tab(21);Tab(21);成績成績 輸出結(jié)果是輸出結(jié)果是(1(1個漢字占個漢字占2 2個位置個位置) )： 學(xué)號學(xué)號姓名姓名成績成績 2. Tab函數(shù)函數(shù)主頁主頁2022-2-316程序代碼如下：程序代碼如下： Private Sub Form_Click() Print Print Tab(15); 學(xué)號學(xué)號; Tab(26); 姓名姓名; Tab(36); 成績成績 Print Tab(14); String(27, -) 輸出輸出27個減號字符個減號字符“-”

18、Print Tab(14); 20011001; Tab(26); 張小三張小三; Tab(36); 57 Print Tab(14); 20011003; Tab(26); 李小四李小四; Tab(36); 69 Print Tab(14); 20011012; Tab(26); 馬小五馬小五; Tab(36); 92 Print Tab(14); String(27, -) 輸出輸出27個減號字符個減號字符“-” End Sub例：例：使用使用TabTab對輸出進行定位對輸出進行定位主頁主頁2022-2-317 運行結(jié)果主頁主頁2022-2-318 格式：格式：Format(Format(

19、表達式表達式 ,格式串格式串) 功能：根據(jù)格式串規(guī)定的格式來輸出表達式的值功能：根據(jù)格式串規(guī)定的格式來輸出表達式的值 示例示例 a=4513.7a=4513.7 Print Format(a Print Format(a,#,#.#),#,#.#) Print Format(a,$#,#.00) Print Format(a,$#,#.00) 輸出結(jié)果是：輸出結(jié)果是： 4,513.74,513.7 $4,513.70 $4,513.70 格式符號格式符號# #和和0 0都能顯示數(shù)字，但符號都能顯示數(shù)字，但符號# #會剔除不必會剔除不必要的要的0 0，符號，符號0 0會按規(guī)定補足會按規(guī)定補足0

20、0 3. Format函數(shù)函數(shù)主頁主頁2022-2-319 窗體窗體(Form)是設(shè)計是設(shè)計VB應(yīng)用程序的基本平臺應(yīng)用程序的基本平臺 窗體本身是一個對象，又是其他對象的載體或容器窗體本身是一個對象，又是其他對象的載體或容器 多數(shù)應(yīng)用程序是從窗體開始執(zhí)行的多數(shù)應(yīng)用程序是從窗體開始執(zhí)行的 ; 一個程序可以有多個窗一個程序可以有多個窗體體 3.4.1 3.4.1 窗體的基本屬性窗體的基本屬性 設(shè)置窗體的屬性，可在程序設(shè)計時在屬性窗口中手工設(shè)置，設(shè)置窗體的屬性，可在程序設(shè)計時在屬性窗口中手工設(shè)置，也可以在程序運行時由代碼實現(xiàn)也可以在程序運行時由代碼實現(xiàn) 默認屬性默認屬性3.4 窗體窗體主頁主頁2022

21、-2-320 一些常用的窗體屬性：一些常用的窗體屬性： NameName屬性屬性：用于設(shè)置窗體的：用于設(shè)置窗體的名稱名稱。指定窗體的名稱。只讀，。指定窗體的名稱。只讀， 不能在應(yīng)用程序中修改不能在應(yīng)用程序中修改 CaptionCaption屬性屬性：用于設(shè)置窗體標(biāo)題欄上的：用于設(shè)置窗體標(biāo)題欄上的標(biāo)題標(biāo)題內(nèi)容。內(nèi)容。 MaxbuttonMaxbutton和和MinbuttonMinbutton屬性屬性：用于設(shè)置：用于設(shè)置最大化最大化和和最小化最小化按鈕按鈕 HeightHeight和和WidthWidth屬性屬性：確定窗體的初始：確定窗體的初始高度高度和和寬度寬度 LeftLeft和和TopTo

22、p屬性屬性：確定窗體的左上角在屏幕上的：確定窗體的左上角在屏幕上的橫、縱坐標(biāo)橫、縱坐標(biāo) BackColorBackColor和和ForeColorForeColor屬性屬性：設(shè)置窗體的：設(shè)置窗體的背景色背景色和和前景色前景色 FontNameFontName屬性屬性：用于在窗體上設(shè)置：用于在窗體上設(shè)置字體字體。 FontSizeFontSize屬性屬性：用于在窗體上設(shè)置：用于在窗體上設(shè)置字號字號。 Visible(Visible(可見性可見性) )：設(shè)置對象的設(shè)置對象的可見性可見性，默認值為，默認值為TrueTrue主頁主頁2022-2-321 坐標(biāo)原點坐標(biāo)原點(0, 0)(0, 0)在窗體的

23、左上角在窗體的左上角 坐標(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(CurrentY) ) Y YX X (CurrentX, CurrentY) 當(dāng)前位置當(dāng)前位置窗體坐標(biāo)系統(tǒng)窗體坐標(biāo)系統(tǒng)主頁主頁2022-2-322 窗體事件過程的一般格式為：窗體事件過程的一般格式為： Private Sub Form_事件名事件名(參數(shù)表參數(shù)表) End 在事件過程中只能使用在事件過程中只能使用Form，而在過程內(nèi)對窗，而在過程內(nèi)對窗體進行引用

24、時才會用到窗體名字體進行引用時才會用到窗體名字(如如Form1等等) 3.4.2 窗體的事件窗體的事件只能寫成只能寫成Form,Form,不能寫成不能寫成Form1Form1主頁主頁2022-2-323 與窗體有關(guān)的常用事件有以下幾種。與窗體有關(guān)的常用事件有以下幾種。 Load(Load(裝載裝載) )事件：事件：啟動程序時，通常先執(zhí)行啟動程序時，通常先執(zhí)行Form_Load Unload(Unload(卸載卸載) )事件事件 Click(Click(單擊單擊) )事件事件 DblClickDblClick( (雙擊雙擊) )事件事件 KeyPressKeyPress( (按鍵按鍵) )事件：

25、當(dāng)按下鍵盤上的某個健時，將觸事件：當(dāng)按下鍵盤上的某個健時，將觸發(fā)發(fā)KeyPressKeyPress事件。其事件過程的格式為：事件。其事件過程的格式為： Private Sub Private Sub 對象對象_KeyPress(KeyAscii_KeyPress(KeyAscii As Integer) As Integer) End Sub End Sub 示例：示例：Private Sub Form_KeyPress(KeyAsciiPrivate Sub Form_KeyPress(KeyAscii As Integer) As Integer) Print Print 你錄入的鍵是：你

26、錄入的鍵是：; Chr(KeyAsciiChr(KeyAscii) ) End Sub End Sub 參數(shù)參數(shù)KeyAscii返回返回所按鍵的所按鍵的ASCII碼碼主頁主頁2022-2-324 (1)Show(1)Show方法方法：用于快速顯示一個窗體，使該窗體變成活動窗：用于快速顯示一個窗體，使該窗體變成活動窗體。例如：體。例如： Private Sub Form_LoadPrivate Sub Form_Load()() Show Show Print “ Print “窗體已被窗體已被howhow顯示出來！顯示出來！” End SubEnd Sub (2)Print(2)Print方法

27、方法：用于在窗體上輸出表達式的值：用于在窗體上輸出表達式的值 (3)Cls(3)Cls方法方法：用于清除運行時在窗體中顯示的文本或圖形：用于清除運行時在窗體中顯示的文本或圖形 (4)Move(4)Move(移動移動) )方法方法：用于移動并改變窗體或控件的位置和大：用于移動并改變窗體或控件的位置和大小小 3.4.33.4.3 窗體的方法窗體的方法啟動程序時，系統(tǒng)先啟動程序時，系統(tǒng)先自動執(zhí)行本過程，但自動執(zhí)行本過程，但窗體未被顯示出來窗體未被顯示出來通過通過Show顯示窗體。顯示窗體。使后續(xù)的使后續(xù)的Print輸出內(nèi)輸出內(nèi)容可見容可見主頁主頁2022-2-325 1. 1. 焦點焦點 焦點焦點(

28、Focus(Focus，光標(biāo)，光標(biāo)) )是是對象接收鼠標(biāo)或鍵盤輸入的能力對象接收鼠標(biāo)或鍵盤輸入的能力。 要將焦點賦給控件，有以下幾種方法：要將焦點賦給控件，有以下幾種方法： (1)(1)用鼠標(biāo)選定對象用鼠標(biāo)選定對象 (2)(2)按快捷鍵選定對象按快捷鍵選定對象 (3)(3)按按TabTab鍵或鍵或Shift+TabShift+Tab鍵在當(dāng)前窗體的各對象之間切換焦點鍵在當(dāng)前窗體的各對象之間切換焦點 (4)(4)在代碼中用在代碼中用SetFocusSetFocus方法來設(shè)置焦點。例如：方法來設(shè)置焦點。例如： Text1.SetFocus Text1.SetFocus 把焦點設(shè)置在文本框把焦點設(shè)置在

29、文本框Text1Text1 2. Tab 2. Tab鍵序鍵序 TabTab鍵序是指用戶按鍵序是指用戶按TabTab鍵時，焦點在控件間移動的順序鍵時，焦點在控件間移動的順序 反映在控件的反映在控件的TabIndexTabIndex屬性屬性 3.4.43.4.4 焦點與焦點與TabTab鍵序鍵序主頁主頁2022-2-326 設(shè)置以下設(shè)置以下3 3個命令按鈕：個命令按鈕： “ “顯示顯示”按鈕：用于顯示唐詩按鈕：用于顯示唐詩“靜夜思靜夜思” “ “清除清除”按鈕：用于清除所生成的文本按鈕：用于清除所生成的文本 “ “結(jié)束結(jié)束”按鈕：結(jié)束程序的運行按鈕：結(jié)束程序的運行 設(shè)計步驟如下：設(shè)計步驟如下：

30、(1)(1)創(chuàng)建應(yīng)用程序的用戶界面和設(shè)置對象的屬性創(chuàng)建應(yīng)用程序的用戶界面和設(shè)置對象的屬性 例例3.43.4 顯示唐詩顯示唐詩“靜夜思靜夜思”例例3.4主頁主頁2022-2-327 (2)(2)編寫程序代碼。三個按鈕的事件過程代碼：編寫程序代碼。三個按鈕的事件過程代碼： Private Sub CmdPrt_ClickPrivate Sub CmdPrt_Click()() BackColor BackColor = RGB(255, 255, 255) = RGB(255, 255, 255) 背景顏色，白色背景顏色，白色 ForeColorForeColor = RGB(0, 0, 255)

31、 = RGB(0, 0, 255) 前景顏色，藍色前景顏色，藍色 FontNameFontName = = 楷體楷體_GB2312_GB2312 FontSize FontSize = 20 = 20 FontBold FontBold = True = True 粗體粗體 CurrentX = 1200 : CurrentYCurrentX = 1200 : CurrentY = 350 = 350 顯示位置顯示位置 Print Print 靜夜思靜夜思( (唐詩唐詩) Print Print 空一行空一行 FontNameFontName = = 幼圓幼圓 FontSize FontSiz

32、e = 13 = 13 Print Spc(6); Print Spc(6); 床前明月光，疑是地上霜床前明月光，疑是地上霜 Print Print Print Spc(6); Print Spc(6); 舉頭望明月，低頭思故鄉(xiāng)舉頭望明月，低頭思故鄉(xiāng) End Sub End Sub顏色值見附錄顏色值見附錄B B主頁主頁2022-2-328 Private Sub CmdCls_Click() Cls End Sub Private Sub CmdEnd_Click() End End Sub 程序運行后，單擊程序運行后，單擊“顯示顯示”按鈕，輸出結(jié)果按鈕，輸出結(jié)果主頁主頁2022-2-329

33、3.5 3.5 基本控件基本控件 三種基本控件三種基本控件命令按鈕、標(biāo)簽和文本框命令按鈕、標(biāo)簽和文本框 命令按鈕命令按鈕(commandButten)用于引發(fā)應(yīng)用程序的某個操作用于引發(fā)應(yīng)用程序的某個操作 標(biāo)簽標(biāo)簽(Label)主要用來顯示比較固定的提示性信息。主要用來顯示比較固定的提示性信息。 文本框文本框(TextBox)是一個文本編輯區(qū)域，用戶可以在該區(qū)域中是一個文本編輯區(qū)域，用戶可以在該區(qū)域中輸入、編輯和顯示文本內(nèi)容。輸入、編輯和顯示文本內(nèi)容。 幾點說明：幾點說明： (1) Caption屬性：屬性：對象的標(biāo)題對象的標(biāo)題 可以在可以在Caption屬性中為控件指定一個訪問鍵屬性中為控件指

34、定一個訪問鍵 例如：例如： Command1.Caption=“結(jié)束結(jié)束(&E)” 運行時只要用戶同時按下運行時只要用戶同時按下Alt鍵和鍵和E鍵，就能執(zhí)行該按鈕命令鍵，就能執(zhí)行該按鈕命令 (2) Enabled屬性：屬性：決定控件是否對用戶產(chǎn)生的事件作出響應(yīng)決定控件是否對用戶產(chǎn)生的事件作出響應(yīng) (3) Visible屬性：屬性：決定控件是否可見，默認值為決定控件是否可見，默認值為True主頁主頁2022-2-330 當(dāng)文本框的當(dāng)文本框的Text屬性內(nèi)容發(fā)生變化時，會觸發(fā)文本框?qū)傩詢?nèi)容發(fā)生變化時，會觸發(fā)文本框的的Change事件。事件。 當(dāng)在文本框當(dāng)在文本框Text1中輸入中輸入ABC

35、三個字符時窗體上顯示三個字符時窗體上顯示的是什么。的是什么。 Private Sub Text1_Change() Print Text1.Text End Sub例例3.4AAABABC思考題思考題想一想想一想主頁主頁2022-2-331 在窗體上已經(jīng)建立了兩個文本框在窗體上已經(jīng)建立了兩個文本框Text1和和Text2，并編寫，并編寫 如下三個事件過程：如下三個事件過程： Private Sub Form_Click() Text2.Text = P Text1.Text = P + Text1.Text End Sub Private Sub Text1_Change() 內(nèi)容發(fā)生改變內(nèi)容

36、發(fā)生改變 Text2.Text = Text2.Text + N + Text1.Text End Sub Private Sub Form_Load() Text2.Text = M Text1.Text = M End Sub 運行程序后單擊窗體，則在文本框運行程序后單擊窗體，則在文本框Text2中顯示的內(nèi)容是中顯示的內(nèi)容是 A. PNM B. NPM C. PNP D. PNPMA. PNM B. NPM C. PNP D. PNPM 例例3.4BD思考題思考題想一想想一想主頁主頁2022-2-332 3.63.6 使用對話框使用對話框 對話框既可以用來顯示信息，也可以用于輸入信息對話框

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

38、！) End Sub例例3.5輸入框輸入框消息框消息框主頁主頁2022-2-333 用于產(chǎn)生一個能接收用戶輸入的對話框用于產(chǎn)生一個能接收用戶輸入的對話框 格式：格式： 變量變量=InputBox=InputBox( (提示提示,標(biāo)題標(biāo)題,缺省值缺省值,xpos,ypos,xpos,ypos) 舉例舉例filename=InputBoxfilename=InputBox( (請輸入文件名請輸入文件名( (不超過不超過8 8個字符個字符) ), 文件名文件名,vbfilevbfile) ) 將產(chǎn)生一個如下對話框?qū)a(chǎn)生一個如下對話框 3.6.1 3.6.1 輸入對話框輸入對話框例例3.5A主頁主頁2

39、022-2-334 filename=InputBox(請輸入文件名請輸入文件名 + Chr(13) + (不超過不超過8個字符個字符), 文件名文件名, vbfile) 主頁主頁2022-2-335 使用使用MsgBoxMsgBox函數(shù)，可以產(chǎn)生一個對話框來顯示消息函數(shù)，可以產(chǎn)生一個對話框來顯示消息 當(dāng)用戶單擊某個按鈕后，將返回一個數(shù)值以標(biāo)明用戶單擊當(dāng)用戶單擊某個按鈕后，將返回一個數(shù)值以標(biāo)明用戶單擊了哪個按鈕了哪個按鈕 其語法格式是：其語法格式是： 變量變量=MsgBox=MsgBox( (提示提示,對話框類型對話框類型,對話框標(biāo)題對話框標(biāo)題) 例：例：y = MsgBox(“y = Msg

40、Box(“輸入文件名是否正確輸入文件名是否正確”,52,”,52,”請確請確認認”) ) “ “對話框類型對話框類型”一般有一般有3 3個參數(shù)，個參數(shù)， 4+48+04+48+0 出現(xiàn)按鈕；圖標(biāo)類型；默認按鈕；出現(xiàn)按鈕；圖標(biāo)類型；默認按鈕； 函數(shù)返回值函數(shù)返回值 示例：示例： 3.6.2 3.6.2 消息對話框消息對話框例例3.5B主頁主頁2022-2-336 1. 1. 返回一個值。從返回值中可以知道用戶按下的返回一個值。從返回值中可以知道用戶按下的是哪個按鈕（表是哪個按鈕（表3.53.5）。例如）。例如 y = MsgBox(“y = MsgBox(“輸入文件名是否正確輸入文件名是否正確”

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

42、按鈕。這種采用這種格式時，不知道用戶按下的是什么按鈕。這種格式可以使用在不需要知道用戶按鈕情況的場合。格式可以使用在不需要知道用戶按鈕情況的場合。MsgBox的兩種格式主頁主頁2022-2-337 (1)(1)創(chuàng)建應(yīng)用程序的用戶界面和設(shè)置對象屬性創(chuàng)建應(yīng)用程序的用戶界面和設(shè)置對象屬性 (2)(2)編寫程序代碼編寫程序代碼例例3.6 設(shè)計一個密碼輸入的簡單檢驗程序。密碼假定為設(shè)計一個密碼輸入的簡單檢驗程序。密碼假定為“123456”，密碼輸入時在屏幕上不顯示輸入的字符，而以密碼輸入時在屏幕上不顯示輸入的字符，而以“*”代替。代替。例例3.6圖圖3.13 密碼檢驗運行界面密碼檢驗運行界面 圖圖3.1

43、4 密碼輸入錯誤時彈出的消息框密碼輸入錯誤時彈出的消息框主頁主頁2022-2-338Private Sub Command1_Click() Private Sub Command1_Click() “確定確定”命令按鈕命令按鈕 Dim p As IntegerDim p As Integer If Text1.Text = 123456 Then If Text1.Text = 123456 Then MsgBox MsgBox 歡迎您用機！歡迎您用機！ Else Else p = MsgBox p = MsgBox(密碼錯誤！密碼錯誤！, 5 + 48, , 5 + 48, 輸入密碼輸入密

44、碼) ) 在消息框上顯示在消息框上顯示“重試重試”和和“取消取消”按鈕，以及按鈕，以及“！”圖標(biāo)圖標(biāo) If p = 4 Then If p = 4 Then 44表示單擊了表示單擊了“重試重試”按鈕按鈕 Text1.SetFocus Text1.SetFocus 焦點定位在原輸入的文本框中焦點定位在原輸入的文本框中 ElseElse MsgBox MsgBox 密碼錯誤，不重試了！密碼錯誤，不重試了！ End End End If End If End If End IfEnd SubEnd SubPrivate Sub Form_LoadPrivate Sub Form_Load()() T

45、ext1.PasswordChar = Text1.PasswordChar = * * 設(shè)置以設(shè)置以“* *”替代顯示替代顯示 Text1.Text = Text1.Text = End SubEnd Sub例例3.6 設(shè)計一個密碼輸入的簡單檢驗程序。密碼假定為設(shè)計一個密碼輸入的簡單檢驗程序。密碼假定為“123456”，密碼輸入時在屏幕上不顯示輸入的字符，而以密碼輸入時在屏幕上不顯示輸入的字符，而以“*”代替。代替。主頁主頁2022-2-339 在窗體上有一個文本框，然后編寫如下事件過程：在窗體上有一個文本框，然后編寫如下事件過程： Private Sub Form_Click() x =

46、InputBox(請輸入一個整數(shù)請輸入一個整數(shù)) Print x + Text1.text End Sub 程序運行時，在文本框中輸入程序運行時，在文本框中輸入456，然后單擊窗體，在輸入，然后單擊窗體，在輸入對話框中輸入對話框中輸入123，單擊，單擊“確定確定”按鈕后，在窗體上顯示的內(nèi)容按鈕后，在窗體上顯示的內(nèi)容是是 A. 123 B. 456 C. 579 D. 123456例例3.6AD思考題思考題想一想想一想主頁主頁2022-2-340 例例3.73.7 控制窗體控制窗體“變大變大”和和“變小變小” 在窗體上設(shè)置三個命令按鈕，程序進入運行狀態(tài)后，當(dāng)在窗體上設(shè)置三個命令按鈕，程序進入運行

47、狀態(tài)后，當(dāng)單擊單擊“窗體變大窗體變大”命令按鈕時，窗體變大，單擊命令按鈕時，窗體變大，單擊“窗體變小窗體變小”按鈕時，窗體變小。單擊按鈕時，窗體變小。單擊“退出退出”按鈕時，則退出。按鈕時，則退出。 3.7 3.7 程序舉例程序舉例例例3.7主頁主頁2022-2-341 (1)(1)建立應(yīng)用程序的用戶界面和設(shè)置對象屬性建立應(yīng)用程序的用戶界面和設(shè)置對象屬性 (2)(2)編寫程序代碼編寫程序代碼 Private Sub Form_Load() Form1.Height = 4000 Height為窗體的高度，為窗體的高度，P55 Form1.Width = 4000 Width為窗體的寬度為窗體的寬度 Form1.Top = 1000 設(shè)置窗體的初始位置設(shè)置窗體的初始位置(y) Form1.Left = 1000 設(shè)置窗體的初始位置設(shè)置窗體的初始位置(x) End Sub P