第3章 控制結(jié)構(gòu)程序設(shè)計.ppt

1、第3章 控制結(jié)構(gòu)程序設(shè)計,三種結(jié)構(gòu)： 順序結(jié)構(gòu)：程序順序地執(zhí)行。 分支結(jié)構(gòu)：根據(jù)條件來控制流程。 循環(huán)結(jié)構(gòu)：重復(fù)地執(zhí)行一組指令。,語句的功能 執(zhí)行運算、控制程序流程,三種基本結(jié)構(gòu),1、順序 2、選擇 3、循環(huán),順序結(jié)構(gòu),1. 賦值語句 格式：變量名表達式 對象名.屬性名表達式 作用：將表達式的值賦值給變量名或?qū)丶O(shè)定屬性值。 x = a + 10*b Text1.Text = Hello,賦值語句,說明： 執(zhí)行過程：先求表達式的值，然后將值賦值給左邊的變量。 右邊的表達式可以是變量、常量、函數(shù)調(diào)用等特殊的表達式。,賦值語句,值,數(shù)學(xué)：N=N+1,VB：N=N+1,變量,3. 不要將“”理解為

2、數(shù)學(xué)上的等號,將等號右邊值賦給左邊！,Dim N As Integer N = 5 N = N +1 N = ?,賦值語句,4賦值符號“=”左邊一定只能是變量名或?qū)ο蟮膶傩砸?，不能是常量、符號常量、表達式。 下面的賦值語句都是錯的： 5=X 左邊是常量。 Abs(X)=20 左邊是函數(shù)調(diào)用，即是表達式。,賦值語句,5. 賦值符號“=”兩邊的數(shù)據(jù)類型一般要求應(yīng)一致。若不一致，則以左邊變量或?qū)ο髮傩缘臄?shù)據(jù)類型為基準。 數(shù)據(jù)類型不一致時，轉(zhuǎn)換規(guī)則： 若都是數(shù)值型，但精度不同，強制轉(zhuǎn)換成左邊變量的數(shù)據(jù)精度。,如：X%=3.54159 執(zhí)行后，x的值是4 Y！123 執(zhí)行后將整數(shù)123轉(zhuǎn)換成實數(shù)123

3、.0，賦值給Y,賦值語句,若右邊表達式時字符串，左邊變量是數(shù)值型，自動轉(zhuǎn)換成數(shù)值類型后再賦值。若表達式有非數(shù)值字符或空串，則出錯。,任何非字符類型數(shù)據(jù)賦值給字符類型，都將自動轉(zhuǎn)換為字符類型。,如：X%=“123” X的值是123 Y”123A” 出錯，提示類型不匹配,如：S1$=123 S1的值是”123” S2$True S2的值是”True”,賦值語句,當(dāng)邏輯量賦值給數(shù)值型時，True轉(zhuǎn)換為1，F(xiàn)alse轉(zhuǎn)換為0；反之當(dāng)數(shù)值型賦值給邏輯型時，非0轉(zhuǎn)換為True，0轉(zhuǎn)換為False。,如：A%=True 將True轉(zhuǎn)換為數(shù)值1賦值給A Dim x as boolean x-5 -5轉(zhuǎn)換成Tr

4、ue賦值給x,賦值語句,注意：實現(xiàn)兩個變量的交換，必須借助 中間變量！,兩個數(shù)交換過程,t=x : x=y: y=t,輸入與輸出,輸入輸出的常見方法： 使用Print 使用控件（如TextBox）進行輸入輸出 使用InputBox,MsgBox 函數(shù),使用Print方法輸出數(shù)據(jù),功能：在窗體或其他圖形對象上輸出信息。 格式： 對象名稱.Print表達式表，|；,提示：對象只有三種對象分別為：窗體（Form），圖片框（PictureBox）和打印機。,使用控件輸入與輸出,使用控件進行輸入：控件屬性值在等號右邊。 A =txt_a.text B =txt_b.text C =txt_c.text

5、使用控件進行輸出：控件屬性值在等號左邊。 Txt_x1.text = x1 Txt_x2.text = x2,用戶交互函數(shù),1. 數(shù)據(jù)的輸入InputBox函數(shù) 用于產(chǎn)生一個對話框，以作為數(shù)據(jù)輸入的界面，等待用戶輸入，并且返回所輸入的內(nèi)容。函數(shù)的返回值是字符串。,用戶交互函數(shù),InputBox函數(shù)格式 InputBox(提示信息,標題,默認值 ，橫坐標，縱坐標 ) 例如，要在屏幕上顯示如下的對話框:,例如：有下列語句如下: Dim x As String x = InputBox(請輸入你的姓名, 輸入姓名, John) 語句執(zhí)行后打開如下對話框。,用戶交互函數(shù),用戶交互函數(shù),Msgbox函數(shù)

6、：用于彈出一個對話框，返回值是整數(shù)。 函數(shù)形式: 變量% = MsgBox (提示信息 ,對話框樣式 ,標題) 過程形式： MsgBox 提示信息 ,對話框樣式 ,標題 說明：（1）各參數(shù)的含義與Msgbox語句相同 （2）函數(shù)形式有返回值，類型為整數(shù)，過程形式?jīng)]有返回值，只是顯示信息。,2. MsgBox函數(shù)和MsgBox過程,用戶交互函數(shù),提示信息：在對話框中顯示的信息。 對話框樣式 ：按鈕、圖標的種類。 教材P59頁表3-1 標題：對話框標題信息,參數(shù)說明：,MsgBox “hello,你好,提示信息,命令按鈕,MsgBox 注意：你輸入的數(shù)據(jù)不正確,2+48,錯誤提示,例要在屏幕上顯示

7、圖示的對話框：,注意：你輸入的數(shù)據(jù)不正確,MsgBox,vbAbortRetryIgnore+vbExclamation,錯誤提示,例如：補充實驗3.3 Private Sub Command1_Click() Dim r As Double, a As Double Const PI = 3.14 r = InputBox(請輸入半徑) a = PI * r * r MsgBox 半徑為: ”*”;j;”=”;i*j Next j Next i,補充例5 打印九九乘法表,補充例題6,下列程序段的執(zhí)行結(jié)果為_。 N = 0 For I = 1 To 3 For J = 5 To 1 Step

8、-1 N = N + 1 Next J, I Print N; J; I A： 12 0 4 B： 15 0 4 C： 12 3 1 D： 15 3 1,B： 15 0 4,例3.11 P72,將一張面值100的人民幣換成100張5元，1元和0.5元的鈔票，要求每種零鈔至少不少于1張，問有哪些組合？ 分析：用X、Y、Z來分別代表5元，1元和0.5元的零鈔的張數(shù)。得到方程 X+Y+Z=100 5X+Y+0.5Z=100 數(shù)學(xué)上無法得到解。采用窮舉法，利用循環(huán)求解。,Private Sub Form_Click() Dim X%, Y%, Z%, N% Print 5元 1元 0.5元 N = 0

9、 For X = 1 To 100 For Y = 1 To 100 For Z = 1 To 100 If X + Y + Z = 100 And 5 * X + Y + 0.5 * Z = 100 Then Print X, Y, Z N = N + 1 End If Next Z Next Y Next X Print 共有 是素數(shù) Else Print N; 不是素數(shù) End If,補充例題9,求100以內(nèi)的素數(shù) 分析：知道如何判斷一個數(shù)是否是素數(shù)的方法后，我們可以利用雙重循環(huán)判斷一個區(qū)域范圍內(nèi)的數(shù)是否是素數(shù)。,補充例題10,求100 999 之間的水仙花數(shù) 什么是“水仙花數(shù)” 所謂“

10、水仙花數(shù)”是指一個三位數(shù),其各位數(shù)字立方和等于該數(shù)本身。 例如：153是一個“水仙花數(shù)”,因為 153=135333。 解題的關(guān)鍵是如何分離出個位，十位，百位上的數(shù),Dim a, b, c, i As Integer For a = 1 To 9 For b = 0 To 9 For c = 0 To 9 If a * 100 + b * 10 + c = a 3 + b 3 + c 3 Then Print a * 100 + b * 10 + c End If Next Next Next,補充例題11,如何從一個三位數(shù)中分離百位數(shù)、十位數(shù)、個位數(shù)。 假設(shè)三位數(shù)i的各位數(shù)為a,十位數(shù)為b，

11、百位數(shù)為c.分離出這三個數(shù)的過程如下： a = i Mod 10 b = i 10 Mod 10 c = i 100,補充例題12,求Fibonacci數(shù)列：1，1，2，3，5，8，的前40個數(shù) 什么是Fibonacci數(shù)列 F1=1 n=1 F2=1 n=2 Fn=Fn-1+Fn-2 n3,補充例題,Private Sub Command1_Click() Dim f1 As Long, f2 As Long f1 = 1: f2 = 1: j = 0 For i = 1 To 20 Print f1; f2; f1 = _ f2 = _ Next End Sub,Print(String(

12、i,*),Next,Dim i As Integer,For i=1 To 5,補充例題13,打印如下圖案：,For i=1 to 5,print spc(i-1);string(i,”*”),Next,Dim I as integer,補充例題 13,打印右圖圖案：,S=6 S=6 S=7 S=11 S=20 S=36,補充例題14,寫出程序運行結(jié)果： Dim i as integer,s as integer For i=0 to 4 step 2 s=s+i Next print s=;s Print For i=0 to 4 s=s+i*i; print s=;s Next,1. Ex

13、it 語句,Exit 語句用于退出 Do.Loop、For.Next、Function或Sub代碼塊。 對應(yīng)的使用格式為：Exit Do、Exit For、Exit Function、Exit Sub。 分別表示退出DO循環(huán)、For循環(huán)、函數(shù)過程、子過程。,其它控制語句,Private Sub Form_Click() Dim I%, Num% Do While True 建立無窮循環(huán)。 For I = 1 To 100 循環(huán) 100 次。 Num = Int(Rnd * 100) 生成一個099的隨機數(shù)。 Select Case Num Case 10: Exit For 退出 For.Next 循環(huán)。 Case 50: Exit Do 退出 Do.Loop 循環(huán)。 Case 64: Exit Sub 退出子過程。 End Select Next I Loop End Sub,Exit語句的使用,2. End 語句 形式： End 功能：結(jié)束一個程序的運行。 在Visual Basic中還有多種形式的End語句，用于結(jié)束一個程序塊或過程。 其形式有： End If End Select End Type 它們與對應(yīng)的語句配對使用。,End With End Sub End Function,其