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

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

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

3、.0，賦值給Y,賦值語(yǔ)句,若右邊表達(dá)式時(shí)字符串，左邊變量是數(shù)值型，自動(dòng)轉(zhuǎn)換成數(shù)值類(lèi)型后再賦值。若表達(dá)式有非數(shù)值字符或空串，則出錯(cuò)。,任何非字符類(lèi)型數(shù)據(jù)賦值給字符類(lèi)型，都將自動(dòng)轉(zhuǎn)換為字符類(lèi)型。,如：X%=“123” X的值是123 Y”123A” 出錯(cuò)，提示類(lèi)型不匹配,如：S1$=123 S1的值是”123” S2$True S2的值是”True”,賦值語(yǔ)句,當(dāng)邏輯量賦值給數(shù)值型時(shí)，True轉(zhuǎn)換為1，F(xiàn)alse轉(zhuǎn)換為0；反之當(dāng)數(shù)值型賦值給邏輯型時(shí)，非0轉(zhuǎn)換為T(mén)rue，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,賦值語(yǔ)句,注意：實(shí)現(xiàn)兩個(gè)變量的交換，必須借助 中間變量！,兩個(gè)數(shù)交換過(guò)程,t=x : x=y: y=t,輸入與輸出,輸入輸出的常見(jiàn)方法： 使用Print 使用控件（如TextBox）進(jìn)行輸入輸出 使用InputBox,MsgBox 函數(shù),使用Print方法輸出數(shù)據(jù),功能：在窗體或其他圖形對(duì)象上輸出信息。 格式： 對(duì)象名稱(chēng).Print表達(dá)式表，|；,提示：對(duì)象只有三種對(duì)象分別為：窗體（Form），圖片框（PictureBox）和打印機(jī)。,使用控件輸入與輸出,使用控件進(jìn)行輸入：控件屬性值在等號(hào)右邊。 A =txt_a.text B =txt_b.text C =txt_c.text

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

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

7、圖示的對(duì)話(huà)框：,注意：你輸入的數(shù)據(jù)不正確,MsgBox,vbAbortRetryIgnore+vbExclamation,錯(cuò)誤提示,例如：補(bǔ)充實(shí)驗(yàn)3.3 Private Sub Command1_Click() Dim r As Double, a As Double Const PI = 3.14 r = InputBox(請(qǐng)輸入半徑) a = PI * r * r MsgBox 半徑為: ”*”;j;”=”;i*j Next j Next i,補(bǔ)充例5 打印九九乘法表,補(bǔ)充例題6,下列程序段的執(zhí)行結(jié)果為_(kāi)。 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張，問(wèn)有哪些組合？ 分析：用X、Y、Z來(lái)分別代表5元，1元和0.5元的零鈔的張數(shù)。得到方程 X+Y+Z=100 5X+Y+0.5Z=100 數(shù)學(xué)上無(wú)法得到解。采用窮舉法，利用循環(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 共有 是素?cái)?shù) Else Print N; 不是素?cái)?shù) End If,補(bǔ)充例題9,求100以?xún)?nèi)的素?cái)?shù) 分析：知道如何判斷一個(gè)數(shù)是否是素?cái)?shù)的方法后，我們可以利用雙重循環(huán)判斷一個(gè)區(qū)域范圍內(nèi)的數(shù)是否是素?cái)?shù)。,補(bǔ)充例題10,求100 999 之間的水仙花數(shù) 什么是“水仙花數(shù)” 所謂“

10、水仙花數(shù)”是指一個(gè)三位數(shù),其各位數(shù)字立方和等于該數(shù)本身。 例如：153是一個(gè)“水仙花數(shù)”,因?yàn)?153=135333。 解題的關(guān)鍵是如何分離出個(gè)位，十位，百位上的數(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,補(bǔ)充例題11,如何從一個(gè)三位數(shù)中分離百位數(shù)、十位數(shù)、個(gè)位數(shù)。 假設(shè)三位數(shù)i的各位數(shù)為a,十位數(shù)為b，

11、百位數(shù)為c.分離出這三個(gè)數(shù)的過(guò)程如下： a = i Mod 10 b = i 10 Mod 10 c = i 100,補(bǔ)充例題12,求Fibonacci數(shù)列：1，1，2，3，5，8，的前40個(gè)數(shù) 什么是Fibonacci數(shù)列 F1=1 n=1 F2=1 n=2 Fn=Fn-1+Fn-2 n3,補(bǔ)充例題,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,補(bǔ)充例題13,打印如下圖案：,For i=1 to 5,print spc(i-1);string(i,”*”),Next,Dim I as integer,補(bǔ)充例題 13,打印右圖圖案：,S=6 S=6 S=7 S=11 S=20 S=36,補(bǔ)充例題14,寫(xiě)出程序運(yùn)行結(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 語(yǔ)句,Exit 語(yǔ)句用于退出 Do.Loop、For.Next、Function或Sub代碼塊。 對(duì)應(yīng)的使用格式為：Exit Do、Exit For、Exit Function、Exit Sub。 分別表示退出DO循環(huán)、For循環(huán)、函數(shù)過(guò)程、子過(guò)程。,其它控制語(yǔ)句,Private Sub Form_Click() Dim I%, Num% Do While True 建立無(wú)窮循環(huán)。 For I = 1 To 100 循環(huán) 100 次。 Num = Int(Rnd * 100) 生成一個(gè)099的隨機(jī)數(shù)。 Select Case Num Case 10: Exit For 退出 For.Next 循環(huán)。 Case 50: Exit Do 退出 Do.Loop 循環(huán)。 Case 64: Exit Sub 退出子過(guò)程。 End Select Next I Loop End Sub,Exit語(yǔ)句的使用,2. End 語(yǔ)句 形式： End 功能：結(jié)束一個(gè)程序的運(yùn)行。 在Visual Basic中還有多種形式的End語(yǔ)句，用于結(jié)束一個(gè)程序塊或過(guò)程。 其形式有： End If End Select End Type 它們與對(duì)應(yīng)的語(yǔ)句配對(duì)使用。,End With End Sub End Function,其