VB程序設(shè)計第2版第4章課件

1、第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計 VB程序設(shè)計第2版第4章1 第第4 4章章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計 本章要點本章要點: 賦值語句賦值語句 數(shù)據(jù)輸入數(shù)據(jù)輸入 數(shù)據(jù)輸出數(shù)據(jù)輸出 注釋、暫停與程序結(jié)束語句注釋、暫停與程序結(jié)束語句 第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計 VB程序設(shè)計第2版第4章2 事件驅(qū)動事件驅(qū)動: 將代碼劃分成一些將代碼劃分成一些“子過程子過程” 過程結(jié)構(gòu)過程結(jié)構(gòu): 過程內(nèi)部代碼由三種基本結(jié)構(gòu)組成過程內(nèi)部代碼由三種基本結(jié)構(gòu)組成 即即: 順序結(jié)構(gòu)、選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)順序結(jié)構(gòu)、選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu) 順序結(jié)構(gòu)順序結(jié)構(gòu): 執(zhí)行過程的次序從上到下，從左到右執(zhí)行

2、過程的次序從上到下，從左到右 例例: Private Sub Command1_Click() Const Pi = 3.14 H = Val(Text1.Text) : R = Val(Text2.Text) Text3.Text = Pi * R 2 * H End Sub 第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計 VB程序設(shè)計第2版第4章3 4.1 賦值語句賦值語句 1. 格式格式 = 或或: .= 2. 功能功能 計算表達式的值計算表達式的值,再將此值賦給變量或?qū)ο髮傩浴Ｔ賹⒋酥蒂x給變量或?qū)ο髮傩浴?3. 說明說明 (1) : 應(yīng)符合應(yīng)符合VB變量命名約定。變量命名約定。 (2)

3、 : 常量、變量、表達式、屬性。常量、變量、表達式、屬性。 (3) : 缺省時為當(dāng)前窗體。缺省時為當(dāng)前窗體。 (4) 賦值號賦值號“=”: 與數(shù)學(xué)中的等號意義不同與數(shù)學(xué)中的等號意義不同。 例例: X=X+1 第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計 VB程序設(shè)計第2版第4章4 (5) 賦值號左邊必須是變量或?qū)ο髮傩?。賦值號左邊必須是變量或?qū)ο髮傩浴?例例: X=1 MyStr=Good Morning Command1.Caption=確定確定 X+1=X 錯誤，賦值號左邊是表達式錯誤，賦值號左邊是表達式 Y=5 正確正確 5=Y 錯誤，賦值號左邊是常量錯誤，賦值號左邊是常量 (6) 變

4、量名或?qū)ο髮傩悦念愋蛻?yīng)與表達式類型變量名或?qū)ο髮傩悦念愋蛻?yīng)與表達式類型 相容。相容。 類型類型相容相容：指變量名或?qū)ο髮傩悦軌蛘_存：指變量名或?qū)ο髮傩悦軌蛘_存 取賦值號右邊的表達式的值取賦值號右邊的表達式的值。 第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計 VB程序設(shè)計第2版第4章5 例例: Dim A As Integer, B As Single Dim C As Double, S As String A = 100 將整型數(shù)將整型數(shù)100賦給整型變量賦給整型變量A S = 123.45 將字符串將字符串123.45賦給變量賦給變量S A = S 將數(shù)字字符串變量賦給整型變

5、量，將數(shù)字字符串變量賦給整型變量， 變量變量A中存放中存放123 S = A S中存放字符串中存放字符串123 B = 12345.67 A = B 高精度變量賦值給整型變量，高精度變量賦值給整型變量， 先四舍五入后取整先四舍五入后取整, A中存放中存放12346 C = 123456.789 B = C 高精度變量賦值給低精度變量，高精度變量賦值給低精度變量， 變量變量B中存放中存放123456.8。有效數(shù)字。有效數(shù)字7位位 S = abc A = S 錯誤，類型不匹配錯誤，類型不匹配 第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計 VB程序設(shè)計第2版第4章6 (7) 變量未賦值時，數(shù)值型變

6、量值為變量未賦值時，數(shù)值型變量值為0，字符串變，字符串變 量值為空串量值為空串。 (8) 給可變類型的變量賦值后，變量的類型為賦值給可變類型的變量賦值后，變量的類型為賦值 號右邊表達式的類型。號右邊表達式的類型。 例例: 執(zhí)行下列各賦值語句后，執(zhí)行下列各賦值語句后，A的數(shù)據(jù)類型是什么？的數(shù)據(jù)類型是什么？ (設(shè)設(shè)A沒有定義數(shù)據(jù)類型沒有定義數(shù)據(jù)類型) A = 6 = 5 A = 5 + 3 A = 5+3 A = #11/26/99# A = #11/26/1999# A = Not 5 8 可用可用TypeName函數(shù)顯示變量的數(shù)據(jù)類型。函數(shù)顯示變量的數(shù)據(jù)類型。 如如:Print TypeNam

7、e(A) 第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計 VB程序設(shè)計第2版第4章7 【例【例4-1】設(shè)變量】設(shè)變量A中存放中存放5，變量，變量B中存放中存放8，交，交 換兩個變量的值，使變量換兩個變量的值，使變量A中存放中存放8，變量，變量B中中 存放存放5。 AB C C=A A=B B=C 代碼如下代碼如下: A = 5 B = 8 C = A A = B B = C 第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計 VB程序設(shè)計第2版第4章8 4.2 數(shù)據(jù)輸入數(shù)據(jù)輸入 把要加工的初始數(shù)據(jù)從某種外部設(shè)備（例如鍵把要加工的初始數(shù)據(jù)從某種外部設(shè)備（例如鍵 盤）盤）輸入輸入到計算機中，并把處理結(jié)

8、果到計算機中，并把處理結(jié)果輸出輸出到指定到指定 設(shè)備（如顯示器），這是程序設(shè)計語言所應(yīng)具備設(shè)備（如顯示器），這是程序設(shè)計語言所應(yīng)具備 的基本部分。的基本部分。 賦值語句；賦值語句； 輸入框輸入框(InputBox)； 文本框文本框(TextBox)； 輸入輸入 第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計 VB程序設(shè)計第2版第4章9 4.2.1 用用InputBox函數(shù)輸入數(shù)據(jù)函數(shù)輸入數(shù)據(jù) 1. InputBox函數(shù)的格式函數(shù)的格式 InputBox( , , ) 2. 功能功能 提示一對話框，等待用戶輸入正文或按下按鈕，提示一對話框，等待用戶輸入正文或按下按鈕， 并返回包含文本框內(nèi)容的字符

9、串。并返回包含文本框內(nèi)容的字符串。 3. 說明說明 : 字符串表達式。字符串表達式。 可用可用Chr(13)、Chr(10)、 Chr(13) R; AREA=; AREA End Sub 單擊單擊“確定確定”，返回文本框中的文本到變量，返回文本框中的文本到變量R中中 單擊單擊“取消取消”，返回一個零長度的字符串，返回一個零長度的字符串 第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計 VB程序設(shè)計第2版第4章11 用文本框輸入數(shù)據(jù)時，也就是將文本框的用文本框輸入數(shù)據(jù)時，也就是將文本框的Text 屬性的內(nèi)容賦值給某個變量。屬性的內(nèi)容賦值給某個變量。 例：將文本框例：將文本框Text1中輸入的字符

10、串賦給字符串中輸入的字符串賦給字符串 變量變量Mystr Dim MyStr As String MyStr = Text1.Text 例：將文本框例：將文本框Text1中輸入的字符串作為數(shù)值賦中輸入的字符串作為數(shù)值賦 給整型變量給整型變量 Dim A As Integer A = Val(Text1.Text) 4.2.2 用用TextBox控件輸入數(shù)據(jù)控件輸入數(shù)據(jù) 第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計 VB程序設(shè)計第2版第4章12 1. 焦點焦點 當(dāng)前可以接收用戶輸入的對象稱為具有焦點。當(dāng)前可以接收用戶輸入的對象稱為具有焦點。 注意注意: 并非所有控件都可以接收焦點。而且并非所有

11、控件都可以接收焦點。而且, 只有只有 Enabled和和Visible屬性為屬性為True時，才可以接收焦時，才可以接收焦 點。點。 2. 事件事件 GotFocus 發(fā)生在對象得到焦點時發(fā)生在對象得到焦點時 LostFocus 發(fā)生在對象失去焦點時發(fā)生在對象失去焦點時 3. 對象何時得到焦點對象何時得到焦點 運行時選擇對象運行時選擇對象(鼠標、鼠標、Tab鍵、訪問鍵鍵、訪問鍵) 在代碼中使用在代碼中使用SetFocus方法方法 4.2.3 焦點和焦點和Tab鍵序鍵序 第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計 VB程序設(shè)計第2版第4章13 4. 對象何時失去焦點對象何時失去焦點 運行時用

12、運行時用Tab鍵移動、用訪問鍵或用鼠標單擊選鍵移動、用訪問鍵或用鼠標單擊選 擇另一個對象。擇另一個對象。 在代碼中對另一個對象使用在代碼中對另一個對象使用SetFocus方法改變焦方法改變焦 點。點。 5. Tab鍵序鍵序 指按指按Tab鍵時光標在各個控件之間移動的順序。鍵時光標在各個控件之間移動的順序。 每個窗體都有自己的每個窗體都有自己的Tab鍵序。鍵序。 默認鍵序與控件的建立次序一致。默認鍵序與控件的建立次序一致。 TabIndex屬性屬性: 決定決定Tab鍵序鍵序 改變改變TabIndex屬性可以改變屬性可以改變Tab鍵序鍵序 TabStop屬性屬性: 決定是否能夠使用決定是否能夠使用

13、 Tab 鍵將焦點移鍵將焦點移 動到當(dāng)前對象。動到當(dāng)前對象。 第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計 VB程序設(shè)計第2版第4章14 【例【例4-2】設(shè)計如下圖所示的界面，運行時，輸入某】設(shè)計如下圖所示的界面，運行時，輸入某 學(xué)生三門課的成績，計算平均成績。按要求編程。學(xué)生三門課的成績，計算平均成績。按要求編程。 要求：要求： n單擊單擊“計算計算”按鈕求平均成績；按鈕求平均成績； n當(dāng)輸入成績的文本框獲得焦點時，選中其中的文本；當(dāng)輸入成績的文本框獲得焦點時，選中其中的文本； n當(dāng)輸入成績的文本框內(nèi)容發(fā)生變化時，清除平均值；當(dāng)輸入成績的文本框內(nèi)容發(fā)生變化時，清除平均值； n單擊單擊“清除

14、清除”按鈕清除所有內(nèi)容，將焦點定位在按鈕清除所有內(nèi)容，將焦點定位在Text1中；中； n單擊單擊“退出退出”按鈕結(jié)束程序的運行。按鈕結(jié)束程序的運行。 Text4 Text1 Text2 Text3 Command1 Command2 Command3 設(shè)設(shè)Text4的的 Locked 屬性為屬性為True 第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計 VB程序設(shè)計第2版第4章15 單擊單擊“計算計算”按鈕求平均成績按鈕求平均成績 Private Sub Command1_Click() A = Val(Text1.Text) B = Val(Text2.Text) C = Val(Text3

15、.Text) Text4.Text = (A + B + C) / 3 End Sub 第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計 VB程序設(shè)計第2版第4章16 當(dāng)輸入成績的文本框獲得焦點時當(dāng)輸入成績的文本框獲得焦點時,選中其中的文本選中其中的文本 Private Sub Text1_GotFocus() Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) End Sub Private Sub Text2_GotFocus() Text2.SelStart = 0 Text2.SelLength = Len(Text2.Text) E

16、nd Sub Private Sub Text3_GotFocus() Text3.SelStart = 0 Text3.SelLength = Len(Text3.Text) End Sub 第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計 VB程序設(shè)計第2版第4章17 當(dāng)輸入成績的文本框內(nèi)容發(fā)生變化時當(dāng)輸入成績的文本框內(nèi)容發(fā)生變化時,清除平均值清除平均值 Private Sub Text1_Change() Text4.Text = End Sub Private Sub Text2_Change() Text4.Text = End Sub Private Sub Text3_Change

17、() Text4.Text = End Sub 第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計 VB程序設(shè)計第2版第4章18 單擊單擊“清除清除”按鈕清除所有文本框的內(nèi)容，并按鈕清除所有文本框的內(nèi)容，并 將焦點定位在文本框?qū)⒔裹c定位在文本框Text1中。中。 Private Sub Command2_Click() Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text1.SetFocus End Sub 單擊單擊“退出退出”按鈕結(jié)束程序的運行。按鈕結(jié)束程序的運行。 Private Sub Command3_Click() End En

18、d Sub 第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計 VB程序設(shè)計第2版第4章19 4.3 數(shù)據(jù)輸出數(shù)據(jù)輸出 在程序設(shè)計中對輸入的數(shù)據(jù)進行加工后，往往在程序設(shè)計中對輸入的數(shù)據(jù)進行加工后，往往 需要將處理結(jié)果、提示信息等呈現(xiàn)給用戶，即輸出。需要將處理結(jié)果、提示信息等呈現(xiàn)給用戶，即輸出。 輸輸 出出 Print方法方法 消息框消息框(MsgBox) 文本框文本框 標簽標簽 第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計 VB程序設(shè)計第2版第4章20 用文本框輸出數(shù)據(jù)時，也就是將數(shù)據(jù)賦給文本框用文本框輸出數(shù)據(jù)時，也就是將數(shù)據(jù)賦給文本框 的的Text屬性。例如輸出一個字符串（或數(shù)值）屬性。例如輸

19、出一個字符串（或數(shù)值）, 輸輸 出多個字符串（或數(shù)值）出多個字符串（或數(shù)值） 例：用文本框例：用文本框Text1輸出一個字符串輸出一個字符串 Text1.Text = hello 例：用文本框例：用文本框Text1輸出一個數(shù)值型數(shù)據(jù)輸出一個數(shù)值型數(shù)據(jù) X = 3 5 Text1.Text = Str(X) Str可以省略或用可以省略或用Format 例：用文本框例：用文本框Text1輸出多個數(shù)，分多行輸出輸出多個數(shù)，分多行輸出。 首先將文本框的首先將文本框的MultiLine設(shè)置為設(shè)置為True，必要時必要時 可以進一步設(shè)滾動條屬性可以進一步設(shè)滾動條屬性ScrollBars。 X = 3 5:

20、 Y = 7 4 Text1.Text = Str(X) 設(shè)置三個文本框的設(shè)置三個文本框的Alignment屬性為屬性為1-Right Justify; 設(shè)置標簽設(shè)置標簽Label2的的Caption屬性為空屬性為空; 設(shè)置標簽設(shè)置標簽Label2的的BorderStyle屬性為屬性為1 Fixed Single。 Text1 Text2 Text3 Label2Command1 )( 2 1 , )()(cbapcpbpappS 第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計 VB程序設(shè)計第2版第4章25 代碼如下：代碼如下： Private Sub Command1_Click() Dim

21、 A As Single, B As Single, C As Single Dim P As Single, S As Single A = Val(Text1.Text) B = Val(Text2.Text) C = Val(Text3.Text) P = (A + B + C) / 2 S = Sqr(P * (P - A) * (P - B) * (P - C) 顯示時保留兩位小數(shù)顯示時保留兩位小數(shù) Label2.Caption = Format(S, 0.00) End Sub 第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計 VB程序設(shè)計第2版第4章26 消息框常用于在屏幕上顯示一

22、個對話框，給出消息框常用于在屏幕上顯示一個對話框，給出 一些提示或警告信息，并允許用戶進行選擇。程一些提示或警告信息，并允許用戶進行選擇。程 序可根據(jù)該選擇確定進一步的操作。序可根據(jù)該選擇確定進一步的操作。 1. MsgBox函數(shù)的格式函數(shù)的格式 =MsgBox( , , ) 或：或： MsgBox , , 2. 功能功能 在對話框中顯示消息，等待用戶單擊按鈕，并在對話框中顯示消息，等待用戶單擊按鈕，并 返回一個整數(shù)告訴用戶單擊了哪個按鈕。返回一個整數(shù)告訴用戶單擊了哪個按鈕。 3.3.說明說明 : 字符串表達式?？捎脫Q行符換行。字符串表達式?？捎脫Q行符換行。 : 按鈕類型按鈕類型+圖標類型圖標

23、類型+默認按鈕默認按鈕。P67 : 字符串表達式。字符串表達式。 返回值返回值: 由在對話框中按下哪種按鈕決定。見由在對話框中按下哪種按鈕決定。見P67 4.3.3 用用MsgBox函數(shù)輸出數(shù)據(jù)函數(shù)輸出數(shù)據(jù) 第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計 VB程序設(shè)計第2版第4章27 例例: Private Sub Command1_Click() MsgBox 提示信息提示信息 End Sub 例例: 換行換行 Private Sub Command1_Click() MsgBox 第一行第一行 | , : 窗體窗體 如如 Form1.Print Hello 圖片框圖片框 如如 Pictur

24、e1.Print Hello 打印機打印機 如如 Printer.Print Hello 立即窗口立即窗口 如如 Debug .Print Hello 省略省略: 默認為當(dāng)前窗體。默認為當(dāng)前窗體。 : 多個表達式多個表達式使用逗號或分號隔開。使用逗號或分號隔開。 逗號逗號: 以以14個字符位置為單位把一個輸出行個字符位置為單位把一個輸出行 分成若干區(qū)段。分成若干區(qū)段。 分號分號: 后一項緊跟前一項輸出。后一項緊跟前一項輸出。 第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計 VB程序設(shè)計第2版第4章31 輸出時，輸出時，數(shù)值型數(shù)據(jù)前有一個符號位數(shù)值型數(shù)據(jù)前有一個符號位(正號不顯正號不顯)， 后面

25、留一個空格位后面留一個空格位；字符串原樣輸出，前后無空格。；字符串原樣輸出，前后無空格。 例例: Private Sub Form_Activate() Print 123456789 Print 2+4=;2 + 4, Print 2-4=; Print 2 - 4 End Sub 例例: Private Sub Form_Activate() Print 123456789 Print 2+4=; 2 + 4 Print 2-4=, 2 - 4 End Sub 第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計 VB程序設(shè)計第2版第4章32 例例: Private Sub Form_Load(

26、) Form1.Show Print 123456789 Print 產(chǎn)生空行產(chǎn)生空行 Print 2+4=; 2 + 4, Print 取消上面一句末尾逗號的作用取消上面一句末尾逗號的作用 Print 2-4=; Print 2 - 4 End Sub 輸入輸入Print時可用時可用?代替，代替，VB將其自動轉(zhuǎn)換成將其自動轉(zhuǎn)換成Print 第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計 VB程序設(shè)計第2版第4章33 2. 與與Print方法有關(guān)的函數(shù)方法有關(guān)的函數(shù) (1) Tab函數(shù)函數(shù) 格式格式: Tab(n) 功能功能: 在指定的第在指定的第n個位置上輸出數(shù)據(jù)。個位置上輸出數(shù)據(jù)。 參數(shù)參

27、數(shù)n: n當(dāng)前位置當(dāng)前位置: 打印位置為下一行的第打印位置為下一行的第n列列 n1: 打印位置為第打印位置為第1列列 省略省略: 打印位置為下一個打印區(qū)的起點打印位置為下一個打印區(qū)的起點 (每每14個字符為一個打印區(qū)個字符為一個打印區(qū)) 第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計 VB程序設(shè)計第2版第4章34 例例: Private Sub Form_Activate() Print 123456789 Print Hello; Tab(10); World Print Hello; Tab; World Print Hello; Tab(4); World Print Tab(-5);

28、Hello End Sub 第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計 VB程序設(shè)計第2版第4章35 (2) Spc函數(shù)函數(shù) 格式格式: Spc(n) 功能功能: 跳過跳過n個空格。個空格。 例例: Print HOW; Spc(3); ABOUT 結(jié)果結(jié)果: HOWABOUT 注意注意: Spc函數(shù)與函數(shù)與Space函數(shù)、函數(shù)、Tab函數(shù)的區(qū)別函數(shù)的區(qū)別 Space函數(shù)函數(shù):可以用在字符串允許出現(xiàn)的任何位可以用在字符串允許出現(xiàn)的任何位 置。置。 Spc函數(shù)函數(shù):只能用在打印語句中。只能用在打印語句中。 Tab函數(shù)指定絕對位置；函數(shù)指定絕對位置； Space函數(shù)或函數(shù)或Spc函數(shù)函數(shù) 指定

29、相對位置。指定相對位置。 第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計 VB程序設(shè)計第2版第4章36 4.4 注釋、暫停與程序結(jié)束語句注釋、暫停與程序結(jié)束語句 1. 注釋語句注釋語句 格式格式: | Rem 功能功能: 給語句或程序段加上注釋，以提高可讀性。給語句或程序段加上注釋，以提高可讀性。 說明說明: Rem與與 之間至少空一個空格。之間至少空一個空格。 例例: Private Sub Form_Activate() Rem 本程序用于計算圓的面積本程序用于計算圓的面積 Dim R As String, AREA As Single R為半徑為半徑 R=InputBox(請輸入半徑請輸

30、入半徑, , 1) :Rem 輸入半徑輸入半徑 AREA = 3.14 * Val(R) 2 以下將半徑和面積輸出到窗體上以下將半徑和面積輸出到窗體上 Print Val(R), AREA End Sub 第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計 VB程序設(shè)計第2版第4章37 2. 暫停語句暫停語句 格式格式: Stop 功能功能: 暫停程序的執(zhí)行。暫停程序的執(zhí)行。 用于程序調(diào)試。類似于執(zhí)行用于程序調(diào)試。類似于執(zhí)行“運行運行”菜單中的菜單中的 “中斷中斷”命令命令 3. 結(jié)束語句結(jié)束語句 格式格式: End 功能功能: 結(jié)束程序的執(zhí)行。結(jié)束程序的執(zhí)行。 第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序

31、結(jié)構(gòu)程序設(shè)計 VB程序設(shè)計第2版第4章38 4.5 順序結(jié)構(gòu)程序應(yīng)用舉例順序結(jié)構(gòu)程序應(yīng)用舉例 【例例4-5】雞兔同籠。已知籠中雞兔總頭數(shù)為雞兔同籠。已知籠中雞兔總頭數(shù)為h， 總腳數(shù)為總腳數(shù)為f，問雞兔各有多少只？，問雞兔各有多少只？ 分析：分析： 設(shè)雞有設(shè)雞有x只，兔有只，兔有y只，則方程式如下：只，則方程式如下： x+y=h 2x+4y=f 解方程。解出求解方程。解出求x和和y的具體公式為：的具體公式為： x=（4h-f）/2 y=（f-2h）/2 第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計 VB程序設(shè)計第2版第4章39 設(shè)計界面：設(shè)計界面： Command1 Text1 Text2 L

32、abel4 Label3 Label3、Label4的的AutoSize屬性設(shè)置為屬性設(shè)置為True 第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計 VB程序設(shè)計第2版第4章40 代碼如下：代碼如下： Private Sub Command1_Click() Dim h As Integer, f As Integer, x As Integer, y As Integer h = Val(Text1.Text) f = Val(Text2.Text) x = (4 * h - f) / 2 y = (f - 2 * h) / 2 Label3.Caption = Label3.Caption Len(Trim(Temp); 位位 End Sub 第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計 VB程序設(shè)計第2版第4章47 【例例4-84-