高中算法與程序設(shè)計ppt課件

1、算法與程序設(shè)計算法與程序設(shè)計算法可以沒有輸入，但算法至少有算法可以沒有輸入，但算法至少有1個輸出，算法在執(zhí)行有窮步后要結(jié)束個輸出，算法在執(zhí)行有窮步后要結(jié)束程序設(shè)計語言的發(fā)展歷程： 機器語言匯編語言高級語言P18常見的高級語言： Visual Basic、Pascal、C、C+、Prolog、Java、LISP、Algol、Cobol、Basic等第一個高級程序設(shè)計語言是 Fortrann高級語言由于抽象度高，源代碼與硬件無關(guān)，可移植性強。n常見的高級語言有fortran,Basic,Pascal,C,C+,java,Prolog?；蛘撸篸im r1 as single dim r2 as si

2、ngledim r1 as single, r2 as single變量的定義方法格式：Dim 變量名 As 類型 如dim x as integer定義多個變量： 變量的命名規(guī)則變量的命名規(guī)則1） 必須以字母開頭，由字母、數(shù)字必須以字母開頭，由字母、數(shù)字 或或 下劃線下劃線_ 組成，組成，長度長度255個字符個字符2） 不能使用不能使用VB中的關(guān)鍵字，并盡量不與中的關(guān)鍵字，并盡量不與VB中標(biāo)準(zhǔn)函中標(biāo)準(zhǔn)函數(shù)名同名；如：數(shù)名同名；如：Dim 、if 如：如： a2 ，a_2，apple，VB等是正確的；等是正確的； 2a ，a=2 ，dim 等是錯誤的等是錯誤的基本數(shù)據(jù)類型基本數(shù)據(jù)類型運算符：運

3、算符：如a=9 b=4ab值為2 即整數(shù)除 a/b值為2.25 即實數(shù)除a mod b的值為1【留意】多層括號統(tǒng)一用()表示：(a+b)*b)*(a-b)常見函數(shù)常見函數(shù)Fix(x) 取整 fix(-1.6)=-1 fix(1.6) =1輸入數(shù)據(jù)的函數(shù)Inputbox(提示信息,標(biāo)題,默認(rèn)值,位置)提示信息：指對輸入數(shù)據(jù)的提示，顯示在對話框中，不能省略。標(biāo)題：指對運行此函數(shù)后彈出的對話框的標(biāo)題。默認(rèn)值：指默認(rèn)的輸入數(shù)據(jù)值。位置：是指運行此函數(shù)后彈出的對話框的左上角在屏幕上的位置樣例：如 x= InputBox (“請輸入糧食的單價”, “數(shù)據(jù)輸入”，20) 它是提供從鍵盤輸入數(shù)據(jù)的函數(shù)。利用它

4、可產(chǎn)生一個對話框不需要事先畫），提示用戶輸入數(shù)據(jù)并單擊命令按鈕。該函數(shù)返回用戶輸入數(shù)據(jù)的值。 格式：print 輸出內(nèi)容如print a+b 輸出算式a+b計算后的數(shù)值 print “hello” 輸出hello print 1+2=3 輸出 true【留意】 在英文半角狀態(tài)下的雙引號中所表示的數(shù)據(jù)類型是字符型。 如 “a=” 條件語句的格式：條件語句的格式：格式一： 格式二：If 條件條件 Then 語句語句1 Else 語句語句2If 條件條件 Then 語句組語句組1Else 語句組語句組2End If關(guān)系表達(dá)式關(guān)系表達(dá)式邏輯表達(dá)式：邏輯表達(dá)式：P43P43例子：例子：0=b=0 and

5、 b100=b=0 and b10 a=5 a10 a10a10 a10For 循環(huán)語句的格式：循環(huán)語句的格式： For循環(huán)變量循環(huán)變量=初值初值To終值終值Step步長值步長值 語句組語句組 Next循環(huán)變量循環(huán)變量 For 循環(huán)語句的注意事項：循環(huán)語句的注意事項：P51（1For-Next語句必須成對出現(xiàn)，循環(huán)變量名保持一致語句必須成對出現(xiàn)，循環(huán)變量名保持一致 （2循環(huán)變量是數(shù)值型變量循環(huán)變量是數(shù)值型變量 （3步長值可正可負(fù)，當(dāng)步長值為步長值可正可負(fù)，當(dāng)步長值為1時，時，Step及步長值可以省略及步長值可以省略 建立一個建立一個VB應(yīng)用程序一般的四個步驟：應(yīng)用程序一般的四個步驟：(1)建立

6、應(yīng)用程序界面建立應(yīng)用程序界面(2)設(shè)置對象的屬性設(shè)置對象的屬性(3)編寫應(yīng)用程序的代碼編寫應(yīng)用程序的代碼(4)保存和運行程序保存和運行程序【留意】以上是完整的建立一個【留意】以上是完整的建立一個VB程序的步驟。但考試時常出現(xiàn)已做程序的步驟。但考試時常出現(xiàn)已做(1)(2)，要，要求完善求完善(3)的情況；或者要求做的情況；或者要求做(1)(2)，但不要求做，但不要求做(3)的情況，當(dāng)然也可能要求完整的情況，當(dāng)然也可能要求完整的做的做(1)(2)(3)(4)，一定要注意審題。第，一定要注意審題。第(4)個步驟：保存和運行程序，一定要驗證程個步驟：保存和運行程序，一定要驗證程序是否正確，然后以要求的

7、文件名保存在要求的路徑下。留意：至少序是否正確，然后以要求的文件名保存在要求的路徑下。留意：至少2個文件，工個文件，工程文件程文件(擴展名擴展名vbp)和窗體文件和窗體文件(擴展名擴展名frm)。AABDdcbaCBCAACDCCCBD A 18.下列計算機程序設(shè)計語言中都屬于高級語言一組的是( )A.匯編語言、JavaB.Pascal、JavaC.機器語言、PascalD.匯編語言、Visual Basic B 19.設(shè)置TextBox的字體顏色時，應(yīng)改變TextBox的( ) A.Font屬性 B.Name屬性 C.Text屬性 D.ForeColor屬性 D 20.代數(shù)式 aacb242

8、A. (b*b4*a*c)/(2/a)B. (b*b4*a*c)/2aC. (b*b4*a*c)/2*aD. (b*b4*a*c)/2/a對應(yīng)的對應(yīng)的VB表達(dá)式是表達(dá)式是( ) D D1S*iPrivate Sub command1_click()Dim a as integerText1.text=aIf a mod 3=0 Then text2.text=”能” Elsetext2.text = “不能”End ifEnd SubA=text1.textIf a mod 3=0 Then text2.text=”能” Else text2.text = “不能”End ifPrivate

9、Sub command1_click()Dim a as single,b as single,i As singleText1.text=aText2.text=bIf a b Then i = a Else i = b End IfPrint iEnd Suba=Text1.textb=Text2.textPrivate Sub Command1_Click()Dim i As IntegerDim s As Integers = 0刪除，填入正確的代碼For i = 3 To 100 s = s + iNext i刪除，填入正確的代碼Print 求1到100之間所有的能被3整除的數(shù)之和;

10、 End SubsStep 3Private Sub Command1_Click()Dim a as single刪除，填入正確的代碼If a=0 then Text2.text=”0”Else If a0 then text2.text=”正數(shù)”else text2.text=”負(fù)數(shù)”刪除，填入正確的代碼End Suba = text1.text End if Private Sub Command1_Click()Dim i As IntegerDim s As Integers = 0For i = 1 To 100 step 1刪除，填入正確的代碼 If then s=s+1Next

11、 i刪除，填入正確的代碼Print 1到100之間能被6整除的個數(shù)是：; End Subi mod 6 = 0 sPrivate Sub Command1_Click()Dim a as single,b as single,c as single,d as singleA=text1.text刪除，填入正確的代碼C=text3.text刪除，填入正確的代碼Text4.text=dEnd SubB=text2.textd=(a+b+c) /3Private Sub Command1_Click()Dim a As Integer刪除，填入正確的代碼刪除，填入正確的代碼If then text2

12、.text=”是”else text2.text=”不是”End SubA=text1.textA mod 4=0Private Sub Command1_Click()刪除刪除，填入正確的代碼，填入正確的代碼A=text1.textB=text2.textC=text3.text刪除刪除，填入正確的代碼，填入正確的代碼If then text4.text=” 有實根有實根” else text4.text=”無實無實根根”End Sub Dim a as single, b as single, c as single b2-4*a*c=0Private Sub Command1_Click

13、()Dim i As IntegerDim s As Singles = 0刪除刪除，填入正確的代碼，填入正確的代碼For i = 1 To 10 刪除刪除，填入正確的代碼，填入正確的代碼 s=Next iPrint 1/1+1/4+1/7+1/10=; sEnd Sub Step 3s+1/i12.已知三角形一條邊邊長為已知三角形一條邊邊長為12，輸入另外兩條邊的邊長，輸入另外兩條邊的邊長a、b，判斷判斷a、b和和23能否構(gòu)成一個三角形。能否構(gòu)成一個三角形。例：在例：在Text1輸入輸入a、Text2輸入輸入b，如果，如果a+b12、a+12b 、b+12a ，則在，則在Text3文本框中輸

14、出文本框中輸出是是，否則在，否則在Text3文本框中文本框中輸出輸出否否。Private Sub Command1_Click()DIM A AS single , b as integerA=text1.textB=text2.textIf then text3.text=“是是”Else End ifEnd SubA+b12 and a+12 b and b+12a text3.text=“否否”Private Sub Command1_Click()刪除，填入正確的代碼Dim a as A=text1.text刪除，填入正確的代碼If then text2.text=a2 else te

15、xt2.text=a*3+1End Sub integera mod 2 = 0 Private Sub Command1_Click()Dim N As IntegerDim s As Integer刪除，填入正確的代碼N = Text1.Texts = 刪除，填入正確的代碼For i = 1 To N if then s = s + iNext iText2.Text = sEnd Sub0n mod i = 0 Private Sub Command1_Click() Dim i As Integer, j As Integer, k As Integer i = Text1.Text

16、k = 0 For j = 2 To i-1 刪除刪除，填入正確的代碼，填入正確的代碼 If Then k = k + 1 Next j 刪除刪除，填入正確的代碼，填入正確的代碼 If Then Text2.Text = 是是 Else Text2.Text = 不是不是 End Subi mod j =0k=016.判斷一元二次方程判斷一元二次方程ax2+bx+7=0有無相等實根。若有相等實根有無相等實根。若有相等實根,則輸出此實根則輸出此實根,否則輸出否則輸出無無。例：在例：在Text1輸入整數(shù)輸入整數(shù)a、Text2輸入整數(shù)輸入整數(shù)b，如果，如果b2-4ac=0,則在則在Text3文本框中輸出實根，否則在文本框中輸出實根，否則在Text3文本框中輸出文本框中輸出無無。Private Sub Command1_Click()Dim a as singleDi