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

1、VB程序設(shè)計基礎(chǔ)全套課件VB教程第3章教案 一個完整的一個完整的VBVB應用程序，一般都包含三部分內(nèi)容，即應用程序，一般都包含三部分內(nèi)容，即 輸入輸入 處理處理 輸出輸出 可通過可通過VBVB語句、各種控件實現(xiàn)輸入輸出操作語句、各種控件實現(xiàn)輸入輸出操作 本章主要內(nèi)容本章主要內(nèi)容第第3 3章章 賦值與輸入輸出賦值與輸入輸出命令按鈕命令按鈕標簽標簽輸入框輸入框消息框消息框退出退出 1. 1. 賦值語句賦值語句LetLet變量名變量名= =表達式表達式 示例：示例：x = 5 x = 5 * * 1.4 1.4 2. 2. 注釋、結(jié)束和暫停語句注釋、結(jié)束和暫停語句 (1) (1) 注釋語句注釋語句

2、Rem 注釋內(nèi)容注釋內(nèi)容 或或 注釋內(nèi)容注釋內(nèi)容 (2) (2) 結(jié)束語句結(jié)束語句 End (3) (3) 暫停語句暫停語句 Stop 也可以通過單擊工具欄上的也可以通過單擊工具欄上的“中斷中斷”按鈕來實現(xiàn)按鈕來實現(xiàn) 使用使用Ctrl + Break組合鍵組合鍵 賦值與輸入輸出賦值與輸入輸出 (1)(1)表達式中的變量必須是賦過值的，否則變量的初值自動取零值表達式中的變量必須是賦過值的，否則變量的初值自動取零值( (變長字符串變量取空字符變長字符串變量取空字符) )。例如：。例如： a = 1a = 1 c = a + b + 3 c = a + b + 3 bb未賦過值，為未賦過值，為0 0

3、 執(zhí)行后，執(zhí)行后，c c 值為值為 4 4 (2) (2)賦值語句跟數(shù)學中等式具有不同的含意，例如賦值語句跟數(shù)學中等式具有不同的含意，例如 x = x + 1x = x + 1 表示把變量表示把變量x x的當前值加上的當前值加上1 1后再將結(jié)果賦給變量后再將結(jié)果賦給變量 “先讀后寫先讀后寫”：讀出：讀出x x的內(nèi)容的內(nèi)容 加加1 1 寫回寫回x x（覆蓋原有內(nèi)容）（覆蓋原有內(nèi)容）說明說明 (3)變量出現(xiàn)在賦值號的右邊和左邊，其用途是不相同的。出現(xiàn)在右變量出現(xiàn)在賦值號的右邊和左邊，其用途是不相同的。出現(xiàn)在右邊表達式中時，變量是參與運算的元素邊表達式中時，變量是參與運算的元素(其值被讀出其值被讀出

4、)；出現(xiàn)在左邊時，變；出現(xiàn)在左邊時，變量起存放表達式的值的作用量起存放表達式的值的作用(被賦值被賦值)。例如。例如 x = 2 a = 3 x = 2*a + 5 當執(zhí)行第當執(zhí)行第3行語句行語句“x=2*a+5”時，將讀出變量時，將讀出變量a的值的值(即即3)，把該值乘，把該值乘2后加后加5，然后將結(jié)果，然后將結(jié)果(11)賦值給變量賦值給變量x。 (4)賦值號兩邊的數(shù)據(jù)類型必須一致，即同時為數(shù)值型或同時為字符賦值號兩邊的數(shù)據(jù)類型必須一致，即同時為數(shù)值型或同時為字符型。型。說明說明例例3.2 設(shè)計程序，實現(xiàn)兩個文本框內(nèi)容的交換設(shè)計程序，實現(xiàn)兩個文本框內(nèi)容的交換 (1)在窗體上建立兩個標簽、兩個文

5、本框和一個命令按鈕在窗體上建立兩個標簽、兩個文本框和一個命令按鈕 (2)編寫程序代碼編寫程序代碼 借助于另一個變量借助于另一個變量(假設(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 SubText1Text2例例3.2 編寫的程序代碼如下編寫的程序代碼如下 ： Private Sub Command1_Click() “交換交換”按鈕按鈕 t = Te

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

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

8、 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.2h20 3.3.1 Print3.3.1 Print方法方法 用于顯示用于顯示( (輸出輸出) )文本文本 格式：對象名格式：對象名. .Print Print 表達式列表表達式列表 說明：說明：(1)使用的對象可以是窗體等使用的對象可以是窗體等 Print Print “程序設(shè)計程序設(shè)計” 在當前窗體上輸出在當前窗體上輸出 Picture1.Print Picture1.Print

9、 “程序設(shè)計程序設(shè)計” 在圖片框上輸出在圖片框上輸出 (2)表達式列表是一個或多個表達式，如果省略，則輸出一個空行表達式列表是一個或多個表達式，如果省略，則輸出一個空行 3.3 使用使用Print方法輸出數(shù)據(jù)方法輸出數(shù)據(jù)例例3.2a Private Sub Form_Click() a = 2 b = VB Print 50 * a 計算并輸出表達式的值計算并輸出表達式的值 Print b 輸出變量的值輸出變量的值 Print 輸出空行輸出空行 Print The Total is 輸出字符串常量輸出字符串常量 End Sub 運行結(jié)果：運行結(jié)果：例例3.2a 輸出數(shù)值數(shù)據(jù)時，前面有一個符號位

10、輸出數(shù)值數(shù)據(jù)時，前面有一個符號位( (正號以空格表示正號以空格表示) )，后面留有一，后面留有一個空格；輸出字符串時，前后不留空格個空格；輸出字符串時，前后不留空格 (3)(3)當輸出多個表達式時，各表達式之間用分號當輸出多個表達式時，各表達式之間用分號“；”( (緊湊格式緊湊格式) )或逗或逗號號“，”( (按區(qū)格式按區(qū)格式) )隔開。隔開。 按區(qū)格式按區(qū)格式(14(14個字符位置個字符位置) ) (4) (4)若語句行末尾有分號或逗號若語句行末尾有分號或逗號, ,則輸出本行輸出項后不換行則輸出本行輸出項后不換行例例3.2b Private Sub Form_Click() a = 3: b

11、 = 4 Print a, b, 4 + a, Print 2 * b Print a, , b Print a=; a, b=; b End Sub 運行結(jié)果運行結(jié)果 例例3.2b 1. Spc1. Spc函數(shù)函數(shù) 格式：格式：Spc(n)Spc(n) 功能：在輸出下一項之前插入功能：在輸出下一項之前插入n n個空格。個空格。 例如：例如： Print Print 學號學號；Spc(2)Spc(2)；姓名姓名；Spc(5)Spc(5)；成績成績 輸出結(jié)果輸出結(jié)果(表示空格表示空格) )： 學號學號姓名姓名成績成績 特殊打印格式特殊打印格式 函數(shù)格式：函數(shù)格式：Tab(n)Tab(n) 功能：

12、把輸出位置移到第功能：把輸出位置移到第n n列。列。 例如：例如： Print Tab(2);Print Tab(2);學號學號；Tab(11);Tab(11);姓名姓名；Tab(21);Tab(21);成績成績 輸出結(jié)果是輸出結(jié)果是(1(1個漢字占個漢字占2 2個位置個位置) )： 學號學號姓名姓名成績成績 2. Tab函數(shù)函數(shù) 格式：格式：Format(Format(表達式表達式 ,格式串格式串) 功能：根據(jù)格式串規(guī)定的格式來輸出表達式的值功能：根據(jù)格式串規(guī)定的格式來輸出表達式的值 例例3.2c a=4513.7 : b=3456.78 : TimeVar=#08:30:05# Print

13、 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ù)字，但符號# #會剔除不必要的會剔除不必要的0 0，符號，符號0 0會按會按規(guī)定補足規(guī)定補足0 0 3. Format函數(shù)函數(shù)例例3.2c 窗體窗體(Form)是設(shè)計是設(shè)計VB應用程序的基本平臺應用程序的基本平臺 窗體本身是一個對象，又是其他對象的載體

14、或容器窗體本身是一個對象，又是其他對象的載體或容器 多數(shù)應用程序是從窗體開始執(zhí)行的多數(shù)應用程序是從窗體開始執(zhí)行的 ; 一個程序可以有多個窗體一個程序可以有多個窗體 3.4.1 3.4.1 窗體的基本屬性窗體的基本屬性 設(shè)置窗體的屬性，可在程序設(shè)計時在屬性窗口中手工設(shè)置，也可以設(shè)置窗體的屬性，可在程序設(shè)計時在屬性窗口中手工設(shè)置，也可以在程序運行時由代碼實現(xiàn)在程序運行時由代碼實現(xiàn) 默認屬性默認屬性3.4 窗體窗體 一些常用的窗體屬性：一些常用的窗體屬性： NameName屬性：用于設(shè)置窗體的名稱。屬性：用于設(shè)置窗體的名稱。指定窗體的名稱。只讀，不能在應用程指定窗體的名稱。只讀，不能在應用程序中修改

15、序中修改 CaptionCaption屬性：用于設(shè)置窗體標題欄上的標題內(nèi)容。屬性：用于設(shè)置窗體標題欄上的標題內(nèi)容。 MaxbuttonMaxbutton和和MinbuttonMinbutton屬性：用于設(shè)置最大化和最小化按鈕屬性：用于設(shè)置最大化和最小化按鈕 HeightHeight和和WidthWidth屬性：確定窗體的初始高度和寬度屬性：確定窗體的初始高度和寬度 LeftLeft和和TopTop屬性：確定窗體的左上角在屏幕上的橫、縱坐標屬性：確定窗體的左上角在屏幕上的橫、縱坐標 AppearanceAppearance屬性：用于設(shè)置窗體的外觀是平面還是三維的屬性：用于設(shè)置窗體的外觀是平面還是

16、三維的 BackColorBackColor和和ForeColorForeColor屬性：設(shè)置窗體的背景色和前景色屬性：設(shè)置窗體的背景色和前景色 PicturePicture屬性：用于在窗體上設(shè)置要顯示的圖形。屬性：用于在窗體上設(shè)置要顯示的圖形。 對象對象. .Picture=LoadPicture(Picture=LoadPicture(文件名文件名) ) Visible(Visible(可見性可見性) )：設(shè)置對象的可見性，默認值為設(shè)置對象的可見性，默認值為True 坐標原點坐標原點(0, 0)(0, 0)在窗體的左上角在窗體的左上角 坐標軸刻度單位為緹坐標軸刻度單位為緹(Twip,567

17、(Twip,567緹為緹為1 1厘米厘米) ) 當前位置的橫坐標當前位置的橫坐標(CurrentX)(CurrentX)和縱坐標和縱坐標(CurrentY)(CurrentY) Y YX X (CurrentX, CurrentY) 當前位置窗體坐標系統(tǒng)窗體坐標系統(tǒng) 窗體事件過程的一般格式為：窗體事件過程的一般格式為： Private Sub Form_事件名事件名(參數(shù)表參數(shù)表) End 在事件過程中只能使用在事件過程中只能使用Form，而在過程內(nèi)對窗體進行，而在過程內(nèi)對窗體進行引用時才會用到窗體名字引用時才會用到窗體名字(如如Form1等等) 3.4.2 窗體的事件窗體的事件 與窗體有關(guān)的

18、常用事件有以下幾種。與窗體有關(guān)的常用事件有以下幾種。 (1)Load(裝載裝載)事件事件 (2)Unload(卸載卸載)事件事件 (3)Activate(活動活動)、Deactivate(非活動非活動)事件事件 (4)Paint(繪畫繪畫)事件事件 (5)Click(單擊單擊)事件事件 (6)DblClick(雙擊雙擊)事件事件 (7)KeyPress(按鍵按鍵)事件：當按下鍵盤上的某個健時，將觸發(fā)事件：當按下鍵盤上的某個健時，將觸發(fā)KeyPress事件。其事件過程的格式為：事件。其事件過程的格式為： Private Sub 對象對象_KeyPress(KeyAscii As Integer)

19、 End Sub 參數(shù)參數(shù)KeyAscii返回所按鍵的返回所按鍵的ASCII碼碼 (1)Show(1)Show方法：用于快速顯示一個窗體，使該窗體變成活動窗體方法：用于快速顯示一個窗體，使該窗體變成活動窗體 (2)Print(2)Print方法：用于在窗體上輸出表達式的值方法：用于在窗體上輸出表達式的值 (3)Cls(3)Cls方法：用于清除運行時在窗體中顯示的文本或圖形方法：用于清除運行時在窗體中顯示的文本或圖形 (4)Move(4)Move(移動移動) )方法：用于移動并改變窗體或控件的位置和大方法：用于移動并改變窗體或控件的位置和大小小 窗體的方法窗體的方法 1.1.屬性：對象的特性屬性

20、：對象的特性 如如 Text1.Text,Label1.BackColorText1.Text,Label1.BackColor等等 設(shè)置方法：設(shè)置方法：(1) 在屬性窗口中設(shè)置在屬性窗口中設(shè)置 (2) 在程序中更改對象的屬性在程序中更改對象的屬性 如如 Text1.Text = Text1.Text = “ABCDEFGABCDEFG” 2. 2.事件：事件：由系統(tǒng)預先設(shè)置好的、能被對象識別的動作。由系統(tǒng)預先設(shè)置好的、能被對象識別的動作。 例如：鼠標的移動例如：鼠標的移動(MouseMove)、單擊、單擊(Click)等等 用來引發(fā)事件過程，其格式如下用來引發(fā)事件過程，其格式如下 3. 3.

21、 方法方法 方法是對象能夠執(zhí)行的動作方法是對象能夠執(zhí)行的動作 它是對象本身內(nèi)含的函數(shù)或過程，用于完成某種特定的功能它是對象本身內(nèi)含的函數(shù)或過程，用于完成某種特定的功能 一般格式：對象名一般格式：對象名.方法名方法名(參數(shù)參數(shù)) 如如 Form1.Cls 消除窗體消除窗體Form1上的內(nèi)容上的內(nèi)容 Form1.Print Visual BASIC 在當前窗體上顯示在當前窗體上顯示 對象的屬性、事件與方法對象的屬性、事件與方法( (小結(jié)小結(jié)) )Sub 對象名對象名_事件名事件名() 處理事件的程序代碼處理事件的程序代碼End Sub 1. 1. 焦點焦點 焦點焦點(Focus(Focus，光標，

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

23、2. Tab 2. Tab鍵序鍵序 TabTab鍵序是指用戶按鍵序是指用戶按TabTab鍵時，焦點在控件間移動的順序鍵時，焦點在控件間移動的順序 反映在控件的反映在控件的TabIndexTabIndex屬性屬性 焦點與焦點與TabTab鍵序鍵序 設(shè)置以下設(shè)置以下3 3個命令按鈕：個命令按鈕： “顯示顯示”按鈕：用于顯示唐詩按鈕：用于顯示唐詩“靜夜思靜夜思” “清除清除”按鈕：用于清除所生成的文本按鈕：用于清除所生成的文本 “結(jié)束結(jié)束”按鈕：結(jié)束程序的運行按鈕：結(jié)束程序的運行 設(shè)計步驟如下：設(shè)計步驟如下： (1)(1)創(chuàng)建應用程序的用戶界面和設(shè)置對象的屬性創(chuàng)建應用程序的用戶界面和設(shè)置對象的屬性

24、例例3.33.3 顯示唐詩顯示唐詩“靜夜思靜夜思”例例3.3 (2)(2)編寫程序代碼。編寫的三個按鈕的編寫程序代碼。編寫的三個按鈕的ClickClick事件過程代碼：事件過程代碼： Private Sub CmdPrt_Click() BackColor = RGB(255, 255, 255) ForeColor = RGB(0, 0, 255) FontName = 楷體楷體_GB2312 FontSize = 20 FontBold = True 粗體粗體 CurrentX = 1200:CurrentY = 350 顯示位置顯示位置 Print 靜夜思靜夜思(唐詩唐詩) FontNa

25、me = 幼圓幼圓 Print FontSize = 13 Print Spc(6); 床前明月光，疑是地上霜床前明月光，疑是地上霜 Print Print Spc(6); 舉頭望明月，低頭思故鄉(xiāng)舉頭望明月，低頭思故鄉(xiāng) End Sub Private Sub CmdCls_Click() Cls End Sub Private Sub CmdEnd_Click() End End Sub 程序運行后，單擊程序運行后，單擊“顯示顯示”按鈕，輸出結(jié)果按鈕，輸出結(jié)果 3.5 3.5 基本控件基本控件 三種基本控件三種基本控件命令按鈕、標簽和文本框命令按鈕、標簽和文本框 命令按鈕命令按鈕(comman

26、dButten)用于引發(fā)應用程序的某個操作用于引發(fā)應用程序的某個操作 標簽標簽(Label)主要用來顯示比較固定的提示性信息。主要用來顯示比較固定的提示性信息。 文本框文本框(TextBox)是一個文本編輯區(qū)域，用戶可以在該區(qū)域中輸入、編是一個文本編輯區(qū)域，用戶可以在該區(qū)域中輸入、編輯和顯示文本內(nèi)容。輯和顯示文本內(nèi)容。 幾點說明：幾點說明： (1) Caption屬性：對象的標題屬性：對象的標題 可以在可以在Caption屬性中為控件指定一個訪問鍵屬性中為控件指定一個訪問鍵 例如：例如： Command1.Caption=“結(jié)束結(jié)束(&E)” 運行時只要用戶同時按下運行時只要用戶同時按

27、下Alt鍵和鍵和E鍵，就能執(zhí)行該按鈕命令鍵，就能執(zhí)行該按鈕命令 (2) Enabled屬性：決定控件是否對用戶產(chǎn)生的事件作出響應屬性：決定控件是否對用戶產(chǎn)生的事件作出響應 (3) Visible屬性：決定控件是否可見，默認值為屬性：決定控件是否可見，默認值為True 在窗體上已經(jīng)建立了兩個文本框在窗體上已經(jīng)建立了兩個文本框Text1和和Text2，并編寫，并編寫 如下三個事件過程：如下三個事件過程： Private Sub Form_Click() Text2.Text = P Text1.Text = P + Text1.Text End Sub Private Sub Text1_Chan

28、ge() 內(nèi)容發(fā)生改變內(nèi)容發(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.3aD想一想想一想 對話框既可以用來顯示信息，也可以用于輸入信息對話框既可以用來顯示信息，也可以用于輸入信息 VBVB中

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

30、ub 3.63.6 使用對話框使用對話框例例3.4a 用于產(chǎn)生一個能接收用戶輸入的對話框用于產(chǎn)生一個能接收用戶輸入的對話框 格式：格式： 變量變量=InputBox(=InputBox(提示提示,標題標題,缺省值缺省值,xpos,ypos),xpos,ypos) 舉例舉例 filename$=InputBox(“請輸入文件名請輸入文件名(不超過不超過8個字符個字符)”，”文件名文件名”，”vbfile”) 將產(chǎn)生一個如下對話框?qū)a(chǎn)生一個如下對話框 3.6.1 3.6.1 輸入對話框輸入對話框例例3.4b filename$=InputBox(請輸入文件名請輸入文件名 + Chr(13) + (

31、不超過不超過8個字符個字符), 文件名文件名, vbfile) 使用使用MsgBoxMsgBox函數(shù)，可以產(chǎn)生一個對話框來顯示消息函數(shù)，可以產(chǎn)生一個對話框來顯示消息 當用戶單擊某個按鈕后，將返回一個數(shù)值以標明用戶單擊了哪個按當用戶單擊某個按鈕后，將返回一個數(shù)值以標明用戶單擊了哪個按鈕鈕 其語法格式是：其語法格式是： 變量變量=MsgBox(=MsgBox(提示提示,對話框類型對話框類型,對話框標題對話框標題) 例：例：y = MsgBox(y = MsgBox(“輸入文件名是否正確輸入文件名是否正確”,52,52,”請確認請確認”) ) “對話框類型對話框類型”一般有一般有3 3個參數(shù)，個參數(shù)

32、， 4+48+04+48+0 出現(xiàn)按鈕；圖標類型；默認按鈕；出現(xiàn)按鈕；圖標類型；默認按鈕； 函數(shù)返回值函數(shù)返回值 示例：示例： 3.6.2 3.6.2 消息對話框消息對話框例例3.4c 1. 1. 返回一個值。從返回值中可以知道用戶按下的是返回一個值。從返回值中可以知道用戶按下的是哪個按鈕（表哪個按鈕（表3.53.5）。例如）。例如 y = MsgBox(y = MsgBox(“輸入文件名是否正確輸入文件名是否正確”,52,52,”請確認請確認”) ) 若若y y為為1 1，表示用戶按下的是，表示用戶按下的是“確定確定”按鈕，依此類推。按鈕，依此類推。 程序通過判斷程序通過判斷y y值值( (

33、如采用條件語句如采用條件語句IF-THEN)IF-THEN)，再根據(jù)用戶按下的是，再根據(jù)用戶按下的是什么按鈕，再做不同的處理。什么按鈕，再做不同的處理。 2. 2. 不返回值。例如不返回值。例如 MsgBox MsgBox “輸入文件名是否正確輸入文件名是否正確”,52,52,”請確認請確認” MsgBox MsgBox “輸入文件名是否正確輸入文件名是否正確” 采用這種格式時，不知道用戶按下的是什么按鈕。這種格式可以采用這種格式時，不知道用戶按下的是什么按鈕。這種格式可以使用在不需要知道用戶按鈕情況的場合。使用在不需要知道用戶按鈕情況的場合。MsgBox的兩種格式(1)(1)創(chuàng)建應用程序的用

34、戶界面和設(shè)置對象屬性創(chuàng)建應用程序的用戶界面和設(shè)置對象屬性(2)(2)編寫程序代碼編寫程序代碼Private Sub Command1_Click() Dim r As Single, k As Single, s As Single r = Val(InputBox(請輸入圓的半徑請輸入圓的半徑, 計算圓的周長和面積計算圓的周長和面積) k = 2 * 3.14159 * r s = 3.14159 * r * r Text1.Text = k Text2.Text = s MsgBox 計算已完成計算已完成, , 例例3.5 End Sub Private Sub Command2_Clic

35、k() End End Sub例例3.5 從輸入框中輸入圓的半徑，計算圓的周長和面積從輸入框中輸入圓的半徑，計算圓的周長和面積例例3.5當輸入的圓半徑為當輸入的圓半徑為6565時，運行結(jié)果時，運行結(jié)果 例例3.6 3.6 控制窗體控制窗體“變大變大”和和“變小變小” 在窗體上設(shè)置三個命令按鈕在窗體上設(shè)置三個命令按鈕(圖圖3.13)，程序進入運行狀態(tài)后，當，程序進入運行狀態(tài)后，當單擊單擊“窗體變大窗體變大”命令按鈕時，窗體變大，單擊命令按鈕時，窗體變大，單擊“窗體變小窗體變小”按鈕時，按鈕時，窗體變小。單擊窗體變小。單擊“退出退出”按鈕時，則退出。按鈕時，則退出。 3.7 3.7 程序舉例程序舉例例例3.6 (1)(1)建立應用程序的用戶界面和設(shè)置對象屬性建立應用程序的用戶界面和設(shè)置對象屬性 (2)(2)編寫程序代碼編寫程序代碼 Private Sub Form_Load() Form1.Height = 4000 Height為