高中信息技術(shù)選修1：算法與程序設(shè)計(jì) 4.3 語句

2017“一師一優(yōu)課一課一名師”4.3語句姓名：陳麗學(xué)段：高一版本：浙教版工作單位：溫宿二中變量名＝表達(dá)式對(duì)象名．屬性名＝表達(dá)式賦值語句的主要功能是將賦值號(hào)“＝”右邊的表達(dá)式的計(jì)算結(jié)果保存到左邊的變量中。

在VB程序中，可以在一行上寫一個(gè)語句，也可以在一行上寫幾個(gè)語句，一行上相鄰的兩個(gè)語句之間用冒號(hào)（：）分隔。賦值語句說一說，寫一寫隨機(jī)產(chǎn)生1~100之間的整數(shù)賦值給aText4顯示變量b的值a=Int（rnd（）*100）Text4.Text=Str（b）一、選擇語句的概念及語法格式

選擇結(jié)構(gòu)又稱為分支，判斷結(jié)構(gòu)。它根據(jù)條件是否成立，選擇程序執(zhí)行的方向，從而執(zhí)行其中的一個(gè)選擇。選擇語句例1、

過馬路時(shí)，行人要根據(jù)交通信號(hào)燈的不同情況作出不同的反應(yīng)：紅燈亮了，就要在路邊等待，等到紅燈滅了，再繼續(xù)前進(jìn)。停止是紅燈否是前進(jìn)繼續(xù)前進(jìn)

1.生活中的選擇結(jié)構(gòu)：請(qǐng)同學(xué)舉例生活中的選擇結(jié)構(gòu)？(1)行IF語句IF條件表達(dá)式then語句1

Else語句2或者：IF條件表達(dá)式then語句(2)塊IF語句If條件表達(dá)式Then語句1ElseIf條件表達(dá)式Then語句2……Else語句nEndIF

2.VB中的選擇結(jié)構(gòu)：①.行IF語句：If

條件表達(dá)式Then

語句1Else

語句2“語句1”和“語句2”是二選一的關(guān)系，它們不可能被同時(shí)執(zhí)行

Ifa>=b

Then

s=1Else

s=-1

例12：設(shè)d和count都是整數(shù)類型的變量，如果d的值在閉區(qū)間[10,100]中，則使變量count的值增加1，否則就什么也不做。

例11：設(shè)a、b是兩條線斷的長度，若線段a的長度大于等于線段b，則把1存儲(chǔ)到變量s中，否則把-1存儲(chǔ)到變量s中。。

Ifd>=10andd<=100

Then

count=count+1

If

Then

Else

Endif

②.塊IF語句條件表達(dá)式語句1語句2當(dāng)條件為“真”的時(shí)候，執(zhí)行“語句1”當(dāng)條件為“假”的時(shí)候，執(zhí)行“語句2”“語句1”和“語句2”是二選一的關(guān)系，它們2者不可能被同時(shí)執(zhí)行If語句格式：練習(xí)一：海倫公式.vbp自然語言描述:第一步：

輸入三邊長a、b、c。第二步：

判斷是否構(gòu)成三角形，若構(gòu)成，則用海倫公式計(jì)算面積，否則不需要計(jì)算。(判斷條件：任意兩邊之和大于第三邊)第三步：

輸出三角形面積S，或輸出“輸入的數(shù)據(jù)不構(gòu)成三角形”。第四步：

結(jié)束。VB程序代碼描述：

Dima,b,c,p,sAsSinglea=Val(Text1.Text)b=Val(Text2.Text)c=Val(Text3.Text)p=(a+b+c)/2

If

Then

s=sqr(p*(p-a)*(p-b)*(p-c))

Text4.Text=Str(s)

ElseText4.Text="不能構(gòu)成三角形“

‘任意兩邊之和大于第三邊選擇結(jié)束語句a+b>cEndifanda+c>bandb+c>a

3.選擇結(jié)構(gòu)的程序設(shè)計(jì)：

例.

已知一元二次方程ax2+bx+c=0，編寫一個(gè)VB程序，使之能正確輸出方程解。D>0時(shí)，方程有兩個(gè)不同的實(shí)根

D=0時(shí)，方程有兩個(gè)相同的實(shí)根

D<0時(shí)，方程沒有實(shí)數(shù)根

D=b2-4*a*c練習(xí)二：沒有實(shí)根否不同的實(shí)根x1，x2開始輸入a,b,c,計(jì)算出D結(jié)束是D>0D=0是相同的實(shí)根x1，x2否需要在這里再加個(gè)D<0的條件么？Dima,b,c,d,x1,x2AsSinglea=Val(Text1.Text)b=Val(Text2.Text)c=Val(Text3.Text)d=b*b-4*a*c

If

Thenx1=

‘公式計(jì)算方程解x2=x1Printx1,x2Label4.Caption=“有兩個(gè)相同的解"ElseIf

Thenx1=(-b-Sqr(d))/(2*a)x2=(-b+Sqr(d))/(2*a)Printx1,x2Label4.Caption=“有兩個(gè)不同的解"

'分支語句Label4.Caption="方程沒有實(shí)數(shù)解"EndIf