課時教 案5.2.2 多行結(jié)構(gòu)條件語課題 if…Then…Else…Endif

課 授課時1時 間標

If完成老師布置的任務(wù)點點課型

多行結(jié)構(gòu)條件語句單行If語句和多行If語句的使用場合復(fù)習(xí)課 教法 講授、課件演示教學(xué)過程一、回顧復(fù)習(xí)1、單行If語句的語法格式2、執(zhí)行過程二、新課IfThenElseVBIf語句，語法格式為：If〈條件〉Then〈語句組1〉[Else〈語句組2〉]EndIf相關(guān)知識：IfEndIf語句結(jié)束。必須配對使用。<1>和<2>可以分別包括一個或多個If和“then”必須在一行上Else獨占一行（Else可以和寫在一行上，但必須以冒號隔開）

學(xué)生活動同學(xué)們回答老師提出的兩個問題注意觀察多行If語句的格式，跟單行有什么樣的區(qū)別，有什么相同之處？同學(xué)們看著多行If語句的語法格式，說出語法中注意的問題分析作業(yè)：輸入3個數(shù)，將它們按從小到大的順序輸出顯示。分析討論：有兩個數(shù)a和b，請交換a和b的值。先輸入三個數(shù)a,b,c，再進行從小到大的順序排序，排序完后：a是最小值，b是中間值，c是最大值。PrivateSubCommand1_Click()DimaAsSingle,bAsSingle,cAsSingleDimtAsSinglea=Val(InputBox("請輸入一個實數(shù)"))b=請輸入一個實數(shù)")) 分析上一節(jié)課作c=請輸入一個實數(shù)")) 業(yè)，改格式寫出Print"排序前：";a,b,c 代碼Ifa>bThent=a:a=b:b=tEndIfIfa>cThent=a:a=c:c=tEndIfIfb>cThent=b:b=c:c=tEndIfPrint"排序后：";a,b,cEndSub任務(wù)5.6PrivateSubCommand1_Click()DimxAsSingle,yAsSinglex=Val(Text1.Text) 完成任務(wù)例題y=Val(Text2.Text)Ifx<yThenLabel3.Caption="較大數(shù)為"&Str(y)ElseLabel3.Caption="較大數(shù)為"&EndIfEndSub練習(xí)：1、PrivateSubCommand1_Click()DimxAsSingle,yAsSingle 跟老師一起練習(xí)x=Val(Text1.Text) 題y=Val(Text2.Text)Ifx<yThent=x : x=y : y=EndIfLabel3.Caption="較大數(shù)為"&Str(x)EndSub2、x=int(Rnd(1)-10)ifx<=-5Theny=x^2+10else

先分析題再寫出或者說出答案y=x*x-10Endifprintx;y3、x=42ifx/3=int(x/3)Andx/7=int(x/7)thenprint xElseEndif

printx+x課后作課后作業(yè)題作業(yè)：寫周末作業(yè)If語句的練習(xí)課時1間思課時教 案教學(xué)目標

通過做多行If語句的練習(xí)鞏固所學(xué)理論知識。點點課型

寫多行If語句的程序代碼分析程序部分做題課 教法 講授、演示教學(xué)過程 學(xué)生活動一、回顧復(fù)習(xí)多行If語句的語法格式 同學(xué)們寫出If二、練習(xí)題有： 式1 、 求 解

bxc0 程（假a0 ）分析：當(dāng)b^2-4ac>=0條件成立時，方程有兩個實根 先分析題，然后再思考寫代碼步x1,2=b b24ac 驟2a條件不成立時，方程無實根。2、由鍵盤輸入三角形三邊的長，放入變量a,b,c中，用下面的公式編程求三角形的面積。面積公式:s p(pa)(pb)(pc)其中：p=(a+b+c