vb最基礎(chǔ)入門教程從零開始

1、第一課時 VB簡介一、VB是一種編程編程語言Basic正是微軟公司售出的第一套軟件。Basic發(fā)展到今天已經(jīng)有很多版本，如 GW-Basic、QuickBasic、QBasic、Visual Basic ,等等，其中， Visual Basic是最容易學(xué)習(xí)與應(yīng)用的程序語 言之一。雖然最容易學(xué)習(xí)與使用，但它的功能卻非常強(qiáng)大，很多應(yīng)用程序都是用它編寫出來的。不是個個都能成為比爾蓋茨，但你想知道天天使用的Windows的諸多功能是如何實(shí)現(xiàn)的嗎？你想要編寫自己的應(yīng)用程序嗎？通過學(xué)習(xí)VB就能寫出很多應(yīng)用程序。二、打開程序： 點(diǎn)擊桌面上的 Visual Basic圖標(biāo)（或從 程序”菜單中打開 Micros

2、oft Visual Basic 6.0中文版“）， 在彈出的如圖一的窗口中選擇創(chuàng)建標(biāo)準(zhǔn) EXE按鈕。君君VB應(yīng)用程序VB向?qū)Ч倮恚?向?qū)鲌D一確定后的狀態(tài)如圖圖二三、工作界面簡介:1、 標(biāo)題欄2、 菜單欄3、 工具欄圖三4、 工具箱面板5、 程序設(shè)計區(qū)6、 VB工程管理器：用來管理開發(fā)一個 VB程序所需要的各種類型的窗體和模塊，如左圖是 個工程所包含的東西，窗體是一個程序表現(xiàn)在外面的界面、模塊是程序內(nèi)部使用的代碼。7、 屬性窗口星性-CoBBULdl 工|Cobb udl CoMmdButYon J按字母序|整分類序|Cap ti on圖四返回設(shè)置對象的標(biāo)題欄中或圖標(biāo)下用來顯示控件的屬性，并

3、允許我們修改，設(shè)定這些屬性的值，我們在窗體設(shè)計區(qū)域的窗體上選中 一個控件，以按鈕為例，則在“屬性窗口”中會列出它的屬性，我們可以看到常用的“Name”、“Capition、“Font”等等屬性，試著把“ Capition ”屬性改為“這是一個按鈕”，然后看看“窗 體設(shè)計區(qū)域”的按鈕上顯示的文字是不是改變了。8、 布局窗口調(diào)整程序運(yùn)行時，程序窗體在屏幕中的初始位置，把鼠標(biāo)移到左圖屏幕中的窗體上，這時鼠標(biāo)會變成移動形狀，拖動窗體，就設(shè)置好了運(yùn)行時此窗體的位置。四、控件的使用1、控件的屬性2、控件的使用以控件“按扭”的使用為例來說明制作計算機(jī)器界面：雙擊工具箱面板上的命令按鈕(Command But

4、ton )圖標(biāo)，如圖六:圖六然后你會發(fā)現(xiàn)程序界面上多了一個命令按鈕，如圖七：3 mlE圖七在控件屬性窗口中設(shè)置：“Caption屬性為0；并調(diào)好大小，選擇好字體、字號，如圖八所示圖8所示單擊這個按鈕選中它，讓它周圍出現(xiàn) 8個小句柄.選擇編輯”菜單中的 復(fù)制”命令，再選擇 粘貼”重復(fù)以上步驟，做出18個按鈕,命令，則在設(shè)計窗體上會出現(xiàn)一個和原有按鈕一模一樣的按鈕。 修改這18個按鈕的“Caption屬性。五、生成可執(zhí)行的 EXE文件第二講 Label控件Label （標(biāo)簽控件）是圖形控件，主要作用在于顯示文字信息，如大家比較熟悉的程序安裝界面：在某個軟件安裝過程中，常常會顯示一些幫助信息或與產(chǎn)品

5、相關(guān)的介紹信息，而這些，大多是用標(biāo)簽控件制成的。在 Visual Basic工具箱中，標(biāo)簽控件的圖標(biāo)如圖一所示。標(biāo)簽的默認(rèn)名稱（Name）和標(biāo)題（Caption）為LabelX （X為1、2、3,等等），規(guī)范的命名方式為：LblX （X為自己定義的言司，如 LblShow、LblRed ,等等）lH5crollBar|_J圖舊、圖一一、標(biāo)簽控件的主要屬性：1、Caption （標(biāo)題）屬性：此屬性用來設(shè)置在標(biāo)簽上顯示的文本信息，可以在創(chuàng)建界面時設(shè)置，也可以在程序中改變文本信息，如第一章的例子中，通過點(diǎn)擊按鈕 改變標(biāo)簽顯示的字樣。如果要在程序中修改標(biāo)題屬性，代碼規(guī)則如下：標(biāo)簽名稱.Caption

6、=欲顯示白文本如:LblShow.Caption =跟我來學(xué) VB教程但是請大家注意，上面的代碼應(yīng)該寫入供觸發(fā)的控件對應(yīng)的程序代碼區(qū)，如第一章中，是在命令按鈕的程序代碼區(qū)輸入的代碼，而不是標(biāo)簽本身的代碼區(qū)喲。這也是初學(xué)者常常大惑不解的地方，為什么我要讓標(biāo)簽改變字樣，卻要在其他控件中輸入代碼？這是因?yàn)椋覀兪峭ㄟ^觸發(fā)其他控件這個事件來讓標(biāo)簽改變Caption屬性的。當(dāng)然，你也可以讓標(biāo)簽本身來觸發(fā)Caption屬性改變事件，如用鼠標(biāo)點(diǎn)擊標(biāo)簽，這時你就需要在標(biāo)簽對應(yīng)的程序代碼區(qū)輸入代碼了，但在實(shí)際編寫中，這種情況非常罕見。畢竟，標(biāo)簽控件用 于顯示信息的本意遠(yuǎn)遠(yuǎn)超過了響應(yīng)鼠標(biāo)點(diǎn)擊的意圖。2、Borde

7、rStyle （邊框）屬性：本屬性用來設(shè)置標(biāo)簽的邊框類型，有兩種值可選：0,代表標(biāo)簽無邊框；1,代表標(biāo)簽有邊框，并且具有三維效果，如圖二顯示的兩個標(biāo)簽：Labels圖二BorderStyle屬性可以在設(shè)計界面時指定，如圖三:AutoSi z FalseBa-ckColchrftHBOOOOOOFpEackStyle1-Op aque1 Eor der StyleiJkneKin trIL action3Wcne1*11 -BordrStyl返回/設(shè)置對象的邊框樣式-臼圖三也可以在程序中改變（但這種應(yīng)用不多見），程序代碼規(guī)則：標(biāo)簽名.BorderStyle = 0/1 （0 或 1,兩者取一）3

8、、Font （字體）屬性：本屬性用來設(shè)置標(biāo)簽顯示的字體，既可以在創(chuàng)建界面時設(shè)定，也可以在程序中改變。在創(chuàng)建界面時設(shè)定，如圖四：在圖四的設(shè)置界面中，除了可以選擇字體，還可以設(shè)置顯示文字是否為粗體、斜體、下劃線等。在程序中改變 Font屬性，程序代碼書寫規(guī)則如下：字體改變：標(biāo)簽名.FontName =字體類型,其中，字體類型”可以是中文，如 朱體”、隸書”;也可以是英文名，如Arial、” Times New Roman ,等等，不過，這些字體名稱必須是電腦上有I字體大小改變：標(biāo)簽名 .FontSize = X ,其中，X是阿拉伯?dāng)?shù)字，代表字體是幾號字。如：LblShow.FontSize = 1

9、1 。粗體（FontBold）、斜體（FontItalic）、下劃線（FontUnderline ）、刪除線（FontStrikethru ）屬性的設(shè)置值是代表真/假的邏輯判斷值True/False ,如下：LblShow.FontBold = True/False LblShow.FontItalic = True/False改變字體顏色LblShow. ForeColor=顏色常量顏色常量表顏色常量顏色顏色常量顏色vbBlack黑色vbRed紅色vbGreen綠色vbYellowvbBlue法自 rm. 1 jvbMagenta卜紅色vbCyan1mvbWhite白色或者LblShow.

10、ForeColor=RGB（R,G ,B）R、G、B分別代表紅色、綠色、藍(lán)色的值，取值范圍是0到255的整數(shù)。4、Alignment （對齊）屬性：此屬性用來設(shè)置標(biāo)簽上顯示的文本的對齊方式，分別是：左對齊,0;右對齊，1;居中顯示，2?？梢栽诮缑嬖O(shè)置時設(shè)定，如圖五：性-Label 1fxLab ell Lab el |推字母序I按分類序I| 名秫 Lit 2 的值為True； 03 的值為 False4、 日期型（date）當(dāng)需要表達(dá)Date 類型的數(shù)據(jù)時，需要用#號將具體日期括住。例如：日期是：2004 年 2 月 23 日，則應(yīng)表達(dá)為：#2004-2-23#二、算術(shù)運(yùn)算與字符串運(yùn)算進(jìn)行各種

11、運(yùn)算是解決的基礎(chǔ)。VB 支持多種運(yùn)算，本節(jié)課介紹算術(shù)運(yùn)算與字符串運(yùn)算。1 、 算術(shù)運(yùn)算：VB 提供了 7 個算術(shù)運(yùn)算符，下表以優(yōu)先級次序列出了這些運(yùn)算符。1 A乘方3A292-取負(fù)-3-33*乘法3*5153/浮點(diǎn)除法10/33.333333333333334整數(shù)除法10335Mod取模10 mod 316+加法2+356-減法2-3-12、字符串運(yùn)算字符串運(yùn)算符有兩個：“& ”、“+”，它們的作用都是將兩個字符串連接起來，合并成一個新的字符串。例如：“廣州市”& “中山大學(xué)”結(jié)果為”廣州市中山大學(xué)”“168” +”口中，168+”號房”三、課堂練習(xí):結(jié)果為“ 168號房 數(shù)據(jù)類型不一致，錯誤

12、第四講 TextBox的使用(一)文本框控件在工具箱中的名稱為TextBox,在VB中，可以使用文本框控件輸入、輸出數(shù)據(jù)。(1) Text屬性：字符串類型。返回或設(shè)置文本框中顯示的內(nèi)容。例如：Text1.text=年年有余(2) MultiLine屬性：布爾型。當(dāng)MultiLine屬性為True時，文本框可以輸入或顯示多行文本。國性-TextsTaxtS TextBox技字母序I按分類序j LinkTopicLocked0 D電f&ullMultiLiniTrueF alsoOLEDragllddLEDryc Mede F-asswordCkarRi ehtTuL電ftFais電ScrollB

13、ars(3) Passwordchar屬性:字符串類型。當(dāng)MultiLine屬性值為False時，該屬性可以用于口令輸入。如果把 Passwordchar屬性設(shè)置為 個字符，如星號(*),則在文本框中鍵入字符時，只顯示星號，不顯示鍵入的字符。(4) ScrollBars屬性：數(shù)值型。該屬性用于確定文本框是否帶滾動條。有以下4種選擇：0-None 沒有滾動條1-Horizontal只有水平滾動條2-Vertical只有垂直滾動條3-Both同時具有水平和垂直滾動條只有當(dāng)MultiLine屬性值為True時，文本框才顯示滾動條。二、事件：文本框除了支持鼠標(biāo)的 Click、DblClick 事件外，

14、還支持 Change、GotFocus、LostFocus、KeyPress 等事件。本節(jié)課，我們先學(xué)習(xí)Change事件。(1) Change事件：當(dāng)用戶向文本框輸入新的內(nèi)容，或在程序代碼中對文本框的Text屬性進(jìn)行賦值從而改變了文本框的Text屬性時，將觸發(fā)Change事件。(2)示例：建立兩個文本框，名稱分別為：t1、t2。運(yùn)行時，用戶在文本框t1中輸入內(nèi)容的同時，文本框t2顯示相同的內(nèi)容。程序代碼：Private Sub t1_Change()t2.Text=t1.TextEnd Sub三、綜合練習(xí)(界面如下圖所示)：名稱：tl名稱i t31、屬性設(shè)置如下:控件名稱屬性值文本框tlted

15、（空）MultiLineTrueScroll Bars2-Vertical文本框T2Test（空）MultiLineTrueSc roll BarsFalse文本框T3Text（空）Multi LineFalseScrollBarsFalse命令按鈕Command 1Caption復(fù)制命令按鈕CommandsCaption清除命令按鈕Command3Caption相連命令按鈕CommandCaptionIStH2、程序代碼如下：Private Sub Command1_Click()t3.Text = tl.TextEnd SubPrivate Sub Command2_Click()tl.T

16、ext =t2.Text =t3.Text =End SubPrivate Sub Command3_Click()EndEnd SubPrivate Sub Command4_Click()t3.Text = tl.Text & t2.TextEnd SubPrivate Sub t1_Change()t2.Text = t1.TextEnd Sub第五講 變量一、變量的概念1、變量：變量是應(yīng)用程序在運(yùn)行的過程中用來臨時保存數(shù)據(jù)的地方，它的值隨賦值而改變。為了使用變量，需要為變量指定一個名稱和規(guī)定該變量所保存數(shù)據(jù)的類型，這項工作稱為聲明變量。2、為了使編寫的程序更符合規(guī)范和更加有效，推薦實(shí)行

17、先聲明變量然后才使用。為了強(qiáng)制實(shí)施該項要求，需要在每個程序模塊的開始添加如下語句：option explicit或者，使用以下方法：（1）執(zhí)行“工具”一“選項”菜單命令，（2）然后在“選項”對話框架的“編輯器”選項卡中使“要求變量生命”項目有效，則每當(dāng)在工程中添加一個新的窗體或模塊時，選項系統(tǒng)便自動在代碼窗口中添加上述語句。兇編輯器|編輯器格式逋用|可連接的|環(huán)境|高頜|,代碼設(shè)置田自動諾基梯則誼）P自劫縮進(jìn)p自動列出成員&）J Hp自動顯示快速信息）P自動顯示數(shù)據(jù)提示）窗口設(shè)置舊編輯時可拖放文本也）P缺省為整個模塊查閱皿JV過程分隔符也）確定 取消 I 幫助 I（3）如果加入了 option

18、 explicit語句，則在運(yùn)行時 VB對沒有聲明的變量顯示錯誤信息。如圖:Microsoft: Visual BasicX.I編譯楮誤：變量未定義璃定11 幫助|二、變量命名規(guī)則1.以字母或漢字開頭，后可跟字母、數(shù)字或下劃線組成；2.長度小于等于255個字符；3.不能使用VB中的關(guān)鍵字；4.VB中不區(qū)分變量名的大小寫.例如，mystring、count123、A1、姓名、性別等都是合法的變量名；而2x、a+b、as、if等是不合法的變量名。二.變量聲明在使用變量之前，一般必須先聲明變量名和類型，以便系統(tǒng)為其分配存儲單元。1.用Dim語句顯式聲明變量 （1） 一般格式：Dim變量名AS類型例如

19、： dim a1 as integer聲明整數(shù)型變量 a1 dim a2 as strin聲明字符串變量a2 dim s as Single聲明單精度實(shí)數(shù)變量 s dim ss as Double 聲明雙精度實(shí)數(shù)變量s使用聲明語句聲明變量之后，VB自動對各類型變量進(jìn)行初始化，數(shù)值變量被初始化為0;字符串變量被初始化為一個零長度的符串(” ”)。三、應(yīng)用舉例1、說明下列語句的作用 y=3*xA3+5 a=a+1說明：先計算右邊的值，然后再把計算結(jié)果賦給左邊的變量2、例：計算圓的面積和周長1、設(shè)計界面和運(yùn)行界面，如圖所示。2、代碼：Option ExplicitPrivate Sub Comman

20、d1_Click() Dim pi AsSingle, r As Single, l As Single, s As Single r = Val(tl.Text) pi = 3.14 l = 2 * pi * r s = pi * r a 2 ll.Caption = Str(l) l2.Caption = Str(s) End Sub*注意* val(字符串)：把字符串轉(zhuǎn)換為數(shù)值；str(數(shù)彳1)：把數(shù)值轉(zhuǎn)換為字符串輸入的數(shù)據(jù)是字符型，轉(zhuǎn)換成數(shù)值型才能進(jìn)行計算；標(biāo)簽的Caption屬性是字符型，所以輸時又要把計算結(jié)果轉(zhuǎn)換成字符型。第六講VB編程入門、編寫程序的基本思路1、人腦處理問題的過程

21、以“1+2= ? ”為例第一步：收集信息第二步：處理信息第三步：輸出結(jié)果2、編寫程序解決問題的思路與人腦處理問題的思路相同第一步：數(shù)據(jù)輸入可以通過TextBox（文本框）控件的Text屬性或通過賦值語句輸入數(shù)據(jù)（1）賦值語句用于輸入已知確定的數(shù)據(jù)；Op tion Expli ci tPrivate! Sub Commandl_C11ck() Dim a E Single5 |11. Uapti on = Str (a * a)12. Caption = Str (4 * a)End Sub（2）用TextBox用于輸入暫時不確定或變化的數(shù)據(jù)。VAL函數(shù)）*注意*若輸出變量的類型是數(shù)值型時，要用

22、STR ()函數(shù)轉(zhuǎn)換成字符型。二、VB編寫程序步驟分析問題，確定程序要完成什么任務(wù)，按下面的步驟創(chuàng)建應(yīng)用程序。(1)新建工程。創(chuàng)建一個應(yīng)用程序首先要打開一個新的工程。(2)創(chuàng)建應(yīng)用程序界面。A、版面如何布局B、要用幾個控件C、各控件的“職責(zé)”、擺放位置(3)設(shè)置屬性值。A、名稱屬性B、Cation、TextBox等屬隆的初始值C、字號、字體、顏色、背景色等屬性(4)對象事件過程的編程。A、代碼應(yīng)寫在哪一個控件上，即事件發(fā)生在哪一個控件上B、確定解決問題的思路C、寫代碼(要注意變量的定義)(5)保存文件。(6)程序運(yùn)行與調(diào)試。生成 EXE文件。三、練習(xí)：求函數(shù)y=5xA6+4的值三、作業(yè)：1、已

23、知邊長求正方形的面積與周長。第七講內(nèi)部函數(shù)數(shù)學(xué)上的函數(shù)，是指對一個或多個自變量進(jìn)行特定的計算，獲得一個因變量的值。在VB程序設(shè)計中，擴(kuò)充了函數(shù)的定義，使用起來更為靈活。VB為用戶預(yù)定義了一批內(nèi)部函數(shù)，供用戶隨時調(diào)用。函數(shù)都帶有一個或幾個自變量，稱之為“參數(shù)”。函數(shù)對這些參數(shù)運(yùn)算，返回一個結(jié)果值。函數(shù)的一般調(diào)用格式為：函數(shù)名 ( 參數(shù)表)如：sqr(9) rgb(0,0,0) date()其中，函數(shù)的參數(shù)可以是常量、變量或表達(dá)式。若有多個參數(shù)，參數(shù)之間以逗號分隔。這些函數(shù)按其分類主要有以下幾個類別的函數(shù)：一、轉(zhuǎn)換函數(shù)編號函數(shù)功能例子1Str(n)把數(shù)值n轉(zhuǎn)換為字符串123的結(jié)果為123”2曾心)

24、把字符串s轉(zhuǎn)換先數(shù)值巧的結(jié)果為1233】叫芯)返回小于等于x的最大整數(shù)1皿125,吃的值是1251映115.89)的值是口64Fds(X)返回芯的整數(shù)部分時 力的值是-125、數(shù)值函數(shù)編號函數(shù)功能例子1S淑幻返回x的平方根Sq4)的 1M: 22Abs(x)返回X的絕對值A(chǔ)bs(，4)的值是43RndR切返回一個0-1的隨機(jī)數(shù).Int(99*md+1)能產(chǎn)生口下可問的隨 機(jī)整配4Sin(為正弦函數(shù).笈的單位是瓠.度5111(30*3,14/180)=0 49970.55Cos(x)余弦函數(shù).芯的單位是弧度6Tan(x)正切函數(shù)口 的單位是強(qiáng).度7Atn(x)余切函數(shù)。x的單位是弧度8L阻出返回

25、以e為底的指數(shù)函數(shù)gExp(x)返回七的K次爆10Round(數(shù)值表達(dá)式，保留的小數(shù)倍數(shù))疝 5口2)的鰥 123.57*注意*要產(chǎn)生a,b區(qū)間范圍內(nèi)的隨機(jī)整數(shù)，可以使用公式：int(b-a+1)*rnd+a)。例如：要產(chǎn)生10,100區(qū)間的隨機(jī)整數(shù)，可以使用公式int(91*rnd+10)獲得。三、字符串函數(shù)編號函數(shù)功能例子1取字符串s左邊的n個字符LeftCAB CDE”Z 結(jié)果為“ AB”2Rights 力)取字符串右邊的tl個字符RightfAB CDE”,2)結(jié)果為“ DE73mid(s,p,n)從字符串s的第R個字符開 始取n個字將midCABCDM23)的結(jié)果 為1BCD4Len

26、fs)返回字符串s的長度LenfABCDE”)的結(jié)果為55Ucase(s)把小寫字母轉(zhuǎn)換為大寫字 母Ucas “ab c”)結(jié)果為AB C ”6Lcasefs)把大寫字母轉(zhuǎn)換為小寫字母LcaseC ABC)結(jié)果為abc”7Trimfs)去掉字符串$左右兩邊的 空格Trim： abc 。的結(jié)果為、be”8Ltrim(s)去掉字符率$左邊的空格LtnmC abc)的結(jié)果為abc”gRtrim(s)去掉字符串S右邊的空格RtrimTat) c )的結(jié)果為 & c”10I口皿n,sl,s2)在字符串1中第口個位置 開始查找字符串s2出現(xiàn)的 起始位富I口stifABCDETBC)的結(jié)果為 2四、日期時間

27、函數(shù)號函數(shù)功能例子1now()返回系統(tǒng)日期和時間2date()返回系統(tǒng)日期3time()返回系統(tǒng)時間編號函數(shù)功能例子|1Now返回系統(tǒng)日期和時間2Date返回系統(tǒng)日期3tune返回系統(tǒng)時面五、其他函數(shù)編號功能例子1Rggg,b)設(shè)置顏色R曲（255 口 0）顯示紅色2ShelR路徑,窗口狀態(tài)）運(yùn)行可執(zhí)行程序窗口模式工0：窗口隱藏:h窗口保持Ji來大小;2：窗口最小化；3：窗口最大化常季注意*率h r（七b）函數(shù)中的三個參數(shù)的有效范圍均為：0255.入ShelK路徑,笛口狀態(tài)）函數(shù)的使用方法Shell11 C:WINNTy Mtem3,2winmin 已 exe1 1練習(xí):第八講IF語句(一)在

28、程序設(shè)計中經(jīng)常遇到這類問題，它需要根據(jù)不同的情況采用不同的處理方法。例如，一元二次方程的求根問題，要根據(jù)判別式小于零或大于等于零的情況，采用不同的數(shù)學(xué)表達(dá)式進(jìn)行計算。對于這類問題，如果用順序結(jié)構(gòu)編程，顯然力不從心。必須借助分支結(jié)構(gòu)。一、If語句格式：If條件then語句塊1Else語句塊2End If說明：(1) “條件” 一般為關(guān)系表達(dá)式或邏輯表達(dá)式。通常把關(guān)系表達(dá)式或邏輯表達(dá)式 的值為真時，稱為條件滿足；值為假時，稱為條件不滿足。反之亦然。判斷下列條件是否成立：1、102、1=03、 1=35、 3501、界面設(shè)計：2、屬性設(shè)置:控件屬性設(shè)置Lab ellCaption行李重量Lnbel?

29、Caption應(yīng)付款Tesil名稱T1Tert空Text2名稱T2Test空CoininaiullCaption計算Coimnarul2Caption清空Coinmarul3Caption退出3、代碼：(1) ”計算按鈕的代碼Private Sub Command1_Click()Dim w as single , pay as singlew= Text1.TextIf w 50 Thenpay =(w - 50)* 0.5 + 50 * 0.2Elsepay = w * 0.2End IfText2.Text = payEnd Sub(2) “清空按鈕的代碼Private Sub Comm

30、and2_Click ()Textl.Text =Text2.Text =End Sub(3) 退出按鈕的代碼Private Sub Command3_Click ()EndEnd Sub三、作業(yè)求一元二次方程皿+加+ C=0的根(a不為0)提示：如果 -4加。則輸出“方程無實(shí)數(shù)根”，否則輸出方程兩實(shí)根。-i + yjb2 - Aac x,=2ab - AacF =2cl將x1,x2的值轉(zhuǎn)換成VB表達(dá)式為x1=(-b+sqr(bA2-4*a*c)/(2*a)x2=(-b-sqr(bA2-4*a*c)/(2*a)第九講 Select Case 語句Select Case語句是多分支語句，又稱為情

31、況語句。格式：Select Case測試表達(dá)式Case 表達(dá)式列表1語句塊 1Case 表達(dá)式列表2語句塊 2Case 表達(dá)式列表n語句塊nCase Else 語句塊n+1End Select功能：根據(jù)“測試表達(dá)式”的值，選擇第一個符合條件的語句塊執(zhí)行。Select Case語句的執(zhí)行過程是：先求“測試表達(dá)式”的值，然后順序測試該值符合哪一個Case子句中情況，如果找到了，則執(zhí)行該Case子句下面的語句塊，然后執(zhí)行 End Select下面的語句；如果沒找到，則執(zhí)行 Case曰se下面的語句塊，然后執(zhí)行End Select下面的語句。說明： “測試表達(dá)式”可以是數(shù)值表達(dá)式或字符表達(dá)式；, ,表

32、達(dá)式列表”形式有以下3種：（ 1 ）一個表達(dá)式或用逗號隔開的若干表達(dá)式select case val（t1.text） case 1,3,5L1.caption= ”這是奇數(shù)”case 2,4,6L1.caption= ”這是偶數(shù)”end select（ 2）表達(dá)式1 To 表達(dá)式 2select case t1.textcase 1 to 9L1.caption = ”此數(shù)是在 1 到 10 的范圍內(nèi)” case “ A” to “ Z”L1.caption = ”請輸入數(shù)字” end select （ 3） Is 關(guān)系運(yùn)算符表達(dá)式select case val（t1.text） case

33、is=30L1.caption = ”此數(shù)的范圍大于30”case is=20L1.caption = ”此數(shù)的范圍大于20”case is=10Ll.caption =此數(shù)的范圍大于 10” end select80x90時，輸出“優(yōu)秀”；當(dāng)輸出“良好”；當(dāng) 70Wxv80時，輸出“中”；當(dāng) 60Wxv 70時，輸出“及格” 輸出“不及格”。(1)界面設(shè)計(2)代碼設(shè)計Private Sub Command1_Click () Dim score!score = val(Text1.Text)Select Case scoreCase Is = 90Text2.Text =優(yōu)秀Case Is

34、 = 80Text2.Text =良好Case Is = 70Text2.Text =中Case Is = 60Text2.Text =及格Case ElseText2.Text =不及格 End SelectEnd Sub作業(yè)：求分段函數(shù)的值A(chǔ)2A 0第十講 For 循環(huán)語句在程序中，凡是需要重復(fù)相同或相似的操作步驟，都可以用循環(huán)結(jié)構(gòu)來實(shí)現(xiàn)。例如：計算1+2+3+.+1000 ；計算 1*2*3* *1000 等等。一、結(jié)構(gòu)：For 循環(huán)的一般格式如下：For 循環(huán)變量=初值To 終值 Step 步長 循環(huán)體 Next 循環(huán)變量二、說明：1 格式中各項的說明 循環(huán)變量：亦稱為循環(huán)控制變量，必

35、須為數(shù)值型。 初值、終值：都是數(shù)值型，可以是數(shù)值表達(dá)式。 步長：循環(huán)變量的增量，是一個數(shù)值表達(dá)式。一般來說，其值為正，初值應(yīng)小于終值；若為負(fù)，初值應(yīng)大于終值。但步長不能是0。如果步長是1，Step 1 可略去不寫。 循環(huán)體：在For語句和Next語句之間的語句序列。 Next后面的循環(huán)變量與 For語句中的循環(huán)變量必須相同。2執(zhí)行過程For 循環(huán)語句的執(zhí)行過程如下：(1)系統(tǒng)將初值賦給循環(huán)變量，并自動記下終值和步長。(2)檢查循環(huán)變量的值是否超過終值。如果超過就結(jié)束循環(huán)，執(zhí)行 Next后面的語句；否則，執(zhí) 行一次循環(huán)體。(3)執(zhí)行Next語句，將循環(huán)變量增加一個步長值再賦給循環(huán)變量，轉(zhuǎn)到(2)繼續(xù)執(zhí)行。以上執(zhí)行過程用流程圖描述，如下圖所示。這里所說的“超過”有兩種含義，即大于或小于。當(dāng)步長為正值時，循環(huán)變量大于終值為“超過”；當(dāng)步長為負(fù)值時，循環(huán)變量小于終值為“超過”。我們通過分析下面的程序來進(jìn)一步理解For語句的執(zhí)行過程。For n=1 To 10 Step 3Print n ,Next n具體執(zhí)行情況如下:第幾次循環(huán)屐與圖I比鍍執(zhí)行循環(huán)體否1110執(zhí)行2410執(zhí)行3710停止執(zhí)行上面程序的執(zhí)行結(jié)果為：1 47103.注意事項For語句和Next語句必須成對出現(xiàn)，缺一不可，且 For語句必須在Next語句之前。循環(huán)次數(shù) 由初值、終值和步長