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

1、第3賦值與輸入輸出 學(xué)習(xí)程序設(shè)計(jì)，初學(xué)者要善于模仿，并要多練。 任何一門程序設(shè)計(jì)語(yǔ)言都有一套嚴(yán)格的編程規(guī)定(如語(yǔ)法規(guī)則)，在編程時(shí)一定要遵守這些規(guī)定(只能遵守，不能創(chuàng)造)。一個(gè)完整的VB應(yīng)用程序，一般都包含三部分內(nèi)容，即 輸入 處理 輸出 可通過(guò)VB語(yǔ)句、各種控件實(shí)現(xiàn)輸入輸出操作 本章主要內(nèi)容第3章 賦值與輸入輸出賦值語(yǔ)句注釋、結(jié)束及暫停語(yǔ)句使用Print方法輸出數(shù)據(jù)窗體和基本控件對(duì)話框程序舉例命令按鈕標(biāo)簽文本框輸入框消息框退出 1. 賦值語(yǔ)句Let變量名=表達(dá)式 示例： 2. 注釋、結(jié)束和暫停語(yǔ)句 (1) 注釋語(yǔ)句 Rem 注釋內(nèi)容 或 注釋內(nèi)容 (2) 結(jié)束語(yǔ)句 End (3) 暫停語(yǔ)句

2、Stop 也可以通過(guò)單擊工具欄上的“中斷”按鈕來(lái)實(shí)現(xiàn) 使用Ctrl + Break組合鍵 賦值與輸入輸出 (1)表達(dá)式中的變量必須是賦過(guò)值的，否則變量的初值自動(dòng)取零值(變長(zhǎng)字符串變量取空字符)。例如： a = 1 c = a + b + 3 b未賦過(guò)值，為0 執(zhí)行后，c 值為 4 (2)賦值語(yǔ)句跟數(shù)學(xué)中等式具有不同的含意，例如 x = x + 1 表示把變量x的當(dāng)前值加上1后再將結(jié)果賦給變量 “先讀后寫(xiě)”：讀出x的內(nèi)容 加1 寫(xiě)回x（覆蓋原有內(nèi)容）說(shuō)明 (3)變量出現(xiàn)在賦值號(hào)的右邊和左邊，其用途是不相同的。出現(xiàn)在右邊表達(dá)式中時(shí)，變量是參與運(yùn)算的元素(其值被讀出)；出現(xiàn)在左邊時(shí)，變量起存放表達(dá)式

3、的值的作用(被賦值)。例如 x = 2 a = 3 x = 2*a + 5 當(dāng)執(zhí)行第3行語(yǔ)句“x=2*a+5”時(shí)，將讀出變量a的值(即3)，把該值乘2后加5，然后將結(jié)果(11)賦值給變量x。 (4)賦值號(hào)兩邊的數(shù)據(jù)類型必須一致，即同時(shí)為數(shù)值型或同時(shí)為字符型。說(shuō)明例3.2 設(shè)計(jì)程序，實(shí)現(xiàn)兩個(gè)文本框內(nèi)容的交換 (1)在窗體上建立兩個(gè)標(biāo)簽、兩個(gè)文本框和一個(gè)命令按鈕 (2)編寫(xiě)程序代碼 借助于另一個(gè)變量(假設(shè)為 t) ，并直接在控件中交換數(shù)據(jù) Private Sub Command1_Click() “交換”按鈕 Dim t As String Text1.Text = Text2.Text Text

4、2.Text = t End SubText1Text2例 編寫(xiě)的程序代碼如下 ： Private Sub Command1_Click() “交換”按鈕 Text2.Text = t End Sub 采用變體型變量 說(shuō)明：對(duì)于初學(xué)者來(lái)說(shuō)，為了節(jié)省時(shí)間，有時(shí)可以不采用Dim等語(yǔ)句聲明就直接使用變量(默認(rèn)為變體型，如t)。但在規(guī)范的軟件開(kāi)發(fā)中，通常都要求程序中使用的變量必須預(yù)先聲明。 把上述程序改為以下形式，效果是否一樣？Private Sub Command1_Click() “交換”按鈕 Text1.Text = Text2.Text End Sub思考題想一想 下列程序的運(yùn)行結(jié)果是什么？

5、運(yùn)行時(shí)，在文本框Text1中輸入5，單擊“計(jì)算”按鈕后，在文本框Text2顯示的結(jié)果是什么? Private Sub Command1_Click() “計(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 = cEnd Sub思考題想一想Text1Text2例20 3.3.1 Print方法 用于顯示(輸出)文本 格式：對(duì)象名.Print 表達(dá)式列表

6、 說(shuō)明：(1)使用的對(duì)象可以是窗體等 Print “程序設(shè)計(jì)” 在當(dāng)前窗體上輸出 Picture1.Print “程序設(shè)計(jì)” 在圖片框上輸出 (2)表達(dá)式列表是一個(gè)或多個(gè)表達(dá)式，如果省略，則輸出一個(gè)空行 3.3 使用Print方法輸出數(shù)據(jù)例 Private Sub Form_Click() a = 2 b = VB Print 50 * a 計(jì)算并輸出表達(dá)式的值 Print b 輸出變量的值 Print 輸出空行 Print The Total is 輸出字符串常量 End Sub 運(yùn)行結(jié)果：例 輸出數(shù)值數(shù)據(jù)時(shí)，前面有一個(gè)符號(hào)位(正號(hào)以空格表示)，后面留有一個(gè)空格；輸出字符串時(shí)，前后不留空格

7、(3)當(dāng)輸出多個(gè)表達(dá)式時(shí)，各表達(dá)式之間用分號(hào)“；”(緊湊格式)或逗號(hào)“，”(按區(qū)格式)隔開(kāi)。 按區(qū)格式(14個(gè)字符位置) (4)若語(yǔ)句行末尾有分號(hào)或逗號(hào),則輸出本行輸出項(xiàng)后不換行例 Private Sub Form_Click() a = 3: b = 4 Print a, b, 4 + a, Print 2 * b Print a, , b Print a=; a, b=; b End Sub 運(yùn)行結(jié)果 例 1. Spc函數(shù) 格式：Spc(n) 功能：在輸出下一項(xiàng)之前插入n個(gè)空格。 例如： Print 學(xué)號(hào)；Spc(2)；姓名；Spc(5)；成績(jī) 輸出結(jié)果(表示空格)： 學(xué)號(hào)姓名成績(jī) 特殊打

8、印格式 函數(shù)格式：Tab(n) 功能：把輸出位置移到第n列。 例如： Print Tab(2);學(xué)號(hào)；Tab(11);姓名；Tab(21);成績(jī) 輸出結(jié)果是(1個(gè)漢字占2個(gè)位置)： 學(xué)號(hào)姓名成績(jī) 2. Tab函數(shù) 格式：Format(表達(dá)式 ,格式串) 功能：根據(jù)格式串規(guī)定的格式來(lái)輸出表達(dá)式的值 例 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é)果是：

9、 +3,456.8 8:30:5 格式符號(hào)#和0都能顯示數(shù)字，但符號(hào)#會(huì)剔除不必要的0，符號(hào)0會(huì)按規(guī)定補(bǔ)足0 3. Format函數(shù)例 窗體(Form)是設(shè)計(jì)VB應(yīng)用程序的基本平臺(tái) 窗體本身是一個(gè)對(duì)象，又是其他對(duì)象的載體或容器 多數(shù)應(yīng)用程序是從窗體開(kāi)始執(zhí)行的 ; 一個(gè)程序可以有多個(gè)窗體 3.4.1 窗體的基本屬性 設(shè)置窗體的屬性，可在程序設(shè)計(jì)時(shí)在屬性窗口中手工設(shè)置，也可以在程序運(yùn)行時(shí)由代碼實(shí)現(xiàn) 默認(rèn)屬性3.4 窗體 一些常用的窗體屬性： Name屬性：用于設(shè)置窗體的名稱。指定窗體的名稱。只讀，不能在應(yīng)用程序中修改 Caption屬性：用于設(shè)置窗體標(biāo)題欄上的標(biāo)題內(nèi)容。 Maxbutton和Min

10、button屬性：用于設(shè)置最大化和最小化按鈕 Height和Width屬性：確定窗體的初始高度和寬度 Left和Top屬性：確定窗體的左上角在屏幕上的橫、縱坐標(biāo) Appearance屬性：用于設(shè)置窗體的外觀是平面還是三維的 BackColor和ForeColor屬性：設(shè)置窗體的背景色和前景色 Picture屬性：用于在窗體上設(shè)置要顯示的圖形。 對(duì)象.Picture=LoadPicture(文件名) Visible(可見(jiàn)性)：設(shè)置對(duì)象的可見(jiàn)性，默認(rèn)值為True 坐標(biāo)原點(diǎn)(0, 0)在窗體的左上角 坐標(biāo)軸刻度單位為緹(Twip,567緹為1厘米) 當(dāng)前位置的橫坐標(biāo)(CurrentX)和縱坐標(biāo)(Cu

11、rrentY) YX (CurrentX, CurrentY) 當(dāng)前位置窗體坐標(biāo)系統(tǒng) 窗體事件過(guò)程的一般格式為： Private Sub Form_事件名(參數(shù)表) End 在事件過(guò)程中只能使用Form，而在過(guò)程內(nèi)對(duì)窗體進(jìn)行引用時(shí)才會(huì)用到窗體名字(如Form1等) 3.4.2 窗體的事件 與窗體有關(guān)的常用事件有以下幾種。 (1)Load(裝載)事件 (2)Unload(卸載)事件 (3)Activate(活動(dòng))、Deactivate(非活動(dòng))事件 (4)Paint(繪畫(huà))事件 (5)Click(單擊)事件 (6)DblClick(雙擊)事件 (7)KeyPress(按鍵)事件：當(dāng)按下鍵盤上的某

12、個(gè)健時(shí)，將觸發(fā)KeyPress事件。其事件過(guò)程的格式為： Private Sub 對(duì)象_KeyPress(KeyAscii As Integer) End Sub 參數(shù)KeyAscii返回所按鍵的ASCII碼 (1)Show方法：用于快速顯示一個(gè)窗體，使該窗體變成活動(dòng)窗體 (2)Print方法：用于在窗體上輸出表達(dá)式的值 (3)Cls方法：用于清除運(yùn)行時(shí)在窗體中顯示的文本或圖形 (4)Move(移動(dòng))方法：用于移動(dòng)并改變窗體或控件的位置和大小 窗體的方法 1.屬性：對(duì)象的特性 如 Text1.Text,Label1.BackColor等 設(shè)置方法：(1) 在屬性窗口中設(shè)置 (2) 在程序中更改

13、對(duì)象的屬性 如 Text1.Text = “ABCDEFG” 2.事件：由系統(tǒng)預(yù)先設(shè)置好的、能被對(duì)象識(shí)別的動(dòng)作。 例如：鼠標(biāo)的移動(dòng)(MouseMove)、單擊(Click)等 用來(lái)引發(fā)事件過(guò)程，其格式如下 3. 方法 方法是對(duì)象能夠執(zhí)行的動(dòng)作 它是對(duì)象本身內(nèi)含的函數(shù)或過(guò)程，用于完成某種特定的功能 一般格式：對(duì)象名.方法名(參數(shù)) 如 Form1.Cls 消除窗體Form1上的內(nèi)容 Form1.Print Visual BASIC 在當(dāng)前窗體上顯示 對(duì)象的屬性、事件與方法(小結(jié))Sub 對(duì)象名_事件名() 處理事件的程序代碼End Sub 1. 焦點(diǎn) 焦點(diǎn)(Focus，光標(biāo))是對(duì)象接收鼠標(biāo)或鍵盤

14、輸入的能力。 要將焦點(diǎn)賦給控件，有以下幾種方法： (1)用鼠標(biāo)選定對(duì)象 (2)按快捷鍵選定對(duì)象 (3)按Tab鍵或Shift+Tab鍵在當(dāng)前窗體的各對(duì)象之間切換焦點(diǎn) (4)在代碼中用SetFocus方法來(lái)設(shè)置焦點(diǎn)。例如： Text1.SetFocus 把焦點(diǎn)設(shè)置在文本框Text1 2. Tab鍵序 Tab鍵序是指用戶按Tab鍵時(shí)，焦點(diǎn)在控件間移動(dòng)的順序 反映在控件的TabIndex屬性 焦點(diǎn)與Tab鍵序 設(shè)置以下3個(gè)命令按鈕： “顯示”按鈕：用于顯示唐詩(shī)“靜夜思” “清除”按鈕：用于清除所生成的文本 “結(jié)束”按鈕：結(jié)束程序的運(yùn)行 設(shè)計(jì)步驟如下： (1)創(chuàng)建應(yīng)用程序的用戶界面和設(shè)置對(duì)象的屬性 例

15、 顯示唐詩(shī)“靜夜思”例 (2)編寫(xiě)程序代碼。編寫(xiě)的三個(gè)按鈕的Click事件過(guò)程代碼： 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 靜夜思(唐詩(shī)) FontName = 幼圓 Print FontSize = 13 Print Spc(6); 床前明月光，疑是地上霜 Print Pr

16、int Spc(6); 舉頭望明月，低頭思故鄉(xiāng) End Sub Private Sub CmdCls_Click() Cls End Sub Private Sub CmdEnd_Click() End End Sub 程序運(yùn)行后，單擊“顯示”按鈕，輸出結(jié)果 3.5 基本控件 三種基本控件命令按鈕、標(biāo)簽和文本框 命令按鈕(commandButten)用于引發(fā)應(yīng)用程序的某個(gè)操作 標(biāo)簽(Label)主要用來(lái)顯示比較固定的提示性信息。 文本框(TextBox)是一個(gè)文本編輯區(qū)域，用戶可以在該區(qū)域中輸入、編輯和顯示文本內(nèi)容。 幾點(diǎn)說(shuō)明： (1) Caption屬性：對(duì)象的標(biāo)題 可以在Caption屬性

17、中為控件指定一個(gè)訪問(wèn)鍵 例如： Command1.Caption=“結(jié)束(&E)” 運(yùn)行時(shí)只要用戶同時(shí)按下Alt鍵和E鍵，就能執(zhí)行該按鈕命令 (2) Enabled屬性：決定控件是否對(duì)用戶產(chǎn)生的事件作出響應(yīng) (3) Visible屬性：決定控件是否可見(jiàn)，默認(rèn)值為True 在窗體上已經(jīng)建立了兩個(gè)文本框Text1和Text2，并編寫(xiě) 如下三個(gè)事件過(guò)程： Private Sub Form_Click() Text2.Text = P End Sub Private Sub Text1_Change() 內(nèi)容發(fā)生改變 Text2.Text = + N + Text1.Text End Sub Priv

18、ate Sub Form_Load() Text2.Text = M Text1.Text = M End Sub 運(yùn)行程序后單擊窗體，則在文本框Text2中顯示的內(nèi)容是 A. PNM B. NPM C. PNP D. PNPM 例D思考題想一想 對(duì)話框既可以用來(lái)顯示信息，也可以用于輸入信息 VB中能夠建立兩種預(yù)制對(duì)話框：輸入框和消息框 使用系統(tǒng)提供的函數(shù)(InputBox和MsgBox)，而不必為對(duì)話框另建窗體 先看以下一個(gè)例子 例 通過(guò)輸入框輸入姓名，然后再消息框中顯示出來(lái) Private Sub Form_Load() x = InputBox(輸入您的姓名, 您叫什么名?) y = M

19、sgBox( x & 先生：祝您馬到功成！) End Sub 使用對(duì)話框例 用于產(chǎn)生一個(gè)能接收用戶輸入的對(duì)話框 格式： 變量=InputBox(提示,標(biāo)題,缺省值,xpos,ypos) 舉例 filename$=InputBox(“請(qǐng)輸入文件名(不超過(guò)8個(gè)字符)”，”文件名”，”vbfile”) 將產(chǎn)生一個(gè)如下對(duì)話框 3.6.1 輸入對(duì)話框例 filename$=InputBox(請(qǐng)輸入文件名 + Chr(13) + (不超過(guò)8個(gè)字符), 文件名, vbfile) 使用MsgBox函數(shù)，可以產(chǎn)生一個(gè)對(duì)話框來(lái)顯示消息 當(dāng)用戶單擊某個(gè)按鈕后，將返回一個(gè)數(shù)值以標(biāo)明用戶單擊了哪個(gè)按鈕 其語(yǔ)法格式是：

20、變量=MsgBox(提示,對(duì)話框類型,對(duì)話框標(biāo)題) 例：y = MsgBox(“輸入文件名是否正確”,52,”請(qǐng)確認(rèn)”) “對(duì)話框類型”一般有3個(gè)參數(shù)， 4+48+0 出現(xiàn)按鈕；圖標(biāo)類型；默認(rèn)按鈕； 函數(shù)返回值 示例： 3.6.2 消息對(duì)話框例 1. 返回一個(gè)值。從返回值中可以知道用戶按下的是哪個(gè)按鈕（表）。例如 y = MsgBox(“輸入文件名是否正確”,52,”請(qǐng)確認(rèn)”) 若y為1，表示用戶按下的是“確定”按鈕，依此類推。 程序通過(guò)判斷y值(如采用條件語(yǔ)句IF-THEN)，再根據(jù)用戶按下的是什么按鈕，再做不同的處理。 2. 不返回值。例如 MsgBox “輸入文件名是否正確”,52,”請(qǐng)

21、確認(rèn)” MsgBox “輸入文件名是否正確” 采用這種格式時(shí)，不知道用戶按下的是什么按鈕。這種格式可以使用在不需要知道用戶按鈕情況的場(chǎng)合。MsgBox的兩種格式(1)創(chuàng)建應(yīng)用程序的用戶界面和設(shè)置對(duì)象屬性(2)編寫(xiě)程序代碼Private Sub Command1_Click() Dim r As Single, k As Single, s As Single r = Val(InputBox(請(qǐng)輸入圓的半徑, 計(jì)算圓的周長(zhǎng)和面積) k = 2 * 3.14159 * r s = 3.14159 * r * r Text1.Text = k Text2.Text = s MsgBox 計(jì)算已完成

22、, , 例3.5 End Sub Private Sub Command2_Click() End End Sub例 從輸入框中輸入圓的半徑，計(jì)算圓的周長(zhǎng)和面積例當(dāng)輸入的圓半徑為65時(shí)，運(yùn)行結(jié)果 例 控制窗體“變大”和“變小” 在窗體上設(shè)置三個(gè)命令按鈕(圖3.13)，程序進(jìn)入運(yùn)行狀態(tài)后，當(dāng)單擊“窗體變大”命令按鈕時(shí)，窗體變大，單擊“窗體變小”按鈕時(shí)，窗體變小。單擊“退出”按鈕時(shí)，則退出。 3.7 程序舉例例 (1)建立應(yīng)用程序的用戶界面和設(shè)置對(duì)象屬性 (2)編寫(xiě)程序代碼 Private Sub Form_Load() Form1.Height = 4000 Height為窗體的高度，P55 F

23、orm1.Width = 4000 Height為窗體的寬度 Form1.Top = 1000 設(shè)置窗體的初始位置 Form1.Left = 1000 End Sub Private Sub Command1_Click() “窗體變大”按鈕 Form1.Height = + 200 每次增加200點(diǎn) Form1.Width = + 200 End Sub Private Sub Command2_Click() “窗體變小”按鈕 Form1.Height = - 200 每次減少200點(diǎn) Form1.Width = - 200 End Sub 在第一個(gè)文本框中輸入文字時(shí)，在另外兩個(gè)文本框中顯示同樣相同的內(nèi)容，但顯示的字號(hào)和字體不同。單擊“清除”按鈕時(shí)則清除三個(gè)文本框中的內(nèi)容例 在三個(gè)文本框中顯示不同的文字效果例 (1)建立應(yīng)用程序的用戶界面和設(shè)置對(duì)象屬性 (2)編寫(xiě)程序代碼 Private Sub Form_Load() Text2.Fon