【正文】 se 語句2 條件3 True False ……… ……………………… 條件N True False 語句N 語句N＋1 　　用了過多的Else后你會(huì)感到很不方便，而且程序結(jié)構(gòu)也不清晰，所以大多數(shù)的語言還有Select語句幫助解決這個(gè)問題。VB里的Select語句的格式是這樣的：Select Case 變量名Case 情況1 ……Case 情況2 ……Case 情況3 …… …… ……Case Else ……End Select例如：Select Case a%Case 1 Print “a=Case 2 Print “a=Case Else Print “a does not equal to 1 or 2.”End Select五、循環(huán)語句循環(huán)結(jié)構(gòu)是計(jì)算機(jī)語言里一種重要的結(jié)構(gòu)，它的應(yīng)用廣泛，最簡(jiǎn)單的例子是累加器的作用，還可以用于窮舉法，更直觀的例子是把某件事重復(fù)指定的次數(shù)，這樣就不用把要重復(fù)的語句輸入多次，而通過循環(huán)結(jié)構(gòu)完成，非常方便。C語言里有一個(gè)“for”循環(huán)語句，VB里也有“For”關(guān)鍵字，作用也差不多，只是VB的“For”語句更容易理解。它的格式是：For 循環(huán)變量=初賦值 To 終值 [Step 步長(zhǎng)]…………Next 循環(huán)變量在默認(rèn)情況下，Step被設(shè)為“1”，可以省略，Step也可以設(shè)為負(fù)值，例如：Dim a=For I=1 To 10 a=Next I這是一個(gè)最簡(jiǎn)單的累加器的例子，把1到10累加在一起，然后賦值給“a”這樣的效果和上面是一樣的，只不過是倒著加罷了，請(qǐng)看：Dim a=For I=10 To 1 Step –1a=Next IWhile語句也是一個(gè)很常用的循環(huán)語句，它的形式很多。 Do While …… Loop語句 While …… Wend 語句 Do …… Loop While While后面都跟邏輯條件判斷，“Do While …… Loop語句”和“While …… Wend 語句”作用相似，都是先判斷While后面的條件是否為“真”，如果為“真”則執(zhí)行里面的語句，如果為“假”，則退出循環(huán)，循環(huán)直至條件為“假”終止?！癉o …… Loop While ”與前兩者的區(qū)別在于，它不管條件的真假，都會(huì)先執(zhí)行“Do”后面的語句，也就是說，它至少執(zhí)行語句一次。與While用法相似的還有Until語句，它是直至條件為真則終止循環(huán)，句式把While上述三個(gè)語句的While換成Until即可，但是因?yàn)槿菀子浕?，所以我建議只用While即可。Until 條件可以相當(dāng)于While Not 條件。For循環(huán)和Whlie循環(huán)應(yīng)當(dāng)根據(jù)適當(dāng)?shù)沫h(huán)境使用，它們有時(shí)也可替換。六、運(yùn)算操作1. 數(shù)學(xué)運(yùn)算 ＋：加法運(yùn)算，也適合于字符串的之間的合并運(yùn)算。 －：加法運(yùn)算。 *：乘法運(yùn)算。 /：除法運(yùn)算。 \：整除運(yùn)算。 Mod：求余運(yùn)算。例如：a Mod b表示a被b整除以后的余數(shù)。 ^：冪運(yùn)算。A^B表示以A為底的B次方。 1. 關(guān)系運(yùn)算 關(guān)系運(yùn)算也稱比較運(yùn)算，它表示不等式的真或假，VB共提供六種運(yùn)算符，分別是=2. 邏輯運(yùn)算 邏輯運(yùn)算是對(duì)真或假的運(yùn)算，我將列表說明：　A B Not A非 And與 Or或 Xor異或 Eqv相等 Imp蘊(yùn)含 T T F T T F T T T F F F T T F F F T T F T T F T F F T F F F T T 　T――True F――False七、 數(shù)據(jù)與定義本標(biāo)題的內(nèi)容已經(jīng)在上一章向大家詳述過，在這里就不再重復(fù)。八、函數(shù)與過程 函數(shù)與過程有許多相似的地方，它們之間最大也是最本質(zhì)的區(qū)別就在于，函數(shù)有一個(gè)返回值，而過程只是執(zhí)行一系列動(dòng)作，所以可以簡(jiǎn)單的把函數(shù)理解成為一個(gè)變量，而VB中的每個(gè)事件都是一個(gè)過程，比如Command1_Click()就是一個(gè)過程。因?yàn)樵诔绦蛟O(shè)計(jì)中經(jīng)常會(huì)有重復(fù)的地方，所以把它做成一個(gè)函數(shù)或一個(gè)過程，在使用時(shí)進(jìn)行調(diào)用，可以節(jié)省大量的輸入代碼的時(shí)間，而且使用函數(shù)和過程也便于程序的結(jié)構(gòu)化和修改查看。函數(shù)和過程都可以有參數(shù)，也可以沒有參數(shù)。關(guān)于函數(shù)和過程將在以后的章中配合實(shí)例講解，請(qǐng)您繼續(xù)VB教程。 41第四章　按鈕（一）　　從本章開始我們將正式進(jìn)入VB的編程世界，但這還僅僅是個(gè)開端，要編出功能強(qiáng)大的軟件，還要學(xué)很多東西，那就要看以后的VB高級(jí)教程了，我也得努力學(xué)?。　　“粹o是我們?cè)赪indows操作見到最多的控件，它們有著各種各樣的功能：“確認(rèn)”、“取消”、“下一步”等等，這些都是按鈕的表現(xiàn)，另外還有很多圖形話的按鈕，其實(shí)它們并沒什么不同，所有的按鈕都是通過單擊（click）事件實(shí)現(xiàn)的，只不過是在外表不同罷了。下面就讓我們建立一個(gè)最簡(jiǎn)單的按鈕，雙擊工具箱的CommandButton，將在窗體上建立一個(gè)形如圖4－1的按鈕，它的缺省名（Name屬性）為Command1，我們可以把它改名為cmdExit，把Caption屬性設(shè)為“退出”，然后雙擊，按鈕填寫代碼：Private Sub cmdExit_Click()Unload MeEnd Sub　　按下F5或者工具條上的播放按鈕，運(yùn)行程序。圖4－2當(dāng)你按下退出按鈕的時(shí)候，就會(huì)自動(dòng)退出程序，原因是當(dāng)你單擊按鈕時(shí)激活了它的Click事件，執(zhí)行“Unload Me”語句，使得窗體被卸載。 　　上面舉了一個(gè)比較簡(jiǎn)單的例子，下面的例子稍微復(fù)雜些： 　　新建窗體，控件布局如圖4－3所示，包括一個(gè)List控件，一個(gè)Text控件和兩個(gè)按鈕（Command1和Command2），?。ū容^簡(jiǎn)單的程序我們都采用缺省名），對(duì)它們屬性做如下修改：List1 Caption＝“請(qǐng)輸入你的名字” Text1 Text＝“”（空字符串) Button1 Caption＝“復(fù)原”Enabled＝False Button2 Caption=“清除” 　　把使用Button1的Enabled屬性設(shè)為False（假），是使程序在初始時(shí)，無法單擊Command1。按F5，運(yùn)行程序，圖4－4，復(fù)原按鈕成為灰色，不可選。當(dāng)然現(xiàn)在程序還什么也不能做，下面我們?cè)诔绦蛑刑砑哟a：首先在General里聲明全局變量：Dim StoreString As String 39。用來儲(chǔ)存字符串※注意：為什么用全局變量？VB里每一個(gè)小過程都相當(dāng)于一個(gè)程序，程序里的變量稱為局部變量，是只能在程序內(nèi)部使用的，而當(dāng)程序調(diào)用結(jié)束后，由于從內(nèi)存中被清除，所以變量?jī)?chǔ)存的值也就消失了，這里的全局變量是用來在過程中傳遞字符串。接著填寫以下代碼：Private Sub Command1_Click() = StoreString = FalseEnd Sub　Private Sub Command2_Click()StoreString = = 39。清除 = TrueEnd Sub　　運(yùn)行程序，如圖4－5。按下“清除”，文本框被清除，按下“復(fù)原”，文本有被恢復(fù)，許多程序中的Undo/Redo就是利用這個(gè)原理實(shí)現(xiàn)的，現(xiàn)在知道為什么內(nèi)存越多越好了吧?！　∥覀?cè)诎殉绦蛐薷囊幌?，把Button2刪除，Button1的Enabled屬性改為True，Caption改為“清除”，填寫代碼：Private Sub Command1_Click()If = 清除 ThenStoreString = = 39。清除 = 復(fù)原Else = StoreString = 清除End IfEnd Sub　　同樣可以上面的功能，但是卻少用了一個(gè)控件，控件使用少的程序啟動(dòng)會(huì)快些。 　　下面的例子要更加復(fù)雜些，大家一定都用過Windows附件中的計(jì)算器，它是一個(gè)標(biāo)準(zhǔn)的科學(xué)計(jì)算器，利用VB我們也可以做到，只是沒有那么復(fù)雜，四則運(yùn)算而已。 　　先建立一個(gè)新的項(xiàng)目文件，里面包含一個(gè)Form1的窗體。然后，添加控件，包括一個(gè)Text框（Text1），和17個(gè)按鈕，這17個(gè)按鈕使用的名稱都是Command1，只是Index屬性不同，就好象一個(gè)數(shù)組，創(chuàng)立一組按鈕的方法是，先在窗體上建立一個(gè)按鈕（Command1），然后在Command1上擊鼠標(biāo)右鍵，選擇復(fù)制（Copy），然后在窗體上任意部位擊右鍵，選擇粘貼（Paste），系統(tǒng)會(huì)提示是否創(chuàng)建控件組，選擇“是”，重復(fù)上面步驟，直至創(chuàng)立17個(gè)按鈕為止。各控件屬性如下表：Text1 BackColor＝amp。H00C0FFFFamp。Text＝“0.” Command1 Index 0――16Index 0――9 Caption=Index 10 Caption=Index 11Caption=Index 12 Caption=Index 13 Caption=Index 14 Caption=Index 15 Caption=Index 16 Caption=“清除” 　　如果想改變一些其他的屬性，比如字體，可以自己定義一下Font屬性，如果相對(duì)多個(gè)控件的共同屬性進(jìn)行改變，可以在窗體上按下鼠標(biāo)，拖動(dòng)，把多個(gè)控件一起選定，然后對(duì)它們的共同屬性進(jìn)行修改?！　e看這個(gè)東西小，還費(fèi)了近我兩個(gè)小時(shí)呢，不覺大嘆手生，里面也有些地方很繞彎子，我盡量解釋清楚?！　≡诰帉懗绦蛑?，我們先來回顧一下計(jì)算器的使用。1. 按下數(shù)字鍵在液晶屏上會(huì)出現(xiàn)數(shù)字，這是最基本的功能。 2. 第一次按下運(yùn)算鍵，再按下數(shù)字鍵，將重新輸入第二個(gè)數(shù)字，再次按下運(yùn)算鍵，將算出前兩個(gè)數(shù)的結(jié)果，然后按下數(shù)字鍵，將又重新輸入新的數(shù)字。 3. 輸入數(shù)字后，按下“等于鍵”將仍輸出原來的數(shù)字，輸入運(yùn)算符和第二個(gè)數(shù)字后在按下“等于”，將得到二者的結(jié)果。然后又重復(fù)第二、三步。 4. 按下“清除”，數(shù)據(jù)被全部清除。 　　了解了這些，我們一步一步實(shí)現(xiàn)。 　　先實(shí)現(xiàn)數(shù)據(jù)的輸入，請(qǐng)看代碼。 　　與未創(chuàng)立組的控件相比，它的事件里多了Index參數(shù)，組里所有的對(duì)象都使用同一個(gè)事件?！　∠仍贕eneral里聲明窗體級(jí)全局變量：Dim Num1, Num2 As SingleDim StrNum1, StrNum2 As StringDim FirstNum As Boolean 39。判斷是否是數(shù)字開頭　　因?yàn)門ext1里是存放字符串的，所以要把輸入的數(shù)據(jù)進(jìn)行運(yùn)算，必須把字符型變量轉(zhuǎn)變?yōu)閷?shí)型變量，分別用NumNum2和StrNumStrNum2進(jìn)行存放?！　≡贔orm_Load事件里給變量初賦值：Num1 = 0Num2 = 0StrNum1 = StrNum2 = FirstNum = True　　因?yàn)?7個(gè)按鈕使用的是同一事件，所以我們用一個(gè)Select Case語句區(qū)分各個(gè)按鈕，雙擊任意按鈕輸入代碼：Private Sub Command1_Click(Index As Integer)Select Case IndexCase 0 To 9If FirstNum ThenStrNum1 = Str(Index)’實(shí)型轉(zhuǎn)字符型FirstNum = False’初賦值為假Else’非初賦值StrNum1 = StrNum1 + Str(Index)End If = StrNum1’顯示還有其他語句，等待插入End SelectEnd Sub運(yùn)行程序的話已經(jīng)可以輸入數(shù)據(jù)，下面我們來處理小數(shù)點(diǎn)。在General里聲明新的變量：Dim PointFlag As Boolean 39。判斷是否已有小數(shù)點(diǎn)我們知道小數(shù)點(diǎn)只能輸入一次，一個(gè)數(shù)據(jù)中不能有多個(gè)小數(shù)點(diǎn)存在，所以需要一個(gè)布爾變量做判斷。在Form_Load里進(jìn)行初賦值：PointFlag = False在Command的單擊事件里接著上面輸入新的代碼：Case 10If Not PointFlag Then’如果沒有小數(shù)點(diǎn)If FirstNum Then’如果是第一個(gè)字符StrNum1 = 0.FirstNum = FalseElseStrNum1 = StrNum1 + .End IfElse’已有小數(shù)點(diǎn)Exit Sub’則退出單擊事件End IfPointFlag = True = StrNum1 42第四章　按鈕（二）　　下面會(huì)復(fù)雜一些，我們先跳過等號(hào)，而來處理四則運(yùn)算：先在General里聲明新變量：Dim Runsign As Integer 39。儲(chǔ)存運(yùn)算符號(hào)Dim SignFlag As Boolean 39。判斷是否已有運(yùn)算符號(hào)然后在Form_Load中進(jìn)行初賦值：Runsign = 0SignFlag = False在接下的Command1_Click中繼續(xù)輸入代碼：Case 12 To 15FirstNum = True’使下一次可以輸入新數(shù)據(jù)PointFlag = False39。還原標(biāo)記值If SignFlag Then’前面已有運(yùn)算符未運(yùn)算Call RunElseSignFlag = TrueStrNum2 = StrNum1’把字符串1復(fù)制給字符串2StrNum1 = ’字符串1清空End IfRunsign = Index 11 ‘儲(chǔ)存鍵入的運(yùn)算符