.例1：求圓的周長和面積inputrc=2*π*rs=π*r*rprintc,s練習：求三個數中的最大數?！灿脗未a描述4．程序與程序語言〔1程序的定義：程序實際上是一組及其操作的指令或語句的序列,是算法的一種描述〔2程序的基本特征：程序一共有七個基本特征1、程序中,每一個算法的步驟對應著程序設計語言的一個或多個語句,每個語句對應一個或者多個操作。每個操作都要求有執行對象,并且根據對象狀態變化形成動作的效果,同事可變的對象用變量來表示,變量的值的變化則可通過操作賦值來完成。2、除非特殊索命程序都是從第一條語句開始順序開始向下執行。3、程序總是施行與操作與某些對象,這些對象通常稱為數據。4、這些數據一般應該有屬性和取值范圍,即類型說明。5、有時語句要求執行者作出判斷,即在某種條件成立情況下執行一條或一組語句,否則執行另一條或一組語句。6、一條或一組語句可能需要執行一次以上,當一條或一組語句要重復時,必須指明重復的次數或重復的條件。7、程序本身是一個靜態的實體,而執行語句的進程是動態的?！?程序的基本結構：順序結構、選擇結構、循環結構?！?程序設計語言的的產生和發展1、機器語言：二進制代碼指令2、匯編語言：類似英語縮略詞且帶有助記性符號的語言,每條匯編指令和一條機器指令相對應,只是指令碼和操作數都采用符號形式。而這種語言是不能被機器直接接受,必須用一種語言翻譯器將程序中的每條語句翻譯成機器語言才能執行。3、高級語言：高級語言本身不是一種語言,只是一類語言的分類。用高級語言編寫的程序必須經過翻譯器將其翻譯成機器語言,才能在計算機上執行。常見的高級語言：C語言、C++、pascal、java、C#、VB、Basic〔5程序的編輯和翻譯1、程序的編輯：以匯編語言或者高級語言所編寫的程序被稱為"源代碼",這些代碼需要我們逐一的輸入到計算機中。并把他們以文件的形式保存起來,這個過程稱為程序的編輯2、程序的翻譯：前面的學習中使我們知道,計算機只能識別和執行二進制的機器語言代碼,而我們用級語言或匯編語言編寫的程序要想被計算機執行,必須翻譯成機器語言程序,最終才能被計算機執行。高級語言的翻譯程序一般則有兩種類型：編譯程序和解釋程序。練習題:1下面對算法描述正確的一項是：〔A、算法只能用自然語言來描述B、算法只能用圖形方式來表示C、同一問題可以有不同的算法D、同一問題的算法不同,結果必然不同2．下面關于算法描述正確的是〔<A>算法不可以用自然語言表示<B>算法只能用框圖來表示<C>一個算法必須保證它的執行步驟是有限的<D>算法的框圖表示法有0個或多個輸入,但只能有一個輸出3、圖形符號""在算法流程圖描述中表示<>.A處理或運算的功能B輸入輸出操作C用來判斷條件是否滿足需求D算法的開始或結束4、以下哪個是算法的描述方法?<>A流程圖描述法B枚舉法C順序法D列表法5、下面的語句是一個計算機程序的操作說明：〔1初始值為x=1,y=1,z=0,n=0；〔2n=n+1〔將當前n+1的值賦予新的n；〔3x=x+2〔將當前x+2的值賦予新的x；〔4y=2y〔將當前2y的值賦予新的y；〔5z=z+xy〔將當前z+xy的值賦予新的z；〔6如果z＞7,則執行語句〔7,否則返回語句〔2繼續進行；〔7打印n,z；〔8程序終止．由語句〔7打印出的數值為______,_______.6、以下屬于計算機程序語言的有〔A、匯編語言B、高級語言C、機器語言D、低級語言7、執行程序時,程序中的每一條語句至少要運行一次〔8、最早的程序設計語言是匯編語言〔9、程序設計語言是指人們編制程序所使用的計算機語言,VB是低級語言〔10、高級語言翻譯程序有兩種類型：解釋程序和編譯程序〔第二章程序設計基礎第一節常量、變量的定義VB程序的一般包括如下部分：〔1數據類型說明部分〔2數據的輸入部分〔3數據的處理部分〔4數據的輸出部分例:求圓的周長和面積PrivateSubCommand1_Click<>DimrAsSingle//定義r為單精度型DimcAsSingle//'定義c為單精度型DimsAsSingle//定義s為單精度型r=inputbox<"輸入半徑r">//輸入半徑rc=2*3.14159*r//計算周長s=3.14159*r*r//計算面積printc//輸出周長prints//輸出面積EndSub一、常量：在程序進行過程中不變的量,在VB中一般分數值常量與字符常量兩種。數值常量：就是數學中說的常數,分整型常量和實型常量兩種整型常量：即整數,指不帶小數點的數值如1、0、-10、+35等都是合法的整數實型常量：即實數,指帶小數點的數值。實型常量又分為定點數和浮點數兩種。例：定點數：3.14159和-6.8,1.99浮點數：2E6、1E5例：1.2345×103可表示為1.2345E3,字母E表示底數10浮點數就是數學上的科學計數法。字符串常量：被一對雙引號括起來的若干個合法的字符稱為字符串常量。例如："China"、"VisualBasic"、"18”、"3.1415符號常量：如果多次用到同一個常量,則可用一個有意義的名字表示這個常量。二、變量：在程序執行過程中,其值可以改變的量稱為變量變量命名注意要點：1、必須以字母開頭,不能以數字或其他字符開頭。2、只能由字母、漢字、數字學或下劃線組成,不能含有小數點、空格等字符。3、最長不超過255個字符4、不能以VB保留字作變量名,如語句定義符、函數名等。5、VB不區分變量名中字母大小寫。如HELLO和Hello是同一個變量。表2-1常用數據類型整型Integer從-32768到32767長整型Long從-2147483648到2147483647單精度實型Single負數-3.402823E+38到-1.401298E-45正數1.40129E-45到3.402823E38但它只有7位有效數字雙精度實型Double絕對值小于10308的數,它有15位有效數字日期型Date<Time>如：#2008-01-31##01/31/2008#字符型String如："中國","zhongguo"布爾型BooleanTrue或False三、常量和變量的定義符號常量的聲明：Const常量名[As常量類型]=常量值如：ConstpiAsSingle=3.14159常量名為pi變量的聲明：Dim<變量名>As<變量類型>如：DimaAsInteger定義一個整型變量,變量名為a變量的賦值:變量=表達式例：PrivateSubForm_Click<>DimaAsInteger,bAsInteger,cAsIntegerDimstrAsStringa=54b=114c=a+bstr="HelloWorld"Print"a=";a,"b=";b,"c=";cPrintstrEndSub四、運算符算術運算：+-*^/\mod加減乘乘方除整除取余^指數例：2^2=4/〔浮點除例：5/2=2.5\整除例：5\2=2Mod求余數例：5Mod2=12、關系運算=><>=<=<>等于大于小于大于等于小于等于不等于注意：關系表達式的運算結果為布爾值True或False例：3>2結果為True<真或是>3、邏輯運算Not〔取反And〔與Or〔或運算結果為布爾型〔BooleanTrue或False邏輯運算符的優先級為：No>And>Or4、日期運算符與日期表達式日期表達式是用日期運算符"+"或"-"將算式表達式、日期型常量、日期型變量、日期函數等連接起來的式子,如表達式"#2003/09/01#+30”的運算結果是"2003-10-1"；表達式"#2003/10/20#-#2003/10/105、字符運算字符串連接符為"+"和"&""123”+"45”="12345”"123”&"45”="12345”123+"45”=168"123”+45=168運算符的執行順序：在VB中,當一個表達式中同時出現多種運算符時,運算次序由運算符的優先級決定,優先級高的運算符先運算,優先級相同的從左向右進行運算。不同性質的運算符優先級如下。算術運算符>字符串運算符>關系運算符>邏輯運算符6、常用函數函數名說明示例結果Sin〔XX弧度的正弦Sin〔00Cos<X>X弧度的余弦Cos<0>1Tan〔XX弧度的正切Tan〔00Atn〔XX用弧度表示的反正切值Atn〔00Abs〔XX的絕對值Abs〔-3.53.5Exp〔Xe的指定次冪,即exExp〔320.086Log〔X一個數值X的自然對數Log〔102.3Sqr〔XX的平方根Sqr〔93Sgn〔X符號函數：X>0,得到1,X<0,得到-1,X=0得到0Sgn〔-3.5-1Int〔X不大于給定數X的最大整數Int〔-1.6-2Fix〔XX的整數部分Fix〔-1.6-1Cint〔X類型為：Integer-322768～32767小數部分四舍五入CLng〔X類型為：Long-2147483648～2147483647小數部分四舍五入Mid〔C,N1,N2從C中N1位開始取出長度為N2的子串Mid<"ABCDEFG",3,2>"CD"Right<C,N>返回字符串右邊N個字符Right<"ABCDEFG",3>"EFG"Left<C,N>返回字符串左邊N個字符Left<"ABCDEFG",3>"ABC"Len<C,N>測量字符串的長度Len<"VB學習的開始">7Space<N>產生N個空格組成的字符串"ABC"&"Space<N>"&"113"ABC123Date<>返回當前系統日期〔yy-mm-ddDate<>或Date04-12-18Time<>返回系統時間Time<>或Time10:36:08練習題：1、下列變量名寫法錯誤的是<>A、abc_123B、123abcC、abc123D、abc2、下列語句中定義了一個實型變量的是<>A、DimendasIntegerB、DimsumAsSingleC、DimNameAsStringD、其它三項都不對3、在VB中,以下關于符號常量的聲明,聲明正確的是:<>A、DimTAGasStringB、ConstTAGasString"Visual"+"Basic"C、ConstTAGasString="VisualBasic"D、ConstTAGasString4、下面<>不是字符串常量A、"True"B、#False#C、""D、"你好"5、分析s=11\3+11Mod3,s的值是<>.A、5B、6C、4D、36、下面表達式的值是false的有<>.A、"969"<"n97"B、Int<4.99><>len<"basic">C、str<2000><"1997"D、3>27、設a=2,b=3,在VB中,表達式a>bOrb>3值是:<>A、FalseB、TrueC、-1D、18、VisualBasic中,下列<>函數是求絕對值的。A、ABS〔XB、SQR<XC、INT〔XD、GN〔X>9、表達式Abs<-3.6>*sqr<100>的值是<>。A、-36B、360C、36D、-36010、下列<>數據類型不是數值型。A、DateB、SingleC、DoubleD、Integer11、下列函數中,返回值是字符串的是<>.A、MidB、InstrC、ValD、Len12、代數表達式表達式后錯誤的是<>A、g*t*t/2B、1/2*g*t^2C、g*t^2/2D、gt^2/213、數學式子在VB中的正確寫法是：〔A、<2*a+b>/4*aB、<2*a+b>/<4ab>C、<2a+b><4ab>D、<2*a+b>/<4*a*b>14、判斷x是否在區間[a,b]上,在VB中以哪個邏輯表達式是正確的?<>A、a<xandx<=bB、a<x<=bC、a<xandx≤bD、a>xandx<=b15、向n變量存入1個2位整數,要使此2位數十位和個位上的值分別存入x,y變量。正確的算法是<>。選項:x、①x=Left<n,1>②y=n-x*10③Printx:PrintyB、①x=Left<n,1>②y=Right<n,1>③Printx:PrintyC、①x=n/10②y=n-x*10③Printx:PrintyD、①x=Int<n/10>②y=n-x*10③Printx:Printy16、向x變量中輸入任意一個小寫字母,再將x變量中的小寫字母轉成大寫字母。正確的算法是<>.選項:A、①輸人字母到x②a=Asc<x>-32③x=chr<x>④PrintxB、①輸人字母到x②a=Asc<x>+32③x=chr<x>④PrintxC、①輸人字母到x②a=Val<x>一32③x=Chr<x>④PrintxD、①輸人字母到x②a=Val<x>+32③x=Chr<x>④Printx第二節程序的順序結構一、賦值語句1.格式：變量名=表達式功能：將右邊的表達式的值賦給左邊的變量〔1"變量"可以是簡單變量,也可以是字符變量；〔2"="是賦值符號,它的含義將表達式的值賦給左邊的變量。〔3表達式代表一個數值或一個字符串。例1：A=123；A=B；B=2*3；A=A+10；C$="CHINA"2.賦值語句的功能：計算功能和賦值功能3.注意事項〔1賦值語句不是代數等式,賦值號與等號形同而意不同；〔2賦值語句類型必須匹配；〔3把字符串賦給串變量時,該字符串必須用雙引號括起來；〔4變量單元每次只能存一個數據,但可以多次賦值。如：C$="COMPUTER"注意："$"是區分字符串變量的的標志,即要在變量名后加"$"構成字符串變量,同時,字符串用雙引號括起來,然后才賦給字符串變量。二、輸入數據的函數InputBox〔是提供從鍵盤輸入數據的函數。利用它可產生一個對話框,提示用戶輸入數據并單擊命令按鈕。該函數返回值是字符串類型〔string。InputBox〔的語法格式為：InputBox〔提示信息,標題,默認值,位置提示信息：指對輸入數據的提示,顯示在對話框中,不能省略標題：指運行此函數后彈出的對話框的標題。默認值：指默認的輸入數據值位置：指運行此函數后彈出的對話框的左上角在屏幕上的位置注意：提示信息和標題是用引號引起來的字符串三、輸出數據的方法1、基本格式：Print輸出內容注意：1、輸出內容可以是數、變量、表達式,也可以是用引號括起來的字符串；2、如果輸出內容是數,變量,表達式,則輸出的是數,變量,表達式,如果是用引號引起來的字符串,則原樣輸出；3、多個輸出內容,可以用逗號或分號分隔；如果用分號,則后面一個輸出緊跟前一個輸出；如果是逗號,則分區格式輸出；4、如果輸出內容后面沒有符號,則表示下一個Print換行輸出,如果print中沒有輸出內容,則表示輸出一個空行。程序設計的順序結構：代碼按照由上到下的順序一行一行地執行。程序執行過程中沒有分支、沒有重復,這種結構稱為順序結構。例1：交換兩個變量中的數據。PrivateSubcmdSwap_Click<>DimxAsSingle,yAsSingleDimmAsSinglex=inputbox<"請輸入X的值">y=inputbox<"請輸入Y的值">m=xx=yy=m//交換數據printx,yEndSub例2：從鍵盤上輸入一個三位數,然后將它反向輸出,如：輸入456,輸出654。分析問題設X為輸入的三位整數,Y為X的方向輸出。因為X的百位、十位、個位分別為：X1=X\100X2=<X-X1*100>\10X3=X-X1*100-X2*10所以Y=X3*100+X2*10+X1<2>設計算法①輸入X的值②計算：X1=X\100③計算：X2=<X-X1*100>\10④計算：X3=X-X1*100-X2*10⑤計算：Y=X3*100+X2*10+X1⑥輸出Y的值〔3編寫程序Privatesubcommand_click<>Dimxasinteger,x1asinteger,x2asinteger,x3asinteger,yasintegerX=inputbox<"x=","輸入">X1=X\100X2=<X-X1*100>\10X3=X-X1*100-X2*10Y=X3*100+X2*10+X1Print"y=";yEndsub〔4調試程序練習題：1、以下是一段VB程序：a=1b=a+1c=a+b它的基本結構屬于〔A、順序結構B、選擇結構C、循環結構D、樹型結構2、下列VB程序運行后,變量x的值為<>.x=2Printx+lPrintx+23、執行以下程序,在彈出的第1個輸入框輸入"10",第2個輸入框輸入"15",則輸出的結果為〔。

DimaAsInteger,bAsInteger

a=InputBox<"輸入","a=">

b=InputBox<"輸入","b=">

Printa;"+";b;"=",a+b

A.b+a=25B.10+15=25C.a+b=25D.15+10=254、已知A,B,C,D是整型變量,且都已有互不相同的值,執行語句"B=8：A=C：D=A:D=B"后,其值相等的變量是〔。

A.A,DB.A,CC.C,BD.B,A5、要交換變量A和B之值,應使用的語句組是〔。

A.A=B：B=C：C=AB.C=A：A=B：B=C

C.A=B：B=AD.C=A：B=A：B=C6、有如下VisualBasic程序段：

m="VB"

n="is"

t="easy"

t=m+n+t

該程序段運行后,變量t的值為。7、試編寫一個程序,實現輸入一個四位數的數,然后將它倒序輸出。第三節程序設計的分支結構一、行If語句行If是指在一行中寫完的If語句。其一般格式為：格式一：If條件Then語句功能：執行這種形式的If語句時,首先對條件進行判斷。若條件成立,則執行Then后面的語句；若條件不成立,則執行If語句后繼程序行的語句格式二：If條件Then語句1Else語句2功能：執行這種形式的語句時,先進行判斷。若條件成立,則執行語句1；否則執行語句2。例1：輸入三個不相同的數,求出其中最小數。PrivateSubForm_Click<>DimaAsSingle,bAsSingle,cAsSingleDimMinAsSinglea=InputBox<"輸入a","輸入框">b=InputBox<"輸入b","輸入框">c=InputBox<"輸入c","輸入框">Ifa<bThenMin=aElseMin=bIfc<MinThenMin=cPrint"最小數＝";MinEndSub二、塊If語句行If-then語句只能根據條件的真假是否執行一條語句,當Then部分和Else部分包含的內容較多時,則可選用"塊If語句"結構。格式一：If條件Then語句塊EndIf例2：當從輸入一個數時,當該數大于或等于60時顯示"及格",該數小于60時顯示"不及格"。PrivateSubCommand1_Click<>DimaAsSinglea=InputBox<"輸入a">Ifa>=60ThenPrint"及格"EndIfIfa<60ThenPrint"不及格"EndIfEndSub格式二：If條件Then語句塊1Else語句塊2EndIf例3：編寫一程序,求一個一元二次方程ax2+bx+c=0的兩個根。PrivateSubForm_Click<>DimaAsSingle,bAsSingle,cAsSingleDimdAsSingle,x1AsSingle,x2AsSinglea=InputBox<"輸入a","輸入框">b=InputBox<"輸入b","輸入框">c=InputBox<"輸入c","輸入框">d=b2-4*a*cIFd>=0thenx1=<-b+sqr<d>>/2elsex1=<-b-sqr<d>>/2endifprint"x1=";x1,"x2=";x2EndSub練習題:1、以下是一段VisualBasic程序:IfI=1ThenX=X+1ElseX=X*2EndIf它的基本結構屬于<>.A、選擇結構B、循環結構C、順序結構D、樹型結構2、下列程序段運行后,變量Value的值是〔x=20Ifx>=10ThenValue=5*xElseValue=4*xEndIfA、100B、80C、90D、703、如要完成:從鍵盤輸入一個正整數,判斷是否是奇數,如是就在屏幕上顯示。比較好的算法是<>選項:A、①輸人的數存人n變量②f=<n/2=Int<n/2>>③如果f中的值為True就顯示n中值B、①輸人的數存人n變量②f=<n/2=Int<n/2>>③如果f中的值為False就顯示n中值C、①輸人的數存人n變量②如果n/2=Int<n/2>成立,就顯示n中值D、①輸人的數存人n變量②如果n/2=Int<n/2>不成立,就顯示n中值4、下面是判斷變量x是不是能被5整除的偶數的程序,橫線上的邏輯表達式應為<>PrivateSubcommandl_Click<>DimxAsIntegerx=Val<Text1.Text>If____=0ThenPrint"這個數是能被5整除的偶數"ElsePrint"這個數不是能被5整除的偶數"EndIf選項：A、<xMod5>=0And<xMod2>=0B、xMod10=0C、xMod5=0D、xMod2=05、如要完成:從鍵盤輸入一個正整數,判斷是否是偶數,如是就在屏幕上顯示。比較好的算法是<>。選項:A、①輸入的數存人n變量②f=<n/2=Int<n/2>>③如果f中的值為True就顯示n中值B、①輸入的數存人n變量②f=<n/2=Int<n/2>>③如果f中的值為False就顯示n中值C、①輸入的數存人n變量②如果n/2=Int<n/2>成立,就顯示n中值D、①輸入的數存人n變量②如果n/2=Int<n/2>不成立,就顯示n中值6、下列程序段運行后,m的值為<>A=2:b=1:c=5IfA<bThenm=AElsem=bIfc<mThenm=c選項：A、1B、2C、5D、提示錯誤,無答案第四節程序設計的循環結構一、For-Next循環For循環變量一般形式是：For循環變量=初值To終值Step循環變量增量循環體Nxt循環變量例1：求s＝1+2+3+4+100PrivateSubForm_Click<>DimiAsIntegerDimsumAsIntegersum=0Fori=1To100step1sum=sum+i'循環體NextiPrint"sum=";sumEndSub循環變量的初值、終值、循環變量增量都是數值型。其中要重復執行的操作稱為循環體,增量可正可負,如果沒有設置Step,則增量的缺省值為1循環變量取初值；循環變量與終值比較,沒有超過終值轉3,否則循結束,接著執行循環語句的后繼語句；執行一次循環體循環變量增加一個增量重復步驟2~4。以上可以看出,For-Next循環變量是一種當型循環。說明For語句與Next語句必須成對出現,而且它們當中的"循環變量"必須是同一個變量,如上例中均為I。當循環變量為正時,循環變量超過終值,是指循環變量的值大于終值時；若為負,則是指循環變量的值小于終值。AAP入口出口例2：編寫程序,使能打印下面所示的圖案。程序：PrivateSubForm_Click<>DimiAsIntegerDimjAsIntegerFori=1To6Forj=1ToiPrint"";NextjPrintNextiEndSub一個FOR循環里包含了另一個FOR,我們稱它為嵌套循環。練習題:1、閱讀如下程序,跟蹤程序的執行過程,觀察變量A的值的變化,寫出循環結束時變量A的值、循環次數和程序的運行結果。privaatesubcommand1_click<>forA=1TO10printANextAEndSubprivaatesubcommand1_click<>ForA=1To100S=S+ANextAPint"S=";SEndSubprivaatesubcommand1_click<>ForA=100To1step-1S=S+ANextAPrint"s=";sEndSubprivaatesubcommand1_click<>ForA=1To10A=A+1PrintANextAEndSub2、閱讀下面程序,輸出結果是<>PrivateSubForm_Click<>DimiAsInteger:DimsAsIntegers=0Fori=1To5s=s+iNextiPrints,iEndSub選項:A、15 6B、s=15i=6C、65D、s=6i=53、試編寫一個程序,求出100以內能被3整除的所有正整數。4、試編寫一個程序,求出1*2*3……*100積。二、Do－Loop循環For-Next循環的次數是確定的,但是有的問題只知道循環結束的條件,重復執行的次數事先并不知道,這是需要Do-Loop循環格式一：DoWhile條件循環體Loop例3：求最大公約數PrivateSubCommand1_Click<>DimaAsIntegerDimbAsIntegerDimrAsIntegera=InputBox<"輸入a">b=InputBox<"輸入b">r=aModbDoWhiler<>0a=bb=rr=aModbLoopPrintbEndSub當VB執行DoWhile-Loop循環時,先判斷指定的條件是否為真,若條件為真,執行循環體,條件為假時退出循環。格式二：Do循環體LoopUntil條件這種循環的執行過程如圖所示。進入循環體后,先執行一次循環體A,然后再檢查條件P是否成立。如果不成立,就重復執行循環體A,直到條件P成立退出循環體。AAPN例4：如果我國人口每年以平均1.5%的速度增長,問多少年后我國人口達到或超過15億？設現在人口為12.3億。PrivateSubForm_Click<>DimpAsSingleDimrAsSingleDimnAsIntegerp=1230000000r=0.015n=0Dop=p*<1+r>n=n+1LoopUntilp>=1500000000Printn;"年后","人口=";pEndSub練習題:1、在VB中,以下程序段:x=0DoWhilex<50x=<x+2>*<x+3>Loop執行后,x的值為:<>.A、168B、50C、