【正文】 ，里面包含一個(gè)Form1的窗體。當(dāng)然現(xiàn)在程序還什么也不能做，下面我們?cè)诔绦蛑刑砑哟a：首先在General里聲明全局變量：Dim StoreString As String 39。因?yàn)樵诔绦蛟O(shè)計(jì)中經(jīng)常會(huì)有重復(fù)的地方，所以把它做成一個(gè)函數(shù)或一個(gè)過(guò)程，在使用時(shí)進(jìn)行調(diào)用，可以節(jié)省大量的輸入代碼的時(shí)間，而且使用函數(shù)和過(guò)程也便于程序的結(jié)構(gòu)化和修改查看。 Mod：求余運(yùn)算。 六、運(yùn)算操作1. 數(shù)學(xué)運(yùn)算 ……End Select例如：Select Case a%Case 1 語(yǔ)句Else三、長(zhǎng)語(yǔ)句的分行 在比較早的版本中，因?yàn)闆](méi)有象C等語(yǔ)言用“；”隔開(kāi)語(yǔ)句與語(yǔ)句，VB的語(yǔ)句是必須寫(xiě)在一行里的，不過(guò)后來(lái)版本的VB里如許用分行符“_”把一個(gè)長(zhǎng)語(yǔ)句分成若干行來(lái)存放。 VB建立了一種新的變量類(lèi)型――貨幣型變量，通過(guò)使用僅帶有二位小數(shù)的貨幣變量，就能避免因使用實(shí)型變量而帶來(lái)的數(shù)值積累誤差問(wèn)題。 運(yùn)算操作 注釋語(yǔ)句 定義數(shù)據(jù)的另一個(gè)原因是，不同的數(shù)據(jù)占用不同的內(nèi)存數(shù)量，譬如整型（Interger）數(shù)據(jù)占2字節(jié)，而長(zhǎng)整型數(shù)據(jù)占4個(gè)字節(jié)，定義合適的數(shù)據(jù)類(lèi)型，不管你相信不相信，它可以節(jié)省內(nèi)存！1. VB常用的數(shù)據(jù)類(lèi)型有：整型（Integer，表示32768至32767之間的整數(shù)）、長(zhǎng)整型（Long，表示2,147,483,648至2,147,483,647之間的整數(shù)）、實(shí)型（Single，++38之間的實(shí)數(shù)）、雙精度實(shí)型（Double，++308之間的實(shí)數(shù)），字符（String，每個(gè)字符占一字節(jié)，可以?xún)?chǔ)存0～65,535個(gè)字符），布爾（Boolean，只有兩個(gè)值True/1，或False/0）。 DropDown事件：下彈事件，僅用于組合框（ComboBox）對(duì)象。 DragDrop事件：拖放事件，相當(dāng)于MouseDown、MouseMove和MouseUp的組合。 注意：Focus英文為“焦點(diǎn)”、“聚焦”之意，最直觀(guān)的例子是，比如有兩個(gè)窗體，互相有一部分遮蓋，當(dāng)你點(diǎn)下面的窗體時(shí)，它就會(huì)全部顯示出來(lái)，這時(shí)它處在被激活的狀態(tài)，并且標(biāo)題條變成藍(lán)色，這就是GotFocus事件，而相反，另外一個(gè)窗體被遮蓋，并且標(biāo)題條變灰，稱(chēng)為L(zhǎng)ostFocus事件。 注意：當(dāng)對(duì)象的AutoDraw屬性為T(mén)rue（－1）時(shí)，程序不會(huì)調(diào)用Paint事件。Microsoft Windows為程序員和最終用戶(hù)提供了一個(gè)共同的人機(jī)界面。編程嗎，在以前如果你對(duì)電腦還是一個(gè)門(mén)外漢，那實(shí)在是一件可望而不可及的事情。不可否認(rèn)微軟對(duì)市場(chǎng)的預(yù)測(cè)能力是極為高明的，而它強(qiáng)大的技術(shù)、財(cái)力支持也使它在許多以前未進(jìn)入的領(lǐng)域，在不長(zhǎng)的時(shí)間內(nèi)有成為最有力的競(jìng)爭(zhēng)對(duì)手，如IE之于瀏覽器領(lǐng)域，《帝國(guó)時(shí)代》之于游戲都是最好的例證。這樣的條件下就要求在Microsoft多任務(wù)環(huán)境下出現(xiàn)一種操作方便，使用簡(jiǎn)單的新工具－－－－Visual Basic由此誕生?！　∫?、事件通過(guò)上一章的例子，你可能對(duì)“面向?qū)ο蟮木幊獭币呀?jīng)有了一定了解，它是由事件驅(qū)動(dòng)的，對(duì)于不同的對(duì)象，所能感應(yīng)到的事件也會(huì)不同，譬如說(shuō)當(dāng)你把鼠標(biāo)移進(jìn)某一區(qū)域時(shí)就會(huì)觸發(fā)MouseMove事件，這很直觀(guān)，也容易理解，但也有些事件比較抽象，下面我來(lái)對(duì)一般的事件進(jìn)行一下解釋。 MouseMove事件：鼠標(biāo)移動(dòng)事件。 最典型的例子是文本框（TextBox）。 　　三、數(shù)據(jù)類(lèi)型 學(xué)過(guò)編程的人都知道大多數(shù)的計(jì)算機(jī)語(yǔ)言都規(guī)定了各自的數(shù)據(jù)類(lèi)型，VB也不例外。 對(duì)于常量的定義用Const定義，如：Const COLOR=。 記錄的定義 記錄定義是把控制權(quán)交給用戶(hù)的方法，它讓用戶(hù)可以定義自己的數(shù)據(jù)類(lèi)型，它使用關(guān)鍵字“Type”，方法是：Type 【數(shù)據(jù)類(lèi)型標(biāo)識(shí)符】域名 As 數(shù)據(jù)類(lèi)型域名 As 數(shù)據(jù)類(lèi)型域名 As 數(shù)據(jù)類(lèi)型…………………………End Type例如，定義一個(gè)地址數(shù)據(jù)：Type AddressStreet As StringZipCode As StringPhone As StringEnd Type這個(gè)地址數(shù)據(jù)里包括三個(gè)屬性，街區(qū)、郵政編碼和電話(huà)，可以把某數(shù)據(jù)定義成此類(lèi)型：Dim MyHome As Address要調(diào)用或改變“MyHome”的值時(shí)，類(lèi)似于對(duì)對(duì)象的屬性的操作：＝“……”為了簡(jiǎn)化書(shū)寫(xiě)重復(fù)的部分,可以用關(guān)鍵字“With”：With MyHome.Street=阜成路”.ZipCode=.Phone=End With 3第三章：VB語(yǔ)言本章提要： VB之所以叫做“Visual Basic”就是因?yàn)樗褂昧薆asic語(yǔ)言作為代碼，所以它們之間有著千絲萬(wàn)縷的關(guān)系，如果學(xué)過(guò)Basic的話(huà)，看到VB的程序結(jié)構(gòu)會(huì)感到很親切。 二、注釋語(yǔ)句 在使用注釋語(yǔ)句之前必須先了解注釋的作用，注釋不僅僅是對(duì)程序的解釋?zhuān)袝r(shí)它對(duì)于程序的調(diào)試也非常有用，譬如說(shuō)可以利用注釋屏蔽一條語(yǔ)句以觀(guān)察變化，發(fā)現(xiàn)問(wèn)題和錯(cuò)誤。 語(yǔ)句Else ……它的格式是：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”這樣的效果和上面是一樣的，只不過(guò)是倒著加罷了，請(qǐng)看：Dim a=For I=10 To 1 Step –1a=Next IWhile語(yǔ)句也是一個(gè)很常用的循環(huán)語(yǔ)句，它的形式很多。與While用法相似的還有Until語(yǔ)句，它是直至條件為真則終止循環(huán)，句式把While上述三個(gè)語(yǔ)句的While換成Until即可，但是因?yàn)槿菀子浕?，所以我建議只用While即可。 \：整除運(yùn)算。A^B表示以A為底的B次方。圖4－2當(dāng)你按下退出按鈕的時(shí)候，就會(huì)自動(dòng)退出程序，原因是當(dāng)你單擊按鈕時(shí)激活了它的Click事件，執(zhí)行“Unload Me”語(yǔ)句，使得窗體被卸載?！　∥覀?cè)诎殉绦蛐薷囊幌?，把Button2刪除，Button1的Enabled屬性改為T(mén)rue，Caption改為“清除”，填寫(xiě)代碼：Private Sub Command1_Click()If = 清除 ThenStoreString = = 39?！　e看這個(gè)東西小，還費(fèi)了近我兩個(gè)小時(shí)呢，不覺(jué)大嘆手生，里面也有些地方很繞彎子，我盡量解釋清楚。 　　先實(shí)現(xiàn)數(shù)據(jù)的輸入，請(qǐng)看代碼。儲(chǔ)存運(yùn)算符號(hào)Dim SignFlag As Boolean 39。儲(chǔ)存運(yùn)算符號(hào)Dim SignFlag As Boolean 39。ME，如圖4－11，在M的下面有一條下劃線(xiàn)，運(yùn)行程序，當(dāng)你按下Alt+M的時(shí)候就觸發(fā)了Command1_Click事件：Private Sub Command1_Click()MsgBox Click ME 按鈕被按下, vbDefaultButton1, 提示End Sub據(jù)我所知，有許多用戶(hù)有使用快捷鍵的習(xí)慣，注意細(xì)節(jié)上的問(wèn)題能夠使將來(lái)你的程序得到更多人的欣賞，不是嗎？ 5第五章　菜單　　我們經(jīng)常在Windows操作里遇到各種各樣的菜單，菜單的操作把各種命令結(jié)構(gòu)化、分分類(lèi)化，也節(jié)省了命令所占的空間，從作用上來(lái)講，菜單類(lèi)似于按鈕，但它只有一個(gè)事件――Click。小知識(shí)：VB一共如許建立6級(jí)子菜單，如圖5－3，盡量不要建立這樣的菜單，要知道藏在越深處的菜單項(xiàng)越難以被人發(fā)現(xiàn)，一個(gè)友好的程序界面應(yīng)該讓用戶(hù)馬上找到需要的命令。結(jié)果如圖5－5。Title――字符串表達(dá)式，顯示標(biāo)題欄里的文本。這時(shí)，無(wú)論你按下OK還是Cancel都是沒(méi)有區(qū)別的，因?yàn)槲覀儾](méi)有對(duì)輸入數(shù)據(jù)進(jìn)行處理，下面我們完成一個(gè)更加復(fù)雜些的程序。 ！Case 1Unload MeEnd SelectEnd Sub按下F5運(yùn)行程序，你會(huì)看到這樣的結(jié)果。　　下面我們完成一個(gè)有趣的小程序，是我以前遇到過(guò)的一個(gè)程序，我對(duì)其進(jìn)行了部分修改。 Label2 Caption 你必須在30字之內(nèi)完成你理由的申訴，否則將受到罰款！BackColor amp。Visible False Picture3 Autosize TrueBackColor amp。用Asc（）函數(shù)，在括號(hào)內(nèi)放入一個(gè)ASC字符或字符串，它會(huì)把第一個(gè)ASC碼轉(zhuǎn)化為0－255的數(shù)值，而把一個(gè)漢字放入，它的值必然不在0－255，這也就可以作為判定漢字的基礎(chǔ)。 個(gè)字可以說(shuō)End IfCase 20 To 29If Level = 2 ThenRandomNum = Rnd * 10If RandomNum = 10 And RandomNum 9 Then = False = 很抱歉這是個(gè)誤會(huì)…… = True = 您可以離開(kāi)了End IfLevel = 3Else = False = False = TrueStr1 = 我已經(jīng)不耐煩了！ = Str1 amp。Chr(數(shù)值型)　　該數(shù)值范圍從0－255，返回字符型，如Chr(65)可返回字符“A”，這樣可以輸入一些用鍵盤(pán)無(wú)法輸入的字符。如果要在一個(gè)窗體內(nèi)放置多組無(wú)線(xiàn)鈕必須用Frame控件把它們區(qū)分開(kāi)來(lái)。如果字符為空格pasteword = pasteword + *Else: pasteword = pasteword + Mid(tempword, charindex, 1)End IfNextaddstar = pasteword 39?！　∨c無(wú)線(xiàn)鈕相對(duì)的是檢查框，在同一范圍內(nèi)一組無(wú)線(xiàn)鈕只能有一個(gè)被選中，而檢查框則可以有多個(gè)選擇，就象在添表時(shí)，性別那項(xiàng)只能有一個(gè)選擇，而在描述你以前的職業(yè)時(shí)可以有學(xué)生、程序員、家庭教師或者什么，總之有很多選擇，下面我們舉一個(gè)簡(jiǎn)單的例子加以說(shuō)明。滾動(dòng)條有幾個(gè)特殊的屬性：Value屬性，當(dāng)滑塊挪動(dòng)后停在某一位置時(shí)，就改變了滾動(dòng)條的Value屬性。小知識(shí)：現(xiàn)在你可以根據(jù)你的顯卡的顯存來(lái)計(jì)算一下顯卡在24位真彩下可以以多大的分辨率顯示，計(jì)算是這樣的，用顯存的字節(jié)數(shù)247。ListIndex屬性，表示列表框或復(fù)合列表框的第幾項(xiàng)條目。Private Sub Form_Load()With List1。MultiSelect屬性，0表示不能多選，1表示簡(jiǎn)單多選，2表示寬展多選，僅限于列表框。3＝13651024。Max和Min也可設(shè)為負(fù)值。新建一個(gè)項(xiàng)目文件，窗體布局如圖6－10。Private Sub Text1_GotFocus() 39?！　〕绦虼绑w如圖6－8，由于窗體比較簡(jiǎn)單，無(wú)需修改更多的屬性，一共有三個(gè)文本框（Text1到3），分別用來(lái)顯示輸入字符，顯示把空格換成星號(hào)的字符，和經(jīng)過(guò)處理的字符，還有三個(gè)無(wú)線(xiàn)鈕（Option1到3），要修改的只有Caption屬性，分別是“刪除左邊的空格”、“刪除右邊的空格”和“刪除兩邊的空格”。與之向?qū)?yīng)的是Val(數(shù)值型)，它把數(shù)值型轉(zhuǎn)換為字符型。 Str(30 StrLength) amp。 第六章第二部分 62第六章　輸入（二）　　下面我們來(lái)看看代碼：在General 里聲明窗體級(jí)變量：Dim Level As Integer　Private Sub Command1_Click()Unload MeEnd Sub　Private Sub Text1_Change()Dim StrLength As Integer’字符串長(zhǎng)度Dim RandomNum As Single’隨機(jī)數(shù)Dim Str1 As StringDim a As StringDim i, TempStrLength = 0’每次開(kāi)始時(shí)把字符串長(zhǎng)度還原為0a = For i = 1 To Len(a)’Len(a)代表字符串的長(zhǎng)度Temp = Asc(Mid$(a, i, 1))’挨個(gè)取字符If Temp 255 Or Temp 0 Then’不是ASC碼StrLength = StrLength + 2ElseStrLength = StrLength + 1End IfNext i　StrLength = StrLength / 2Select Case StrLengthCase 0 To 9 = True = False = False = 慢慢說(shuō)。Visible False Command1 Visible False 　　　　三個(gè)圖片框Picture1－3的Picture屬性分別為綠燈，黃燈和紅燈，這些圖標(biāo)在VB目錄下的Graphics\Icons\Traffic下（VB5），或是VB目錄下的Icons\Traffic下（VBVB3），你還可以為L(zhǎng)abel1在Font屬性里選一個(gè)合適的字體和字重。ForeColor amp。J 　　這個(gè)程序比原來(lái)的英文程序有了幾點(diǎn)不同，第一，由于用到的是雙字節(jié)中文的中文，所以對(duì)于檢測(cè)中文字符和英文有很大不同，第二，原來(lái)的英文程序不管你說(shuō)多少，警察依然是依法從事，本例中給了犯規(guī)者10%的免罰機(jī)會(huì)（有點(diǎn)無(wú)聊……L ，不過(guò)也是為了學(xué)一些東東嘛）。是不是有種受騙的感覺(jué)，啊喲喲，可不是我的錯(cuò)，就是這么容易嘛！　　從剛才的例子里，我們接觸了一些VB中的輸入方法，其實(shí)數(shù)據(jù)輸入不僅僅局限于向Text框中輸入數(shù)據(jù)，數(shù)據(jù)的輸入還有許多其他的方法，譬如前面的Check1也是向程序發(fā)出一定的信息，只要是通過(guò)操作向計(jì)算機(jī)發(fā)布命令就可以叫做輸入，下面我們來(lái)一一介紹?！　”纠谐霈F(xiàn)了一個(gè)Frame1控件，它是一種框架，可以用來(lái)把窗體分成好幾個(gè)部分，首先應(yīng)該在窗體上畫(huà)出Frame1