程序的選擇結構PPT學習教案_第1頁
程序的選擇結構PPT學習教案_第2頁
程序的選擇結構PPT學習教案_第3頁
程序的選擇結構PPT學習教案_第4頁
程序的選擇結構PPT學習教案_第5頁
已閱讀5頁,還剩6頁未讀, 繼續(xù)免費閱讀

下載本文檔

版權說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權,請進行舉報或認領

文檔簡介

1、會計學1 程序的選擇結構程序的選擇結構 問題: 張軍找來了一條長度為L的鐵絲,希望用來制作一個面積為S的 矩形框。他問李明:這個矩形的長和寬應當各是多少,S會為定值呢? 1.分析問題 設所求的矩形寬為x, 可得出長為L/2-x??傻?出方程式: x21/2Lxs0 2.設計算法略(P41) 3編寫程序 4調(diào)試程序 private Sub Command1_Click() L = InputBox(請輸入鐵絲的長度:) S = InputBox(請輸入矩形的面積:) D = L * L / 4 - 4 * S If D = 0 Then X1 = (L / 2 + Sqr(D) / 2 X2 =

2、 (L / 2 - Sqr(D) / 2 Print 這個矩形的長和寬分別為:; X1; 和; X2 Else Print 找不到這樣的矩形! End If End Sub 第1頁/共11頁 2.3.2 條件語句 在解決問題的過程中,常常需要對事物進行判斷和選擇,如上題中,求一在解決問題的過程中,常常需要對事物進行判斷和選擇,如上題中,求一 個方程的解,如果個方程的解,如果D=0D=0,則分別求出兩個解,否則為無解。在程序設計中,則分別求出兩個解,否則為無解。在程序設計中, 如何實現(xiàn)判斷和選擇呢?在上述代碼中,有一個用如何實現(xiàn)判斷和選擇呢?在上述代碼中,有一個用ifif開頭的語句,這就是條開頭

3、的語句,這就是條 件語句。件語句。 (一)條件語句的基本格式是: if 條件 then 語句組1 else 語句組2 或 if 條件 then 語句組1 else 語句組2 end if 其中,這里的表達式是關系表達式(、=、=)或邏 輯表達式(and、or、not),其值只有真或假兩種,當表達式的值 為真時,視為條件成立。語句可以是賦值語句(a=3)、輸出語句 (print、msgbox)、結束語句(end) 。 (二)條件執(zhí)行語句的執(zhí)行過 程 條 件 語句組1語句組2 假真 第2頁/共11頁 1語句If x=1 Then y=1,下列說法正確的是( )。 A、x=1和 y=1 均為賦值語句

4、 B、x=1和 y=1均為關系表達式 C、x=1為關系表達式,y=1為賦值語句 D、x=1為賦值語句,y=1為關系表達 2.以下程序段運行后,分別輸入5和6,則輸出字符的排列順序是 ( ) I=val(inputbox(“請輸入I的值”) If I =2,則y=1.5*x*0.8,否則y=1.5*x。 (2)設計算法 輸入x的值 如果x=2,則y=1.5*x*0.8 否則y=1.5*x 輸出y的值 (3)編寫程序 Private sub command1_click() Dim x as single,y as single x=Inputbox(“請輸入購買蘋果的重量”) if x=2 th

5、en y=1.5*x*0.8 else y=1.5*x end if Print “應付款”;y;“元” 第6頁/共11頁 練習練習 問題2:輸入一個成績,如果90分以上,則輸出“優(yōu)秀”;80-89,則輸出“良好”;70-79,則輸出“中等”;60-69,則輸出“及格”;60分以下則輸出“不及格”,請編寫程序。 Private Sub command1_click() X = InputBox(請輸入一個分數(shù)) If X = 90 Then Print 優(yōu)秀 If (X = 80) And (X = 70) And (X = 60) And (X 69) Then Print 及格 If X =90 Print”優(yōu)秀” Case 80 to 89 Print”良好” Case 70 to 79 Print”中等” Case 60 to 69 Print”及格” Case else Print”不及格” End select End sub X為數(shù)值型 列表1 當學生成績=90執(zhí)行語句 列表2 當學生成績在80到89之間執(zhí)行語句 第9頁/共11頁 作業(yè): 書本書本47頁實踐題目(頁實踐題目(1)和()和(2) 書本書本48頁實踐題目頁實踐題目 有三名同學為解決一

溫馨提示

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

評論

0/150

提交評論