1、【精品文檔】如有侵權，請聯系網站刪除，僅供學習與交流初二信息技術程序設計教案.精品文檔.第1章 程序設計入門第1節 程序設計簡介（2課時）【教材內容】1計算機程序并不神秘1.1什么是程序1.2體驗計算機程序2程序設計語言2.1程序設計語言分類2.2解釋與編譯3程序設計的過程4程序與軟件【教學目標】1知識與技能（1）了解程序設計的基本概念和用變成方法解決問題的一般過程（2）了解計算機軟件與程序設計的密切關系（3）了解程序設計語言的三種類型（4）掌握VB環境下編寫程序的一般步驟2.過程與方法（1）通過實例讓學生體會程序設計的基本過程與方法，理解算法思想，會用自然語言或流程圖表達一些具體問題的算法。

2、（2）通過對現實問題的分析與解決，讓學生認識到生活中到處是程序，而程序解決的往往就是生活中的現實問題，培養學生利用計算機解決實際問題的能力。3.情感態度與價值觀（1）體驗程序設計的內涵及魅力，產生對程序設計的求知欲，形成積極主動地學習態度。（2）通過問題的分析與解決，幫助學生克服程序設計的畏難情緒，培養他們嚴謹、縝密、科學的程序設計作風。【教學重難點】程序設計的基本概念與學習程序設計的意義。【教學方法】啟發式、任務驅動、演示、實例、實踐操作【教學過程】程序設計簡介第一課時一、問題導入，揭示教學內容大家有沒有玩過電腦游戲？有沒有同學想過自己設計和編寫游戲？游戲就是程序，要想設計、制作游戲，就應該

3、學習“設計程序”。今天我們一起來認識和了解程序，它并不神秘，相反它會給我們帶來很多樂趣。二、趣味問題，了解什么是程序問題1：獵人帶著一只狼、一頭羊和一些白菜過河，但渡船太小，一次只能帶一樣。因為（課件展示問題）學生：讀題、小組討論、得出解題思路、方法講解（自然語言描述、符號描述）問題2：趙本山、宋丹丹小品，如何把大象關進冰箱學生：方法講解（自然語言描述、）總結：概括來說程序是有邏輯，有順序的步驟的組合。開電腦，走路，吃飯，上課都是一系列步驟的有序有邏輯組合。通過這些有序的指令（自然語言、符號語言等）完成了一項具體的工作，這些指令的集合就是程序。問題3：體驗計算機程序利用BASIC語言編寫的“三

4、角形面積”程序（課件展示問題及具體的語句）學生：體驗計算機程序語言的簡練，理解程序語句的涵義，輸入與運行程序。總結：使用計算機能識別的語言來描述的指令，就是計算機程序。三、程序設計語言問題：計算機程序有哪些種類以及他們是怎么執行的？學生：查閱書本和教師提供的資料，完成學習任務。教師：課件展示程序設計語言分類機器語言：二進制代碼匯編語言高級語言：根據要求選用不同的高級語言。Basic、foxpro、c、java 比較：51+53，用三種語言編寫的程序，比較分析三種語言的特點總結：機器語言編寫的程序執行效率高，但可讀性差；匯編語言用比較容易理解的符號代替機器語言中的二進制，可讀性增強；高級語言比較

5、接近自然語言，可讀性強，易理解。 提問：解釋和編譯的區別 學生：研究問題，回答問題四、課堂總結 師生共同總結回顧：什么是程序，什么是計算機程序、計算機程序語言的種類和執行過程。計算機語言很多，如：Visual Basic、Turbo Pascal、C語言、C+、Java等。但是，計算機語言只是一種工具，如果你大腦中沒有解題的方法與步驟，光有工具是沒有用處的。下節課我們就來重點研究解題的方法和步驟，及其在程序中應用。程序設計簡介 第二課時一、復習導入計算機程序語言的種類有哪些？二、聯系生活，講解程序設計過程（過渡）程序設計的過程和平時我們解數學題的過程是一樣的。1、解數學題的過程（師生共同總結）

6、：2、程序設計的過程請學生完成以下“連連看”：總結： 程序設計的過程為：首先對要解決的問題進行分析，在擬定出一套解決的方法與步驟（確定算法），再選用一種計算機能接受的程序設計語言來描述具體的步驟，最后輸入、運行與調試程序。程序設計的好壞取決于 “算法”的好壞。3.實踐學習編寫計算機半徑為8.5cm圓的周長和面積的程序，體驗編寫程序的過程。師生共同完成：任務分析（學生）、確定算法（學生）、編寫程序（教師為主）、運行調試（教師為主）。三、游戲激趣，了解算法1、玩“猜生日”游戲，說一說你猜的方法游戲規則：兩個同學為一組，互相猜對方的生日（不要月份，只要日期。如12日）。方法一：在131中隨意選數猜方

7、法二：從大到小逐個猜方法三：從小到大逐個猜方法四：（過渡）剛才大家在解決“猜生日”這個問題時采用了不同的算法，那“猜生日”游戲程序又是如何解決這個問題的呢？2、運行“猜生日”游戲“猜生日”游戲位于“網上鄰居”的“teacher”中，請你運行并計算猜的次數。教師進行統計，得出結果：最少1次，最多5次。3、“猜生日”游戲的算法，用流程圖描述看來該游戲的算法優于大部分同學的算法，那它又是怎么猜大家的生日的呢？假如老師的生日是12日，計算機猜了哪幾個數？假如生日是27日，計算機又猜了哪幾個數？流程圖的概念、符號名稱、含義（師生共同總結）猜中間數的方法4、算法擇優上面的例子讓我們可以明白一個好算法必須用

8、到科學的方法，我們在解決問題時應努力找出最簡單的方法。四、拓展練習，提升學生興趣（過渡）一些復雜問題的解決方法與步驟必須要有全局眼光通盤考慮。請大家開動腦筋，找出解決下列問題的算法。A、一位商人有9枚銀元，其中有1枚略輕的是假銀元。你能設計用天平（不用砝碼）將假銀元找出來的算法嗎？（稱量次數越少越好）B、有十箱表殼(每箱裝有10只)。已知其中的9箱是全鋼的(每只重100克)，另一箱是半鋼的(每只重90克)，全鋼與半鋼的外形與顏色一樣。要求只稱一次，就可將這箱半鋼的表殼從10個箱子中區分出來。學生討論，找出最優算法五、程序與軟件軟件是計算機程序、數據和相關文檔資料的集合，程序是軟件的重要組成部分

9、。用計算機解決問題，首先應該選擇合適的計算機軟件。當遇到沒有合適軟件的情況下，就要編寫程序來解決問題。討論學習：“競賽評分器”程序適用于哪些比賽，比賽規則是怎樣的？提出對此程序功能的修改方案。六、總結通過這堂課的學習我們已經學習了程序設計的步驟、算法、軟件等知識。希望同學們通過這節課的學習，能去掉對程序的神秘面紗，在以后的學習中能從程序設計中找到樂趣。【教學反思】算法是程序設計的靈魂，也是整個程序設計中難點。為了上好這一堂課，該教學方案注意了以下幾點：1、回答了學習的必要性問題“為什么要學習程序設計？學習程序設計能為我們干什么？”這是學生在學習程序設計時經常問老師的問題。如果教師引導不當，就會

10、導致學生沒有明確的目標，缺乏學習的動力。2、克服了傳統教學的誤區以前的教學程序設計教學，在教學內容的編排上，陷入一個誤區：過于注重語句、語法等程序設計語言所涉及基本知識的講解，忽視在構建程序過程中應用于分析、解決問題的一種邏輯思維的訓練，忽視對整體知識綜合應用能力的訓練。在本堂課中，我們拋開語言，從算法的角度來解決實際問題，在問題分析、思考、解決中提高了學生的能力。3、設計注重趣味性、生活化與挑戰性程序設計一直是學生最頭疼的知識點，如何使枯燥的教學內容變得富有趣味性，讓學生學得輕松、有效？這是我們本學期編程教學需要解決的關鍵問題。在設計時我本著生活化、趣味性與挑戰性的原則，進行了嘗試。整堂課下

11、來，學生掌握情況良好。所以，一份設計通過反復的思考，老問題解決了，新問題又產生了。這需要我們反復的實踐、思考與調整。也許，這就是教學富有魅力的地方了。第2節 認識Visual Basic（1課時）【教材內容】1 Visual Basic語言2 用Visual Basic編寫程序2.1Visual Basic界面2.2用VB編寫程序【教學目標】1.知識與技能：（1）了解在Visual Basic中編程的一般過程，掌握常用控件的使用方法。2.過程與方法：（1）在利用VB編寫程序的過程中進一步熟悉Visual Basic的工作界面。（2）通過例題的演示和探究實踐，了解在VB中編程的一般過程，掌握常用

12、控件的使用。3.情感態度與價值觀：（1）逐步養成嚴謹、科學的程序設計思想。【重點難點】編程的一般過程、控件的使用【教學方法】任務驅動、啟發式教學、講解演示【教學過程】一、課前思考從開始Visual Basic之路學習者的學習感受開始，增進對VB的了解，知道程序語言是一種人與計算機的溝通工具，認識到學好VB的意義，以及明確今后學習VB的目標和方向。找到和學生有共鳴的語句，拉近學生與VB的距離，激發學生的學習積極性、主動性，為接下來的學習做好鋪墊。二、認識界面教師：引導學生打開VB程序，新建窗體。學生：自學課件中認識界面，知道界面的組成，然后回答老師對界面組成部分的提問，同時師生共同學習界面的一些

13、基本操作方法，認識常用的控件及其功能，并且嘗試控件的拖放及屬性設置。教師：工具箱也叫控件箱，控件的名稱屬性設置要做到“見名知義”、“常用取簡”，界面組成窗口的調用方法。教師：引領學生共同認識Visual Basic的操作界面及使用方法。三、例題演示教師：布置任務求圓面積程序，先以在數學問題中如何計算引出公式，明白編寫該程序的目的是簡化繁瑣的人工計算過程。學生：觀看程序界面，明確該程序的操作過程，從而引出本程序的算法分析，明白各控件的使用目的以及控件屬性的設置。接著逐個突破計算按鈕、結束按鈕的代碼的輸入和代碼的含義解讀。最后運行程序、調試及保存。演示：演示學生的作品，找出問題，一起探討解決方法。

14、師生：總結編程的一般過程：建立程序界面設置對象屬性輸入代碼運行與調試程序保存程序。四、探究學習學生：利用課件的提示自主完成參照求圓面積程序構建QQ登陸的程序界面的任務。師生：學生自主探究，教師巡視機房個別指導。學生：分小組在電子白板上演示編程的四個過程，重點突破圖像、圖片框控件的選用和操作。師生合作，共同評價作品。五、溫故知新師生一起回顧本節課的學習內容，溫故知新。回答兩個問題：（1）在VB中編程的一般步驟。（2）總結如何選擇合理的控件來滿足程序設計的需要。第2章 程序設計基礎【教學目標】1知識與技能（1）了解VB程序的常量、變量、函數、表達式、語句等基本概念（2）能在VB環境中編寫順序、選擇

15、、和循環三種基本結構組合的程序（3）了解VB中對象、屬性、事件和方法等的概念，體驗面向對象程序設計。2過程和方法（1）在編寫“孫悟空上織女星”程序的過程中學習VB程序設計的基礎知識，掌握編程的基本方法。（2）針對具體要解決的問題，能合理地組合順序、選擇和循環三種基本結構編寫簡單的程序。3情感態度與價值觀（1）通過趣味VB程序編寫，激發學生對學習程序設計的興趣。（2）培養學生良好的程序設計的習慣和提高用編程方法解決實際問題的能力。4創新與行為（1）引導學生編寫程序時先模仿再改寫，在改寫程序的過程中培養學生的創新能力。（2）鼓勵學生用程序設計的方法來解決實際問題。【教學重難點】1.重點（1）常量、

16、變量、函數、表達式、語句等程序的基本概念。（2）掌握順序結構、選擇結構、循環結構的書寫格式及語句的執行過程。（3）根據要解決的實際問題合理地選用順序、選擇和循環結構編寫程序。2.難點（1）關系表達式和邏輯表達式的表示及執行結果（2）靈活地選用三個基本結構編寫程序解決實際問題。【教學方法】啟發式、任務驅動、演示、實例、實踐操作第1節 程序基本知識（4課時）【教材內容】1 “孫悟空上織女星”程序（1課時）1.1分析問題與確定算法1.2編寫VB程序2 VB程序的構成（1課時）2.1 VB常用語句2.2常量、變量、函數2.3表達式3 信息的輸入與輸出（1課時）3.1輸入信息3.2輸出信息4 綜合實例（

17、1課時）【教學過程】第一課時 “孫悟空上織女星”程序一、問題導入物理趣味題：孫悟空一個筋斗可翻十萬八千里，即5.4*10的4次方千米，織女星距地球2.3*10的14次方千米，那么孫悟空要翻多少筋斗才能到達織女星？如果孫悟空每秒翻一個筋斗，那么他要連續不停地翻多少年能到織女星？學生：思考，書寫計算過程二、“孫悟空上織女星”程序1分析問題與確定算法（1）教師引領學生一起梳理問題，確定算法一個筋斗的距離：j = 5.4*104km地球與織女星的距離：z = 2.3*1014km一年的秒數：m=365（天）*24（小時）*60（分鐘）*60（秒）=31536000（2）學生嘗試用流程圖完成算法描述開始

18、結束 2編寫VB程序（1）學生觀察程序的界面，說說使用了哪些控件學生回答：1個Image圖形2個command命令按鈕（2）修改屬性學生：參照教材各控件的屬性及屬性值，修改控件的屬性 控件名屬性屬性值Form1Caption孫悟空上織女星Image1stretchTrue 修改圖片的大小以適應控件的大小Picture加載圖片Command1Caption開始Command2Caption結束（3）輸入程序“開始”按鈕程序代碼代碼含義及功能Rem輸入信息注釋語句let j = 5.4*104將一個筋斗的距離存入變量j中let z = 2.3*1014將地球與織女星的距離存入變量z中let m =

19、 31536000將一年的秒數存入變量m中Rem處理信息注釋語句let n = Int(z/j)計算筋斗數，存入變量n中let y = Int(n/m)計算年數，存入變量y中Rem 輸入信息注釋語句Print換行Print“孫悟空要翻;n;個筋斗才能到達織女星！輸出筋斗數Print“ 孫悟空要花;y;年才能到達織女星！輸出年數“結束”按鈕程序代碼代碼含義及功能End結束（4）運行調試教師：演示學生的程序，發現錯誤，演示調試方法。強調：（1）英文狀態輸入程序，標點符號也必須是英文狀態下輸入，雙引號里面的信息除外。（2）單詞拼寫錯誤（3）變量的定義（提示，增加學生的印象）（5）保存程序 學生：演示

20、，保存窗體，保存工程。三、常用語句 （一）賦值語句 1賦值語句用“ = ”來實現。 2. 表達式： A = B (即把右邊的值給左邊的變量)A：只能是一個變量，不能是表達式B：可以是常量，變量，表達式3.初始值： 指的是變量被賦值前的值。字符串變量：空串 數值型變量：0邏輯型變量： false任務一：判斷下列各式是否正確：(1)intBeginTime=Time() (2) N=N+1 (3) a=a+b+c (4)X= “北京 ” (5) X=Y (6) x-1=x (7)M=1 (8) 1= M (9) -x=1 (10) a=5 b=6 b=b+a a=a+b 則: a= _ b=_（二

21、）注釋語句 1.功能：為提高程序的可讀性，對程序進行必要的注釋，但程序運行過程中不執行注釋語句。2格式一：在字符 “ 加注釋內容 ” (可參考P22) Eg: r=inputbox(“輸入r：”) 輸入半徑r： 格式二：用“Rem 注釋內容 ” Eg: rem 計算圓的周長 C=2*pi*r （三）結束語句1語法格式：End 2功能：強制程序結束執行，一般用于退出程序。四、總結第二課時 VB程序的構成教學目標1.知識與技能（1）了解常量、變量、函數等概念。（2）掌握常用函數的使用方法。（3）掌握VB表達式的書寫方法。2.過程與方法（1）在學習編寫VB程序的過程中，建立模塊結構化編程思想，養成正

22、確的程序設計習慣。（2）通過對現實問題的分析與解決，讓學生認識到生活中到處是程序，而程序解決的往往就是生活中的現實問題，培養學生利用計算機解決實際問題的能力。3.情感態度與價值觀（1）體驗程序設計的內涵及魅力，產生對程序設計的求知欲，形成積極主動地學習態度。（2）通過問題的分析與解決，幫助學生克服程序設計的畏難情緒，培養他們嚴謹、縝密、科學的程序設計作風。教學重難點教學重點（1）常量、變量、函數的概念（2）函數使用方法。（3）VB表達式的書寫方法。教學難點字符運算 & 與 + 的不同用法。教學方法1啟發式教學法2探索學習法3網絡廣播交互式4多媒體輔助教學教學內容教師活動學生活動新課導入在VB程

23、序設計中，經常會用到很多符號，如用r表示圓的半徑，3.1416表示圓周率。其中3.1416與r就是我們這節課要學習的常量與變量。回顧所學知識。常量提問：常量的定義是什么？提問：常量的類型有哪些？提問：字符型常量有什么特點？閱讀課本，并回答問題：1、常量是指在程序運行過程中保持不變的量。2、常量的類型有：整型：integer 長整型：long 單精度：single雙精度：double 邏輯型：Boolean 字符串型：string日期型：Date3、被一對雙引號括起來的文字與符號稱為字符型常量。變量提問：變量的定義是什么？提問：變量名的命名原則是什么？提問：找出下列表達式中的變量，并計算變量的值

24、。閱讀課本，并回答問題：1、在程序的運行過程中，值會發生變化的量稱為變量。2、變量名的命名原則：變量名必須以字母或漢字開頭，由字母、數字、漢字及下劃線組成。變量名不能與VB中的保留字同名。探究學習：表達式變量變量的值x=6x=8x=x+1m=20m=m+1r=1S=3.1416*r*r函數函數提問：函數的定義及特征？引導學生閱讀幾個常用函數的功能。引導學生進行探究學習。閱讀課本，并回答問題：函數實際上是一段用來完成某種特定運算或功能的程序。一般情況下，函數只能返回一個函數值。函數函數的功能值類型Abs(x)X的絕對值Int(x)取不大于X的最大整數Sqr(x)X的平方根值Rnd(x)產生0，1

25、的隨機數。Val(x)將字符型數據轉換為數值數據Str(x)將數值數據轉換為字符型數據探究學習寫出下列函數的函數值。函數函數值Abs(86)86Abs(-86)86Int(8.001)8Int(8.999)8Int(-8.999)-9Sqr(64)8表達式提問：表達式的分類？指導學生閱讀課本：） 乘法，不能省略；） 除法，不能寫成分數形式，必須寫在一行內。） 冪運算，不能省略，也必須寫在一行內。閱讀課本，并回答問題：表達式可分為：算術表達式、字符表達式、關系表達式、邏輯表達式。閱讀并了解算術運算符與字符運算符。探究學習：根據下面的描述，在表格中填寫算術表達式。描述表達式已知正方形邊，求面積。A

26、2變量除以變量和變量的差a/(a-c)變量與變量之差的絕對值加上68Abs(x-y)+68求兩位數中的十位數。Int(x/10)連接兩個字符型變量m,n的值。M+n小結學習本節課后，著重要掌握的有：掌握常用函數的使用方法。掌握VB表達式的書寫方法。反思總的學習效果較好。如能適當增加一些提高性的探究學習，效果可能更好。第三課時 與計算機對話信息的輸入與輸出一、導入播放iphone4S最具特色的siri語音助手與每日一歌作者對話的二重唱視頻。思考：人與手機為什么能夠成功對話學生：歌手的語音輸入，手機的語音輸出教師：計算機的信息的輸入與輸出有哪些形式的信息呢？學生：文字、圖像、聲音、動畫二、信息的輸

27、入與輸出我們能夠與計算機對話，最主要的原因是我們向計算機輸入信息后，計算機通過處理信息，有信息的輸出反饋。輸入信息、處理信息、輸出信息是程序處理信息的一般過程。1.輸入信息：利用let語句輸入信息教師演示三種方式的信息輸入，學生觀察。（1）直接賦值例如：Let p=“剛才那首歌真有意思！”，Let q=1（2）InputBox函數：在程序運行過程中根據提示從鍵盤輸入信息。格式：InputBox（提示文字，對話框標題，輸入的缺省值）例如：let n= InputBox（“輸入信息”，修改教材錯誤，用“，”號隔開“輸入信息對話框”）理解：從鍵盤輸入的信息存入變量n（3）文本框例如：let t=te

28、xt1.text理解：將輸入在文本框1中的Text屬性值賦給變量n任務一：設計個人信息的調查程序：姓名，年齡，性別，學校，班級幫助評價：利用以上三種凡是，自主探究，教師巡視指導。學生任務展示，發現問題，解決問題。小結：let語句只適用于少量信息的輸入。輸入的信息需要賦給變量，在變量中儲存。2.輸出信息（1）利用print方法打印輸出字符信息格式：Print表達式列表例如：print “我覺得剛才那首歌真有意思！”，“你覺得呢？”表達式列表可以是一個或多個表達式，各表達式之間要用“；”或“，”號隔開（2）利用標簽、文本框輸出字符信息例如：label1.caption=“剛才那首歌真有意思！” T

29、ext1.text=“你覺得呢？”任務二：輸出如圖所示三角形思考：如何實現換行輸出？（3）利用loadpicture函數輸出圖片信息觀察光盤中“輸出自負圖片信息”程序，思考loadpicture重點提示Loadpicture（app.path & “” & 圖片文件名稱及后綴）函數的使用方法？教師：說明錯誤原因和提示先保存后運行程序。Loadpicture（app.path & “” & “pand.jpg”）,當前工程所在的路徑下的“pand.jpg”圖片文件顯示在image1圖像控件。學生修改程序，保存運行。三、學以致用觀察“求總評成績”程序的不同種信息的輸入輸出方法，修改完善程序。例如：

30、rem 求總評成績程序Let x=_ 輸入平時成績Let y=_ 輸入期中成績 輸入信息，利用let語句直接賦值Let z=_ 輸入期末成績Let p=0.3*x+0.3*y+0.4*z 處理信息PrintPrint 輸出信息，利用print方法打印輸出方框中學生填寫程序處理信息的過程和利用的方法_修改：利用InputBox（），文本框等方法修改、完善程序。學生作品共享，修改，評講。四、總結 師生共同回顧信息的輸入輸出方法。第四課時 綜合實例教學目標認知目標：了解一般賦值語句與屬性賦語句的含義與作用。掌握常用函數的使用方法。技能目標：掌握賦值語句，并能正確運用到所編寫的程序中。情感目標：增強學

31、生的審美能力，提高學生的協作學習興趣。教學內容教學重點：掌握常用函數的使用方法。教學難點： 掌握賦值語句，并能正確運用到所編寫的程序中。教 教學 學方 手法 段1啟發式教學法2探索學習法3網絡廣播交互式4多媒體輔助教學教 學 程 序 設 計教師活動學生活動1、復習導入使用函數能輕松解決一些復雜問題。提問：前面我們學習了6個常用函數。請大家說一說這6個函數的功能。回顧有關函數知識，回答：Abs(x): X的絕對值Int(x):取不大于X的最大整數Sqr(x):X的平方根值Rnd(x):產生0，1的隨機數。Val(x):將字符型數據轉換為數值數據Str(x):將數值數據轉換為字符型數據教師活動學生

32、活動2、明確實踐任務。編寫順序結構程序：1） 已知電阻R1的阻值為16，電阻R2的阻值為29，求兩電阻的并聯阻值。（求并聯阻值的表達式為：R1R2/(R1+R2)）.3、引導學生分析程序組成。提問：程序的輸入輸出各有幾個？提問：在程序中，文本框的個數應有多少個？程序的輸入有兩個：R1與R2的阻值；程序的輸出有一個：并聯后的阻值。在程序中，應有3個文本框。4、引導學生設計程序界面1、 啟動VB2、 添加對象：3個文本框、3個標簽、2個按鈕。3、 設置對象屬性教學程序設計教師活動學生活動5、編寫程序提示：請使用變量聲明語句，事先聲明3個變量R1、R2、R，并將其類型聲明為Double。否則程序將運

33、行出錯。因為如不事先聲明，VB會將R1，R2視為字符類型變量。在計算（R1+R2）時，會將R1與R2的值直接拼接。如R1為16，R2為29，計算R1+R2的值將為1629，而不是45。改進的方法有兩種，第一種就是事先將R1、R2、R聲明為Double型。第二種是使用Val()函數，將R1與R2強制轉換為數值型。（R1+R2）將變為(val(R1)+val(R2)。進入代碼窗口，編寫如下程序：Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click Di

34、m r1 As Double Dim r2 As Double Dim r As Double r1 = TextBox1.Text r2 = TextBox2.Text r = r1 * r2 / (r1 + r2) TextBox3.Text = rEnd SubPrivate Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click EndEnd Sub6、引導學生保存、調試、運行程序。保存、調試、運行程序。7、 探究學習二： 通過鍵盤向a、b兩變量輸入兩個不相

35、同的整數，然后交換這兩個變量中的值再算出兩變量中的值得和。學生讀題、審題，得到解題思路教師活動學生活動8、 引導學生設計程序界面 1、 啟動VB 2、添加對象：文本框、標簽、按鈕。3、 設置對象屬性9、編寫程序進入代碼窗口，編寫如下程序：Private Sub form_load() Form1.caption=”交換兩變量中的值”End SubPrivate Sub command1_Click（）Dim a as integerDim b as integerDim c as integera=inputbox(“請輸入存入a變量中的整數：”，“輸入數據”)b=inputbox(“請輸入存

36、入b變量中的整數：”，“輸入數據”)print “a:”;a,”b:”;bx=a:a=b:b=xprint “a:”;a,”b:”;bprint “兩變量中的值得和為：”；a+bEnd SubPrivate Sub command1_Click（）EndEnd Sub10、引導學生保存、調試、運行程序。保存、調試、運行程序。教學總結本節課的學習，我們主要復習了以下幾點：1.函數的使用，特別是Val()函數。2.賦值語句的使用。3.在使用一個變量前，最好先定義其類型教學反思在教材的第三單元第一節，已經講述了VB中的數據類型，以及變量的命名與定義。但在教材的所有示例中，無一使用變量定義。這樣會讓學

37、生產生錯誤認識：變量使用之前無需進行變量定義。因此，以后在教學中要注意避免教材給學生帶來負面影響。第2節 程序中的邏輯判斷（3課時）【教材內容】 1 “猜幣”程序2 條件語句（1課時）3 邏輯運算（1課時）3.1關系表達式3.2邏輯表達式4 綜合實例（1課時）【教學過程】第一課時 “猜幣”程序一、導入游戲一：請一學生拿硬幣投擲，另一學生猜正背面。游戲二：猜幣程序，學生猜。二、“猜幣”程序1、分析程序運行“猜幣程序”，在文本框中輸入“1”（猜正面）或“0”（猜背面），再單擊“擲幣”命令按鈕，計算機就開始“擲幣”并判斷你是否猜對。2、觀察代碼，注意用自然語言描述的代碼段“擲幣”按鈕中的程序如下：P

38、rivate Sub Command1_Click()Rem 定義x,n為整型變量Dim x As IntegerDim n As IntegerRem 模擬擲幣程序Randomizen = Int(2 * Rnd)如果 產生的隨機數為1 那么 Image1.Picture = LoadPicture(app.path & “” &修改 正.gif) Label2.Caption = 正面否則 Image1.Picture = LoadPicture(app.path & “” & 背圖片文件名稱最好用英文或拼音名稱.gif) Label2.Caption = 背面結束 如果Rem 判斷程序x

39、 = Val(Text1.Text)如果 輸入的數x與隨機長生的數n相同 那么 Label3.Caption = 哈，您猜對了！否則 Label3.Caption = 哈，您猜錯了！結束 如果End Sub思考：哪些語句實現了銀幣的投擲？3、條件語句運行“猜幣”程序后，計算機先隨機產生硬幣正或背，再判斷是否猜對。在程序中，這種判斷功能是由條件語句來實現的。條件語句格式： If Then Else End If另一種格式： If Then Else 當“條件”成立就執行 then后面的程序段，否則執行else后面的程序段。4、任務一修改代碼：代碼段1：If n = 1 Then Image1.P

40、icture = LoadPicture(正.gif) Label2.Caption = 正面Else Image1.Picture = LoadPicture(背.gif) Label2.Caption = 背面End If代碼段2：If n = x Then Label3.Caption = 哈，您猜對了！Else Label3.Caption = 哈，您猜錯了！End If三、鞏固練習練習1：輸入一不等于0的自然數，如是奇數就顯示“奇數”，否則就顯示“偶數”。程序段如下：Let x = val(InputBox(請輸入一個自然數)If x / 2 = Int(x / 2) ThenPri

41、nt 偶數ElsePrint 奇數End If或Let x = val(InputBox(請輸入一個數)If x / 2 = Int(x / 2) Then Print 偶數 Else Print 奇數練習2：輸入2個不相同的數，使計算機進行比較并顯示大的數。程序如下： Let a = val(InputBox(請輸入第一個數:) Let b = val(InputBox(請輸入第二個數:) If a b Then Print a Else Print b End If四、總結條件語句的格式第二課時 邏輯運算一、復習導入提問：條件語句的格式?條件語句If后面的“條件”是用關系表達式或邏輯表達式

42、來描述的。二、關系表達式關系表達式是用關系運算符將算術表達式或字符表達式連接起來的式子。在VB中，常用的關系運算符如下表所示：關系運算符功能關系運算符功能=大于等于大于不等于關系運算符兩邊表達式的數據類型應該相同。關系表達式的值是邏輯型數據：true false。關系成立，關系值為“真”；關系不成立，邏輯值為“假”任務一：探究學習在下表中，變量a中的值為100，變量b中的值為20，請寫出各關系表達式的邏輯值。關系運算符邏輯值關系運算符邏輯值abTa=bFa”A”TabT“a”b”T三、邏輯表達式用邏輯運算符連接起來的式子稱為邏輯表達式。例如：x=60 And y=60 And y20 and

43、b=20Fa=100 or b10Ta=100 and b10TA=b or b10FA=b and b200 and b200 or b=20TNot(a200 or b=20)f思考：邏輯運算的優先次序？先括號 ，再依次為Not and or四、條件的建立任務三：根據給出的問題，寫出條件1給出兩個變量a和b，比較a和b的大小。a b 或a c） and（a+cb） and （b+ca）3學生舉例五、課堂總結回顧關系運算符與關系表達式，邏輯運算符與邏輯表達式第三課時 綜合事例猜數游戲一、導入游戲導入猜數 ，思考如何實現？分析此游戲的關鍵過程1.輸入數據，2.顯示猜大猜小，3.圖片的顯示二、新

44、課任務一：編寫一個“猜數游戲”程序，程序的運行情況如圖所示實踐學習：1準備工作將光盤中的“csyx”文件夾復制到計算機中。2.制作程序界面（1）打開“csyx”文件夾中的“工程1.vbp”工程文件后，窗體上加載了組成“猜數游戲”程序界面的各個對象。 學生說一說：各個對象使用的控件類型和作用。（2）設置對象的屬性參照表格學生自主設置。3.在對象中輸入相應的程序。 教師重點提示：對象的過程表述方法，和使用習慣的養成。通用_聲明 Dim a as integer 定義一個整型變量a Dim b as integer 定義一個整型變量bForm_load()Randomize如果不用這條語句，你會發現

45、什么？ 初始化隨機生成器a=int(100*rnd+1) 產生1至100范圍正整數command1_click（）p=int(rnd*12+1) 參照產生1-100范圍正整數的方法產生1-12正整數，學生思考回答 產生卡通畫圖片序號1-12pic=p&”.gif” 生成卡通圖片文件名image1.picture=loadpicture(app.path&”&pic) 顯示卡通畫片x=text1.text 文本框中鍵盤輸入所猜的數放入變量bb=val(x) 為什么要將變量x轉換成數值型？ 轉化成數值型if a=b then 如果所猜數a等于隨機數b，那么label1.caption=”猜對了。你