信息技術科算法與程序設計第1頁2.常見算法描述方法有：自然語言（如漢語，英文）流程圖描述偽代碼描述

3.程度三種最基本結構：次序結構選擇結構循環結構1.算法：處理問題方法與步驟4.編程解題過程人工解題(分析問題)描述算法(設計算法)編寫程序調試程序算法第2頁有窮性確定性有0個或多個輸入有一個或多個輸出有效性算法特征算法能夠沒有輸入，但算法最少有1個輸出，算法在執行有窮步后要結束第3頁程序設計語言發展歷程：機器語言——匯編語言——高級語言P18常見高級語言：VisualBasic、Pascal、C、C++、Prolog、Java、LISP、Algol、Cobol、Basic等第一個高級程序設計語言是Fortran第4頁程序設計語言產生與發展程序設計語言是指人們編制程序所使用計算機語言。程序設計語言經歷了從機器語言到高級語言發展歷程。機器語言用intel80386機器指令完成“9＋8”加法運算指令序號機器指令指令功效11011000000001001把加數9送到累加器AL中20000010000001000把累加器AL中內容與另一數相加，結果存在AL中（即完成9＋8運算）311111000停頓操作第5頁程序設計語言產生與發展匯編語言使用一個類似英語縮略詞且帶有助記性符號語言用匯編語言寫程序，必須經過匯編程序翻譯，轉換成機器語言，才能被計算機執行。用匯編語言來實現“9＋8”運算相關指令指令序號匯編語言指令指令功效1MOVAL,9把加數9送到累加器AL中2ADDAL,8把累加器AL中內容與另一數相加，結果存在AL中（即完成9＋8運算）3HLT停頓操作第6頁程序設計語言產生與發展高級語言第一個高級程序設計語言是fortran語言，主要用于科學和工程計算。高級語言中使用表示式更靠近數學表示式，使用語句更靠近自然語言。比如前面計算“9＋8”問題，若用visualBasic語言編程，就變得十分簡單，而且易于了解。Print9+8高級語言編寫程序（稱為源程序）必須經過翻譯器將其翻譯成機器語言，才能被計算機執行。高級語言因為抽象度高，源代碼與硬件無關，可移植性強。常見高級語言有fortran,Basic,Pascal,C,C++,java,Prolog。第7頁程序編輯與翻譯以匯編語言或高級語言所編寫程序被稱為“源代碼”源代碼需要我們逐輸入到計算機中，并以文本文件形式保留起來，這個過程稱為程序編輯。高級語言翻譯程序有兩種類型：編譯程序和解釋程序。第8頁編譯程序主要功效是將高級語言編寫程序在執行前翻譯成等效機器語言程序，方便在機器上直接執行。其編譯過程如圖2.4。第9頁解釋程序作用是逐條分析源程序中語句，每解釋一句由計算機執行執行一句。它和編譯程序差異在于不產生目標程序，而是直接執行源程序，每次執行都要進行逐條解釋。其解釋過程如圖2.5。第10頁常量定義方法：格式：Const常量名As類型=表示式如constpiassingle=3.14第11頁或者：dimr1assingledimr2assingledimr1assingle,r2assingle變量定義方法格式：Dim變量名As類型如dimxasinteger定義多個變量：

第12頁變量命名規則1）必須以字母開頭，由字母、數字或下劃線_組成，長度≤255個字符

2）不能使用VB中關鍵字，并盡可能不與VB中標準函數名同名；如：Dim、if如：a2，a_2，apple，VB等是正確；2a，a=2，dim等是錯誤第13頁基本數據類型數據類型類型說明符取值樣例整型Integer從-32768到32767如：234、-90是整型數長整型long從-2147483648到2147483647如534342是長整型數單精度Single單精度實型數(可表示小數)它有7位有數字如123.54、1.7534E+51.7534E+5表示1.7534*10^5雙精度實型數double雙精度實型數，它有15位有數字字符型String例：“china”、“中國”邏輯型（布爾型）BooleanTrue、False日期型Date(time)如：#6/13/#第14頁運算符：運算符號+-*/^\MOD含義加號減號乘號除號乘方整除取余數如a=9b=4a\b值為2即整數除

a/b值為2.25即實數除amodb值為1【注意】多層括號統一用()表示：((a+b)*b)*(a-b)字符串運算符(連接符)&：“abc”&“def”結果為“abcdef”

+:“123”+“456“結果為“123456”第15頁常見函數函數名說明示例結果Abs(X)絕對值Abs(-3.5)3.5Sqr(X)平方根Sqr(9)3Int(X)小于給定數X最大整數Int(-1.6)-2Int(1)1Fix(x)取整fix(-1.6)=-1fix(1.6)=1第16頁輸入數據函數Inputbox(提醒信息,標題,默認值,位置)①提醒信息：指對輸入數據提醒，顯示在對話框中，不能省略。②標題：指對運行此函數后彈出對話框標題。③默認值：指默認輸入數據值。④位置：是指運行此函數后彈出對話框左上角在屏幕上位置①②③④樣例：如x=InputBox(“請輸入糧食單價”,“數據輸入”，20)它是提供從鍵盤輸入數據函數。利用它可產生一個對話框（不需要事先畫），提醒用戶輸入數據并單擊命令按鈕。該函數返回用戶輸入數據值。第17頁

格式：print輸出內容如printa+b‘輸出算式a+b計算后數值print“hello”‘輸出helloprint1+2=3‘輸出true【注意】在英文半角狀態下雙引號中所表示數據類型是字符型。如“a=”

第18頁條件語句格式：格式一：

格式二：If條件Then語句1Else語句2If條件Then語句組1Else語句組2EndIf第19頁關系表示式運算符號=>>=<<=<>含義等于大于大于等于小于小于等于不等于邏輯表示式：P43例子：0<=b<10b>=0andb<10a<=5或者a>10a<=5ora>10第20頁For循環語句格式：

For

循環變量=初值

To

終值

Step

步長值

語句組

Next

循環變量For循環語句注意事項：P51（1）For-

Next語句必須成對出現，循環變量名保持一致

（2）循環變量是數值型變量

（3）步長值可正可負，當步長值為1時，Step及步長值能夠省略

第21頁建立一個VB應用程序普通四個步驟：(1)建立應用程序界面(2)設置對象屬性(3)編寫應用程序代碼(4)保留和運行程序【注意】以上是完整建立一個VB程序步驟。但考試時常出現已做(1)(2)，要求完善(3)情況；或者要求做(1)(2)，但不要求做(3)情況，當然也可能要求完整做(1)(2)(3)(4)，一定要注意審題。第(4)個步驟：保留和運行程序，一定要驗證程序是否正確，然后以要求文件名保留在要求路徑下。注意：最少2個文件，工程文件(擴展名vbp)和窗體文件(擴展名frm)。第22頁1.以下正當表示式是（）A.a+b<>cB.π*2*rC.x≠yD.a-b*≤cA第23頁2.設置窗體標題時，應改變窗體（）A.Caption屬性B.Name屬性C.Font屬性D.BackColor屬性A第24頁3.函數Sqr(25)返回值是()A.25B.5C.-5D.625B第25頁4.代數式對應VB表示式是()A.a+b/c-dB.(a+b)/(c-d)C.(a+b)/c-dD.a+b/(c-d)D第26頁5.在VB語言中，以下正確賦值語句是()A.-a=cB.a+b=cC.a=9D.a/2=cC第27頁6.以下程序段執行后，整型變量s

值為()A.s=50B.s=15C.s=120D.s=32s=1

Fori=1To5Step2

s=s*i

Nexti

Print“s=”;s

B第28頁7.以下不屬于算法表示工具是()A.自然語言B.流程圖C.機器語言D.偽代碼C第29頁8.在VB中以下正當變量名是()A.a4B.dimC.ha\haD.4bA第30頁9.函數abs(-9)返回值是()A.9B.-9C.3D.-1A第31頁10.用邏輯表示式表示“X大于0且X小于3”,正確是()A.0<x<3B.x<0andx>3C.(x>0)and(x<3)D.(x>0)or(x<3)C第32頁11.下面不屬于結構化程序設計三種基本結構之一是()A.次序結構B.選擇(分支)結構C.循環結構D.環形結構D第33頁12.以下屬于字符串常量是()A.abcdB.‘bcd’C.“3”D.helloC第34頁13.以下屬于正當長整型常量是()A.3.24567E+10B.1453.14C.5874123D."3256413"C第35頁14.在VB中，表示一個整數除以另一個整數余數運算符是()A.+B.\C.modD./C第36頁15.以下程序段執行后，整型變量s值為()

s=10

Fori=4To1STEP-1

s=s-i

NextiA.5B.0C.-1D.4B第37頁16.以下程序段執行后，整型變量a值為()

a=2

b=8

b=b-a

a=b-a

a=b+a

A.6B.12C.3D.10D第38頁17.在VB語言中，以下邏輯表示式值為“真”是()A.5<>6and6<9B.5<3or6>9C.#1/11/#>#11/15/#D.#1/11/#<#11/15/#A第39頁18.以下計算機程序設計語言中都屬于高級語言一組是()A.匯編語言、JavaB.Pascal、JavaC.機器語言、PascalD.匯編語言、VisualBasicB第40頁19.設置TextBox字體顏色時，應改變TextBox()A.Font屬性B.Name屬性C.Text屬性D.ForeColor屬性

D第41頁20.代數式A.(b*b－4*a*c)/(2/a)B.(b*b－4*a*c)/2aC.(b*b－4*a*c)/2*aD.(b*b－4*a*c)/2/a對應VB表示式是()D第42頁21.以下句子中，賦值語句錯誤是()

A.y=x+4B.r=val(text1.text)C.label1.caption=“半徑”D.x+4=yD第43頁以下是完善程序題型第44頁1.下面程序求100以內（包含100）能被5整除數積，請補充完整。PrivateSubCommand1_Click()DimiAsIntegerDimsAsLong'刪除<1>，填入正確代碼s=Fori=5To100step5'刪除<2>，填入正確代碼s=NextiPrint"100以內（包含100）能被5整除數積是：“;sEndSub1S*i<1><2>第45頁3、以下程序功效是：在text1輸入一個整數，判斷它是否能被3整除，若能則在text2輸出“能”，不然輸出“不能”。請找出兩個錯誤之處。PrivateSubcommand1_click()DimaasintegerText1.text=aIfamod3=0Thentext2.text=”能”Elsetext2.text=“不能”EndifEndSubA=text1.textIfamod3=0Thentext2.text=”能”Elsetext2.text=“不能”Endif第46頁7、以下程序功效是：求1+1/2+1/3+...+1/10之和。請補充完整。PrivateSubCommand1_Click()DimiAsIntegerDimsAsSingle'刪除<1>，填入正確代碼s=Fori=1To10'刪除<2>，填入正確代碼s=NextiPrint"1+1/2+1/3+...+1/10=";sEndSub<1><2>0S+1/i返回第47頁以下部分自已學習第48頁2、下面程序功效是求兩個數中較大數。程序能在第一個文本框中接收輸入一個數并存入a，第二個文本框中輸入另一個數并存入b變量，點擊“求兩個數中較大數”按鈕后，在窗體上輸出較大數。請找出程序中兩個錯誤之處。PrivateSubcommand1_click()Dimaassingle,bassingle,iAssingleText1.text=aText2.text=bIfa>bTheni=aElsei=bEndIfPrintiEndSuba=Text1.textb=Text2.text第49頁4、以下程序功效是：求1到100之間全部能被3整除數之和。請補充完整。PrivateSubCommand1_Click()DimiAsIntegerDimsAsIntegers=0'刪除<1>，填入正確代碼Fori=3To100s=s+iNexti'刪除<2>，填入正確代碼Print"求1到100之間全部能被3整除數之和";EndSub<1><2>sStep3第50頁5、以下程序功效是：判斷假如text1中輸入數是零，則在text2中輸出"0",假如輸入數>0,則輸出"正數"，假如輸入數<0,則輸出"負數"。請補充完整。PrivateSubCommand1_Click()Dimaassingle'刪除<1>，填入正確代碼<1>Ifa=0thenText2.text=”0”ElseIfa>0thentext2.text=”正數”elsetext2.text=”負數”'刪除<2>，填入正確代碼<2>EndSuba=text1.text

Endif

第51頁6、以下程序功效是：求100以內被6整除個數，請補充完整。PrivateSubCommand1_Click()DimiAsIntegerDimsAsIntegers=0Fori=1To100step1'刪除<1>，填入正確代碼If<1>thens=s+1Nexti'刪除<2>，填入正確代碼Print"1到100之間能被6整除個數是：";<2>EndSubimod6=0

s第52頁8、以下程序功效是：由text1、text2、text3控件輸入數，在text4控件輸出它們平均值。請補充完整。PrivateSubCommand1_Click()Dimaassingle,bassingle,cassingle,dassingleA=text1.text'刪除<1>，填入正確代碼C=text3.text'刪除<2>，填入正確代碼Text4.text=dEndSub<1><2>B=text2.textd=(a+b+c)/3返回第53頁9、以下程序功效是：由text1控件輸入一個1901至1999之間年份a，判斷a是否為閏年，假如是就在text2控件輸出”是”，假如不是就在text3控件輸出”不是”。請補充完整。PrivateSubCommand1_Click()DimaAsInteger‘刪除<1>，填入正確代碼'刪除<2>，填入正確代碼Ifthentext2.text=”是”elsetext2.text=”不是”EndSub<1><2>A=text1.textAmod4=0返回第54頁PrivateSubCommand1_Click()'刪除<1>，填入正確代碼<1>A=text1.textB=text2.textC=text3.text'刪除<2>，填入正確代碼If<2>thentext4.text=”有實根”elsetext4.text=”無實根”EndSub

Dimaassingle,bassingle,cassingle

b^2-4*a*c>=0返回10、以下程序功效是：求一個一元二次方程ax2+bx+c=0(a不為0)實根，由text1控件輸入系數a，text2控件輸入數系數b，text3控件輸入系數c,假如方程有實根，則在text4控件輸出”有實根”，不然在text4輸出’無實根”。請補充完整。第55頁PrivateSubCommand1_Click()DimiAsIntegerDimsAsSingles=0'刪除<1>，填入正確代碼Fori=1To10<1>'刪除<2>，填入正確代碼s=<2>NextiPrint"1/1+1/4+1/7+1/10=";sEndSub

Step3s+1/i返回11、以下程序功效是：求1/1+1/4+1/7+1/10之和。請補充完整。

第56頁12.已知三角形一條邊邊長為12，輸入另外兩條邊邊長a、b，判斷a、b和23能否組成一個三角形。例：在Text1輸入a、Text2輸入b，假如a+b>12、a+12>b、b+12>a，則在Text3文本框中輸出"是"，不然在Text3文本框中輸出"否"。PrivateSubCommand1_Click()DIMAASsingle,basintegerA=text1.textB=text2.textIf<1>thentext3.text=“是”Else<2>EndifEndSubA+b>12anda+12>bandb+12>atext3.text=“否”返回第57頁13、以下程序功效是：從text1中輸入一個整數a，假如a是奇數，則在text2文本框中輸出a3倍+1；假如a是偶數，則在text2文本框中輸出二分之一。請補充完整。PrivateSubCommand1_Click()'刪除<1>，填入正確代碼Dimaas<1>A=text1.text'刪除<2>，填入正確代碼If<2>thentext2.text=a\2elsetext2.text=a*3+1EndSubintegeramod2=0返回第58頁14、以下程序功效是：從text1中輸入一個正整數，在text2中輸出它因子和。

PrivateSubCommand1_Click()DimNAsIntegerDimsAsInteger'刪除<1>，填入正確代碼N=Text1.Texts=<1>'刪除<2>，填入正確代碼Fori=1ToNif<2>thens=s+iNextiText2.Text=sEndSub0nmodi=0返回第59頁PrivateSubComm