秋霞电影网午夜鲁丝片无码,真人h视频免费观看视频,囯产av无码片毛片一级,免费夜色私人影院在线观看,亚洲美女综合香蕉片,亚洲aⅴ天堂av在线电影猫咪,日韩三级片网址入口

《總結(jié)程序結(jié)構(gòu)》PPT課件.ppt

上傳人:za****8 文檔編號(hào):14499189 上傳時(shí)間:2020-07-22 格式:PPT 頁數(shù):25 大?。?49.51KB
收藏 版權(quán)申訴 舉報(bào) 下載
《總結(jié)程序結(jié)構(gòu)》PPT課件.ppt_第1頁
第1頁 / 共25頁
《總結(jié)程序結(jié)構(gòu)》PPT課件.ppt_第2頁
第2頁 / 共25頁
《總結(jié)程序結(jié)構(gòu)》PPT課件.ppt_第3頁
第3頁 / 共25頁

下載文檔到電腦,查找使用更方便

9.9 積分

下載資源

還剩頁未讀,繼續(xù)閱讀

資源描述:

《《總結(jié)程序結(jié)構(gòu)》PPT課件.ppt》由會(huì)員分享,可在線閱讀,更多相關(guān)《《總結(jié)程序結(jié)構(gòu)》PPT課件.ppt(25頁珍藏版)》請(qǐng)?jiān)谘b配圖網(wǎng)上搜索。

1、VB 程序設(shè)計(jì),程序控制結(jié)構(gòu),程序設(shè)計(jì)方法: 1、認(rèn)真閱讀題目,建立窗體 (注:窗體不一樣,編程方式也不一樣) 2、分析處理數(shù)據(jù)及操作先后關(guān)系 3、轉(zhuǎn)化為結(jié)構(gòu)(流程圖或N-S圖) 4、程序設(shè)計(jì) 5、上機(jī)檢查(調(diào)試) 6、總結(jié)、改進(jìn) 7、推廣應(yīng)用,注: 1、掌握題目的分類,采用相應(yīng)的程序結(jié)構(gòu)和設(shè)計(jì)方法。 2、同一個(gè)題目,完善程序的邏輯、算法、優(yōu)化結(jié)構(gòu)。,0: 程序設(shè)計(jì),IF Then Else End if,1: IF選擇塊結(jié)構(gòu),(1)基本格式:,(2)執(zhí)行方式:流程圖,示例:If score = 60 Then Print “祝賀你考試通過!” Else Print “

2、考試未通過.” End If Print 繼續(xù)努力!,2: 單行條件語句,(1). 基本格式 If Then 語句組A Else 語句組B,(2). 執(zhí)行方式:流程圖,示例:If score = 60 Then Print “通過!” Else Print “未通過.” Print 繼續(xù)努力!,注:此語句沒有End if,3: 比較,示例:從鍵盤上輸入兩個(gè)整數(shù),并按從大到小輸出。,If a < b Then t = a: a = b: b = t,4: 多分支選擇結(jié)構(gòu) Select,格式: Select Case Case Case Case Else En

3、d Select,示例: a=InputBox(“請(qǐng)輸入一個(gè)字”) Select Case a Case is=“。” Print “是句號(hào)” Case “,” Print “是逗號(hào)” Case a To z Print “是小寫字母 Case “A”,”B”,”C” to “Z” Print “是大寫字母 Case is”0” Print “可能是數(shù)字字符 End Select,Case is=“0” and is<=“9” (不能用not 、and 、 or),5: 條件結(jié)構(gòu)示例1,計(jì)算任意三角形的面積S,Private Sub Command1_Click()

4、 方法1 a = Val(InputBox(請(qǐng)輸入三角形邊長(zhǎng)a)) b = Val(InputBox(請(qǐng)輸入三角形邊長(zhǎng)b)) c = Val(InputBox(請(qǐng)輸入三角形邊長(zhǎng)c)) If a + b c And a + c b And b + c a Then k = (a + b + c) / 2 s = Sqr(k * (k - a) * (k - b) * (k - c)) Print s Else MsgBox (輸入的邊長(zhǎng)a、b、c不能組成三角形) End If End Sub,Private Sub Command1_Click() 方法2 a =

5、Val(InputBox(請(qǐng)輸入三角形邊長(zhǎng)a)) b = Val(InputBox(請(qǐng)輸入三角形邊長(zhǎng)b)) c = Val(InputBox(請(qǐng)輸入三角形邊長(zhǎng)c)) 注:輸入的邊長(zhǎng)a、b、c必須組成三角形,否則重新輸入,直到成功為至 Do While (a + b < c Or a + c < b Or b + c < a) MsgBox (輸入的邊長(zhǎng)a、b、c不能組成三角形,請(qǐng)重新輸入) a = Val(InputBox(請(qǐng)輸入三角形邊長(zhǎng)a)) b = Val(InputBox(請(qǐng)輸入三角形邊長(zhǎng)b)) c = Val(InputBox(請(qǐng)輸入三角形邊長(zhǎng)c)) Loo

6、p 注:循環(huán)這種方法不能改為文本框輸入,為什么? k = (a + b + c) / 2 s = Sqr(k * (k - a) * (k - b) * (k - c)) Print s End Sub,計(jì)算任意三角形的面積S,Private Sub Command1_Click() 方法3 a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) If a + b c And a + c b And b + c a Then k = (a + b + c) / 2 s = Sqr(k * (k - a) *

7、(k - b) * (k - c)) Text4.Text = s Else MsgBox (輸入的邊長(zhǎng)a、b、c不能組成三角形) End If End Sub,計(jì)算任意三角形的面積S,假設(shè)廣州市地鐵1號(hào)線全長(zhǎng)共有12站臺(tái),搭乘站數(shù)與車票價(jià)格的對(duì)應(yīng) 關(guān)系如下表:,提示: 乘客輸入當(dāng)前站號(hào)及目的地站號(hào), 計(jì)算機(jī)報(bào)告(加收1元附加費(fèi))顯示票價(jià)money(元),若輸入的站超越(112),提示“ERROR!”。,6: 條件結(jié)構(gòu)示例2,Private sub Command1_click() Dim a%, b%, c% a = Val(InputBox(輸入當(dāng)前站號(hào) =)) b =

8、Val(InputBox(輸入目的地站號(hào)=)) If ((a = 1 And b = 1 And a <= 12)) Then n = Abs(b - a) If (n = 1 Or n = 2) Then c = 1 If (n = 3 Or n = 4) Then c = 2 If (n = 5 Or n = 6) Then c = 3 If (n = 7 Or n = 8) Then c = 4 If (n = 9 Or n = 10) Then c = 5 If (n = 11 Or n = 12) Then c = 6 Print 票價(jià)=“;c+1 Else Print 站號(hào)超界

9、,ERROR! End If End sub,Select case n case 1,2 :c=1 case 3,4 :c=2 case 5,6 :c=3 case 7,8 :c=4 case 9,10 :c=5 case 11,12 :c=6 End select,c=int((n+1)/2),當(dāng)前站是陳家祠站 站號(hào)6 Private Sub Command10_Click() 票價(jià) a = 6 If Text1.Text = 火車東站 Then b = 1 If Text1.Text = 體育西路 Then b = 2 If Text1.Text = 天河

10、 Then b = 3 If Text1.Text = 中山東路 Then b = 4 n = a - d c = Int((n + 1) / 2) Text2.Text = c + 1 End Sub,Sub Command1_Click() 火車東站 Text1.Text = 火車東站 End Sub Sub Command4_Click() 中山東路 Text1.Text = 中山東路 End Sub ,7: 循環(huán)塊結(jié)構(gòu)格式,1:當(dāng)型循環(huán)格式 While 循環(huán)條件 語句組 Wend,2: For格式(計(jì)數(shù)循環(huán)) For = To Step Exit For Nex

11、t ,3:Do循環(huán) 格式,格式一: Do While Exit Do Loop,格式二: Do Until Exit Do Loop,格式三: Do Exit Do Loop While ,格式四: Do Exit Do Loop Until,8: 循環(huán)要點(diǎn),Private Sub Command1_Click() N = Val(Text1.Text) Sum = 0 i=1 While i<=100 Sum=Sum+i i=i+1 Wend Text2.Text = Sum End Sub,9: 循環(huán)出口,*判斷一自然數(shù)其是否為素?cái)?shù)(遍歷法)。 Clear

12、a=Val(inputbox(“請(qǐng)輸入一自然數(shù):”)) For i=2 to a-1 iF a mod i=0then Exit For Endif Next iF ia-1 then Print a,”是素?cái)?shù)。” Endif,,10: 循環(huán)結(jié)構(gòu)示例1(項(xiàng)操作),同一類題材,采用相同的程序結(jié)構(gòu),,,思考題: (1) s=2+4+6+8++10 (2) s=1*2*3*4*5*10 (3) s=1!+2!+3!+4!+5! (4) s=20+21+22+23++263 (5) (6) 前20項(xiàng)之和,示例:S=1+2+3++10 Sub Command1_click(

13、 ) S = 0 For n=1 to 10 step 1 K = n S= S + K Next Print s End sub,Sub Command1_click( ) 4 S = 0 For n=0 to 63 step 1 K = 2n S= S + K Next Print s End sub,Sub Command1_click( ) 3 S = 0 For n=1 to 5 step 1 k=1 For i=1 to n K = k * i Next S= S + K Next Print s End sub,,10

14、: 循環(huán)結(jié)構(gòu)示例2(行列輸出),打印九九乘法表(兩重循環(huán)). For i = 1 To 9 行 For j = 1 To 9 列 一行的內(nèi)容 Print i Next j Print 一行內(nèi)容完后回車 Next i,,思考:打印下三角A或上三角B程序如何改動(dòng)?,A,B,For i = 1 To 9 行 For j = 1 To 9 列 Print i Next j Print Next i,********** ********** ********** ********** ********** ********** ********** *

15、********* ********** ********** 圖1,For i = 1 To 9 行 For j = 1 To 9 列 Print “*” ; Next j Print Next i,* ** *** **** ***** ****** ******* ******** ********* ********** 圖2,For i = 1 To 9 行 For j = 1 To i 列 Print “*” ; Next j Print Next i,* ** *** **** ***** ****** ******* ******** ***

16、****** ********** 圖2,* *** ***** ******* ********* *********** ************* *************** ***************** ******************* 圖3,* *** ***** ******* ********* *********** ************* *************** 圖4,For i = 1 To 9 行 For j = 1 To i 列 Print “*” ; Next j Print Next i,For i = 1 To 9

17、 For j = 1 To 2*i-1 Print “*” ; Next j Print Next i,,For i = 1 To 9 For k =1 to 20-i Print space(1); Next k For j = 1 To 2*i-1 Print “*” ; Next j Print Next i,,11: 循環(huán)結(jié)構(gòu)示例3(遍歷法),從鍵盤上輸入一個(gè)正整數(shù),輸出它所有的約數(shù)。 Private Sub Command4_Click() N = Val(InputBox(請(qǐng)輸入一個(gè)正整數(shù))) For i = 1 To N If N Mo

18、d i = 0 Then Print i End If Next End Sub,從鍵盤上輸入兩個(gè)正整數(shù),輸出它的最大公約數(shù)和最小公倍數(shù)。 Private Sub Command5_Click() 方法1 a = Val(InputBox(請(qǐng)輸入一個(gè)正整數(shù)a)) b = Val(InputBox(請(qǐng)輸入一個(gè)正整數(shù)b)) If a < b Then t = a: a = b: b = t End If For i = 1 To b If a Mod i = 0 And b Mod i = 0 Then Max = i End If Next Prin

19、t 最大公約數(shù):, Max Print 最小公倍數(shù):, a * b / Max End Sub,1:求100200之間的不能被3整除的數(shù)的和 2:從鍵盤上輸入一個(gè)正整數(shù),輸出它所有的約數(shù)。 3:從鍵盤上輸入兩個(gè)正整數(shù),輸出它的最大公約數(shù)和最小公倍數(shù)。 4:從鍵盤上輸入一個(gè)正整數(shù),判斷它是否為素?cái)?shù)。 5:判斷并輸出1100中的素?cái)?shù)。 6:判斷并輸出1001000中的水仙花數(shù)。,13: 循環(huán)結(jié)構(gòu)示例4(最大最小值),隨機(jī)產(chǎn)生10個(gè)100200之間的數(shù),求最大值、最小值。 Private Sub Command1_Click() Max = 100 : Min=200 有固定范圍 For i

20、= 1 To 10 x = Int(Rnd * 101 + 100) Print x; If x Max Then Max = x If x < Min Then Min = x Next i Print Print “最大值=”; Max, “最小值=; Min End Sub,從鍵盤上輸入10個(gè)數(shù),求它們中的最大、最小值、和。 Private Sub Command3_Click() N = Val(InputBox(請(qǐng)輸入一個(gè)數(shù))) Max = N 沒有固定范圍 Min = N Sum = N For i = 1 To 9 N = Val(InputBox(請(qǐng)輸入一個(gè)數(shù))) Sum = Sum + N If N Max Then Max = N If N < Min Then Min = N Next Print Max, Min, Sum End Sub,14: 循環(huán)結(jié)構(gòu)示例5(其它),例1 猴子吃桃子。小猴在某天摘桃若干個(gè),當(dāng)天吃掉一半多一個(gè);第二天吃了剩下的桃子的一半多一個(gè);以后每天都吃尚存桃子的一半多一個(gè),到第7天要吃時(shí)只剩下一個(gè),問小猴共摘下了多少個(gè)桃子?,例2用輾轉(zhuǎn)相除法求兩自然數(shù) m,n 的最大公約數(shù)和最小公倍數(shù)。,例3打印輸出斐波那契(Fibonacci)數(shù)列的前20項(xiàng),

展開閱讀全文
溫馨提示:
1: 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
2: 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
3.本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會(huì)有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
5. 裝配圖網(wǎng)僅提供信息存儲(chǔ)空間,僅對(duì)用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對(duì)用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請(qǐng)與我們聯(lián)系,我們立即糾正。
7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。

相關(guān)資源

更多
正為您匹配相似的精品文檔
關(guān)于我們 - 網(wǎng)站聲明 - 網(wǎng)站地圖 - 資源地圖 - 友情鏈接 - 網(wǎng)站客服 - 聯(lián)系我們

copyright@ 2023-2025  zhuangpeitu.com 裝配圖網(wǎng)版權(quán)所有   聯(lián)系電話:18123376007

備案號(hào):ICP2024067431號(hào)-1 川公網(wǎng)安備51140202000466號(hào)


本站為文檔C2C交易模式,即用戶上傳的文檔直接被用戶下載,本站只是中間服務(wù)平臺(tái),本站所有文檔下載所得的收益歸上傳人(含作者)所有。裝配圖網(wǎng)僅提供信息存儲(chǔ)空間,僅對(duì)用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對(duì)上載內(nèi)容本身不做任何修改或編輯。若文檔所含內(nèi)容侵犯了您的版權(quán)或隱私,請(qǐng)立即通知裝配圖網(wǎng),我們立即給予刪除!