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. 對象何時得到焦點對象何時得到焦點 運行時選擇對象運行時選擇對象(鼠標(biāo)、鼠標(biāo)、Tab鍵、訪問鍵鍵、訪問鍵) 在代碼中使用在代碼中使用SetFocus方法方法 4.2.3 焦點和焦點和Tab鍵序鍵序 第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計 VB程序設(shè)計第2版第4章13 4. 對象何時失去焦點對象何時失去焦點 運行時用

12、運行時用Tab鍵移動、用訪問鍵或用鼠標(biāo)單擊選鍵移動、用訪問鍵或用鼠標(biāo)單擊選 擇另一個對象。擇另一個對象。 在代碼中對另一個對象使用在代碼中對另一個對象使用SetFocus方法改變焦方法改變焦 點。點。 5. Tab鍵序鍵序 指按指按Tab鍵時光標(biāo)在各個控件之間移動的順序。鍵時光標(biāo)在各個控件之間移動的順序。 每個窗體都有自己的每個窗體都有自己的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) 文本框文本框 標(biāo)簽標(biāo)簽 第四章第四章 順序結(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è)置標(biāo)簽設(shè)置標(biāo)簽Label2的的Caption屬性為空屬性為空; 設(shè)置標(biāo)簽設(shè)置標(biāo)簽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行符換行。 : 按鈕類型按鈕類型+圖標(biāo)類型圖標(biāo)

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-