VB二級等級考試強(qiáng)化班

上海市高等學(xué)校計(jì)算機(jī)等級考試（二級）《VisualBasic程序設(shè)計(jì)》考試大綱

(2012年修訂)考試時間：10月31日目前一頁\總數(shù)八十四頁\編于十七點(diǎn)二、考試目標(biāo)通過該課程的學(xué)習(xí)，應(yīng)能了解程序設(shè)計(jì)語言的基本知識、面向?qū)ο蟮幕靖拍?，掌握程序設(shè)計(jì)的基本方法與思路，其中包括數(shù)據(jù)類型、基本語句、模塊化程序設(shè)計(jì)、常用算法、界面設(shè)計(jì)等，并能綜合應(yīng)用這些知識解決簡單實(shí)際問題?！禫isualBasic程序設(shè)計(jì)》的考試目標(biāo)是測試考生掌握VB基本知識的程度和綜合運(yùn)用VB進(jìn)行程序設(shè)計(jì)。目前二頁\總數(shù)八十四頁\編于十七點(diǎn)三、考試細(xì)則

考試方法為基于網(wǎng)絡(luò)環(huán)境的無紙化上機(jī)考試。時間為120分鐘，試卷總分為100分。試卷由單選題、程序填空題、程序調(diào)試題和綜合編程題四部分組成。使用上海市高校計(jì)算機(jī)等級考試客戶端程序登錄到服務(wù)器，按要求將操作結(jié)果存放在本地計(jì)算機(jī)的指定目錄，并上傳到服務(wù)器，否則考試無效?？荚囬喚聿捎脵C(jī)器和人工相結(jié)合的網(wǎng)上閱卷方式。目前三頁\總數(shù)八十四頁\編于十七點(diǎn)四、試卷參考樣式

目前四頁\總數(shù)八十四頁\編于十七點(diǎn)第一章

VisualBasic程序設(shè)計(jì)概述目前五頁\總數(shù)八十四頁\編于十七點(diǎn)3、創(chuàng)建、打開和保存工程1．創(chuàng)建工程第一步，點(diǎn)擊任務(wù)欄上的【開始】→【程序】→【MicrosoftVisualBasic6.0中文版】→【MicrosoftVisualBasic6.0中文版】，啟動VisualBasic6.0應(yīng)用程序。第二步，在“新建工程”選項(xiàng)卡中選擇“標(biāo)準(zhǔn)EXE”（如圖1-15所示），點(diǎn)擊“確定”，則新建了一個工程，默認(rèn)的名稱為“工程1”。2．打開工程對已有的工程可以使用以下兩種方式打開：找到工程文件并雙擊。啟動VisualBasic6.0后，在彈出的菜單中點(diǎn)擊“取消”。點(diǎn)擊菜單欄上的【文件】→【打開工程】，定位文件所在的路徑，選擇要打開的工程文件圖標(biāo)，點(diǎn)擊“打開”，便可打開一個工程。3．保存工程點(diǎn)擊菜單欄上的【文件】→【保存工程】，如果是新建的工程會彈出“文件另存為”對話框。首先要保存的是窗體文件，后綴名為“frm”，選擇要保存的文件路徑，并給窗體文件命名，默認(rèn)文件名為“Form1”，也可以自定義名稱，點(diǎn)擊“保存”。然后保存工程，后綴名為“vbp”，選擇要保存的文件路徑，并給工程文件命名，默認(rèn)文件名為“工程1”，也可以自定義名稱，點(diǎn)擊“保存”。目前六頁\總數(shù)八十四頁\編于十七點(diǎn)四、添加、刪除和保存窗體、工程1．添加窗體右鍵單擊工程資源管理器窗口中的工程名（如圖1-21所示），在彈出的快捷菜單中點(diǎn)擊【添加】→【添加窗體】。在彈出的對話框中選擇所要添加的窗體的類型（如圖1-22所示），點(diǎn)擊“打開”，添加了一個空白窗體。2．刪除窗體右鍵單擊工程資源管理器窗口中的窗體程名，在彈出的快捷菜單中點(diǎn)擊“移除form1”。3．保存窗體在工程資源管理器窗口中，單擊要保存的窗體名稱，點(diǎn)擊菜單欄上的【文件】→【保存form1】。4．保存工程在工程資源管理器窗口中，單擊要保存的工程名稱，點(diǎn)擊菜單欄上的【文件】→【保存工程】。目前七頁\總數(shù)八十四頁\編于十七點(diǎn)第二章

建立簡單的VB應(yīng)用程序目前八頁\總數(shù)八十四頁\編于十七點(diǎn)對象的屬性、事件和方法一.對象屬性屬性是反應(yīng)對象的特征，也就是說屬性中存放著對象的數(shù)據(jù)。對象常見的屬性有名稱（Name）、標(biāo)題（Caption）、字體（FontName）等?？梢栽趯傩源翱诳梢栽O(shè)置屬性，步驟為：1.選擇要設(shè)置屬性的對象2.激活屬性窗口3.選擇屬性名稱4.設(shè)置屬性值設(shè)置屬性值的方式有三種：(1)直接輸入新值某些屬性如Caption、Text需要由用戶輸入。如設(shè)置標(biāo)簽對象的Caption值(2)選擇輸入某些屬性的值是VB預(yù)先設(shè)好的只能從其中進(jìn)行選擇，如DrawStyle、FillStyle等，這些取值可能只有兩種、幾種，這樣的屬性只能在下拉列表中選擇。(3)利用對話框設(shè)置某些屬性如Picture、Font等，在設(shè)置框的右端會顯示省略號按鈕，單擊這個按鈕會彈出相應(yīng)的對話框用來設(shè)置對象屬性。如圖2-4所示設(shè)置字體屬性。目前九頁\總數(shù)八十四頁\編于十七點(diǎn)二.對象事件

事件是VB預(yù)先設(shè)置好的，可以被對象識別的動作，不同的對象能夠識別的事件不一樣。在對象上發(fā)生了事件后，應(yīng)用程序就要處理這個事件，這樣一段應(yīng)用程序代碼叫做事件過程（EventProcedure）。VB程序設(shè)計(jì)的工作就是編寫事件過程中的代碼。事件過程的形式如下：PrivateSub對象名_事件（）…對象程序代碼…EndSub“對象名”是指對象屬性中的Name屬性值，“事件”是VB預(yù)先設(shè)置好的，在建立對象后，VB能自動確定與該對象相匹配的事件，并可顯示出來提供給用戶選擇。例如，單擊Picture1圖形框，打印出“歡迎使用VB！”字樣，則對應(yīng)的事件過程為：PrivateSubPicture1_Click()Picture1.Print"歡迎使用VB！"EndSub【注意】用戶在對一個對象發(fā)出動作時，可能會對該對象激發(fā)多個事件，如用戶執(zhí)行了單擊動作，會同時觸發(fā)Click、MouseDown事件。這時只要去編寫自己需要的事件如Click，沒有代碼的空事件系統(tǒng)不會執(zhí)行。目前十頁\總數(shù)八十四頁\編于十七點(diǎn)三.對象方法在面向?qū)ο蟮某绦蛟O(shè)計(jì)語言中，為程序設(shè)計(jì)人員提供了一種特殊的函數(shù)和過程，我們稱之為方法（Method）。VB將這些通用的過程和函數(shù)已經(jīng)編寫好代碼并將其封裝，讓用戶作為方法直接調(diào)用，這樣避免了用戶重復(fù)編寫大量代碼。和屬性及事件一樣，方法是特定對象的一部分，其調(diào)用格式為：對象名.方法[參數(shù)名表]若省略對象名，則表示為當(dāng)前對象，一般指窗體本身。如：Picture1.Print"HelloVB6.0"此語句使用Print方法在Picture1圖形框上打印“HelloVB6.0”，如果語句為：Print"HelloVB6.0"在窗體上打印“HelloVB6.0”。目前十一頁\總數(shù)八十四頁\編于十七點(diǎn)2.2編寫簡單的VB程序使用VB開發(fā)應(yīng)用程序需要以下幾步驟：1．建立可視化用戶界面2．設(shè)置對象屬性3．編寫代碼4．保存工程5．調(diào)試應(yīng)用程序，排除錯誤6．創(chuàng)建可執(zhí)行程序目前十二頁\總數(shù)八十四頁\編于十七點(diǎn)2.3.1窗體創(chuàng)建VB應(yīng)用程序的第一步是創(chuàng)建用戶界面。用戶界面的基礎(chǔ)是窗體，各種控件對象必須建立在窗體上。啟動VB后，即在屏幕上顯示一個窗體。2.3窗體及基本的內(nèi)部控件窗體控制菜單框窗體控制菜單框窗體控制菜單框標(biāo)題欄最小化按鈕最大化按鈕關(guān)閉按鈕目前十三頁\總數(shù)八十四頁\編于十七點(diǎn)窗體的屬性決定了窗體的外觀和操作。窗體的大部分屬性可用兩種方法來設(shè)置：通過屬性窗口設(shè)置和通過程序代碼設(shè)置。有少量的屬性不能在程序代碼中設(shè)置。（1）Appearance屬性該屬性決定窗體的外觀效果，屬性值為0為平面效果，屬性值為1為立體效果。（2）Caption屬性用于設(shè)置窗體標(biāo)題欄顯示的內(nèi)容，它的值為字符串。系統(tǒng)默認(rèn)的Caption值為Form1。（3）Icon屬性用于設(shè)置當(dāng)窗體最小化時以該圖標(biāo)顯示，如果不設(shè)置則以VB默認(rèn)圖標(biāo)顯示。設(shè)置方法為，單擊Icon屬性設(shè)置右邊的“”，打開“加載圖標(biāo)”對話框，選擇圖標(biāo)文件裝入。（4）ControlBox屬性當(dāng)其值為True時左上角有控制菜單，當(dāng)為False時為無控制菜單框。

（5）MaxButton屬性和MinButton屬性

MaxButton屬性為True，窗體右上角有最大化按鈕；為False時，無最大化按鈕。 MinButton屬性為True，窗體右上角有最小化按鈕；為False時，無最小化按鈕。 設(shè)置窗體的初始高度和寬度。其單位為Twip。1Twip=1/20點(diǎn)=1/1440英寸=1/567cm。（一）窗體的主要屬性目前十四頁\總數(shù)八十四頁\編于十七點(diǎn)

（6）BorderStyle屬性

決定窗體邊框式樣及窗體是否能調(diào)整大小。（7）BackColor屬性和ForeColor屬性

BackColor屬性設(shè)置窗體的背景顏色，F(xiàn)orColor屬性設(shè)置窗體的前景顏色。窗體的前景顏色是執(zhí)行Print方法時所顯示文本的顏色。（8）Height屬性和Width屬性

（9）Left屬性和Top屬性

用于設(shè)置窗體左邊框距屏幕左邊界的距離和窗體頂邊距屏幕頂端的距離。其單位為Twip。（10）Name（名稱）屬性

設(shè)置窗體的名稱，在程序代碼中用這個名稱引用該窗體。新建工程時，窗體的名稱缺省為Form1；添加第二個窗體，其名稱缺省為Form2，依次類推。為了便于識別，用戶通常給Name屬性設(shè)置一個有實(shí)際意義的名稱。目前十五頁\總數(shù)八十四頁\編于十七點(diǎn)

（11）Enabled屬性

屬性值為True或False，設(shè)置對象是否能夠?qū)τ脩舢a(chǎn)生的事件做出反應(yīng)。一般在程序中設(shè)置，用于臨時屏蔽對窗體或其它控件的的控制。

（12）Moveable屬性

屬性值為True或False，設(shè)置是否可以移動窗體。

（13）Visible屬性

屬性值為True或False，設(shè)置窗體是否被顯示。用戶可用該屬性在程序代碼中控制窗體的隱現(xiàn)。

（14）Picture屬性

設(shè)置在窗體中顯示的圖片。單擊Picture屬性右邊的按鈕，彈出“加載圖片”對話框，用戶可選擇一個圖片文件作為窗體的背景圖片。若在程序中設(shè)置該屬性的值，需要使用LoadPicture函數(shù)。

（15）WindowState屬性

設(shè)置窗體啟動后的大小狀態(tài)。 在VB中，雖然不同的對象有不同的屬性集合，但有一些屬性，如Name、Enabled、Visible、Height、Width、Left、Top等，其它控件也有，且具有相似的作用。在后續(xù)的章節(jié)中，主要介紹各種控件常用的特殊屬性。目前十六頁\總數(shù)八十四頁\編于十七點(diǎn)2.3.5圖形框（PictureBox）和圖像框（Image）一．圖形框在圖形框中加載圖片的方法有兩種：方法一：在設(shè)計(jì)界面設(shè)置其Picture屬性。步驟為：1.選中設(shè)計(jì)界面的圖形框控件對象；2.在其屬性窗口中選擇Picture屬性；3.單擊設(shè)置框右方的“”按鈕，在彈出的加載圖片窗口中選擇需要添加的圖片。方法二：在代碼窗口可以使用LoadPicture（）函數(shù)裝入圖片，則在程序運(yùn)行時會自動將圖片加載進(jìn)來。其格式為：

圖形框?qū)ο竺?Picture＝LoadPicture（”圖形文件名”）卸載圖片的方法也有兩種：方法一：在設(shè)計(jì)界面將其Picture屬性清空方法二：在代碼窗口可以使用LoadPicture（）函數(shù)卸載，格式為：

圖形框?qū)ο竺?Picture＝LoadPicture（””）

PictureBox的Autosize屬性為True時，圖形框能自動調(diào)整大小與顯示的圖片匹配，但是，如果圖片的大小超過圖形框所在的窗體，則只能顯示部分圖片，因?yàn)榇绑w本身無法自動調(diào)整大小。Autosize值為False，則圖形框不能自動改變大小來適應(yīng)其中的圖片。PictureBox也可以作為其它控件的容器。這些控件會隨著PictureBox的移動而移動。目前十七頁\總數(shù)八十四頁\編于十七點(diǎn)第三章

VB程序設(shè)計(jì)基礎(chǔ)

目前十八頁\總數(shù)八十四頁\編于十七點(diǎn)3.1數(shù)據(jù)類型

在VB中，允許使用的有如下幾種數(shù)據(jù)類型：

1.數(shù)值數(shù)據(jù)類型

（1）Integer和Long型

Integer型占2個字節(jié)（即共16位），表示整數(shù)的范圍為-215~215-1，即-32768~32767。

Long型占4個字節(jié)（即共32位），表示整數(shù)的范圍為-231~231-1，即2147483648~2147483647。

（2）Single和Double型

Single型占4個字節(jié)，精度為7位，表示的正數(shù)范圍為1.401298E-45~3.402823E38，負(fù)數(shù)范圍為-3.402823E38~-1.401298E-45。

Double型占8個字節(jié)，精度為16位，表示的正數(shù)范圍為4.94065645841247E-324~

1.79769313486232E308，負(fù)數(shù)范圍為-1.79769313486232E308~-4.94065645841247E-324。Single和Double型用于保存帶小數(shù)的數(shù)字。

（3）Currency型

占8個字節(jié)，能表示數(shù)的范圍為-922337203685477.5808~922337203685477.5807。

（4）Byte型

用于表示并存儲二進(jìn)制數(shù)據(jù)。占1個字節(jié)，能表示0~255的整數(shù)范圍。目前十九頁\總數(shù)八十四頁\編于十七點(diǎn)2．邏輯數(shù)據(jù)類型邏輯（Boolean）類型用于表示只有兩種相反取值的數(shù)據(jù)，適合于邏輯判斷的情況，它只有True與False兩個值。3．字符數(shù)據(jù)類型字符（String）類型用于表示由多個字符組成的字符串。字符可以包括所有的西文字符和漢字，字符兩側(cè)用英文輸入方式中的雙引號括起。4.日期數(shù)據(jù)類型日期（Date）型數(shù)據(jù)用于表示日期和時間，它可以接受多種表示形式的日期和時間。表示的日期范圍從公元100年1月1日到9999年12月31日，時間范圍為0：00：00~23：59：59。賦值時用兩個“#”符號把表示日期和時間的值括起來。5．變體數(shù)據(jù)類型變體（Variant）數(shù)據(jù)類型能夠存儲所有系統(tǒng)定義類型的數(shù)據(jù)，如果把它們賦予Variant類型，則不必在這些數(shù)據(jù)的類型間進(jìn)行轉(zhuǎn)換，VB會自動根據(jù)上下文的需要完成任何必要的轉(zhuǎn)換。6.對象數(shù)據(jù)類型對象（Object）類型可用來引用應(yīng)用程序中或某些其他應(yīng)用程序中的對象。

目前二十頁\總數(shù)八十四頁\編于十七點(diǎn)3.2常量和變量3.2.1常量和變量的命名規(guī)則在VB6.0中，必須按如下規(guī)則命名一個常量或變量：（1）不能使用VB中的關(guān)鍵字。（2）首字符必須是字母或漢字，其余字符可以為字母、漢字、數(shù)字或下劃線，長度不超過255個字符。例如下面列舉的這些變量名是正確的：Inta、a、醫(yī)德、師_9、y8。而下面列舉的這些變量名是不正確的：Sub‘是VB中的關(guān)鍵字255x‘不允許以數(shù)字開頭_xy‘不允許以下劃線開頭x-y‘不允許出現(xiàn)減號a&b‘不允許出現(xiàn)符號&xingming‘不允許出現(xiàn)空格目前二十一頁\總數(shù)八十四頁\編于十七點(diǎn)3.2.3變量

在VB中，用變量來表示程序運(yùn)行過程中其值可發(fā)生變化的量。變量名來表示其中存儲的數(shù)據(jù)，變量類型表示其中存儲的數(shù)據(jù)的具體類型。因此每個變量必須有一個唯一的變量名字和相應(yīng)的數(shù)據(jù)類型。1、聲明變量（1）隱式聲明在VB中使用一個變量時，可以不加任何聲明而直接使用，叫做隱式聲明。（2）顯式聲明顯式聲明是指每個變量必須事先做聲明，才能夠正常使用。聲明變量語法格式如下：

聲明方式變量名[As數(shù)據(jù)類型名]

或聲明方式變量名[類型符]目前二十二頁\總數(shù)八十四頁\編于十七點(diǎn)3.3運(yùn)算符和表達(dá)式3.3.1運(yùn)算符1、數(shù)學(xué)運(yùn)算符設(shè)Inta為整型變量，其值為5，下表為數(shù)學(xué)運(yùn)算符及其運(yùn)算法則，其運(yùn)算優(yōu)先級別分別為由高到低。目前二十三頁\總數(shù)八十四頁\編于十七點(diǎn)2.字符串運(yùn)算符目前二十四頁\總數(shù)八十四頁\編于十七點(diǎn)3.關(guān)系運(yùn)算符對于關(guān)系運(yùn)算符：（1）如果兩個操作數(shù)是數(shù)值型，則按其大小比較；如果一個是數(shù)值型，另一個是數(shù)字字符型，則系統(tǒng)會先將數(shù)字字符型轉(zhuǎn)換成數(shù)值型再進(jìn)行數(shù)值大小比較；如果一個是數(shù)值型，另一個是非數(shù)字字符型，則系統(tǒng)出錯。（2）如果兩個操作數(shù)是字符型，則按字符的ASCII碼值從左到右一一比較。目前二十五頁\總數(shù)八十四頁\編于十七點(diǎn)4.邏輯運(yùn)算符邏輯運(yùn)算符用于判斷操作數(shù)之間的邏輯關(guān)系，結(jié)果是邏輯值True或False。左表列出了VB中的邏輯運(yùn)算符及其運(yùn)算法則，其運(yùn)算優(yōu)先級別分別為由高到低。

目前二十六頁\總數(shù)八十四頁\編于十七點(diǎn)例：用人單位招聘秘書：年齡小于40歲的女性，學(xué)歷?？苹虮究?，年齡<40，性別=“女”，(學(xué)歷=“?？啤?，學(xué)歷=“本科”)

And

And

Or比a小，比b大用Ora小數(shù)b大數(shù)a小數(shù)b大數(shù)比a大，比b小用And例：表示算術(shù)表達(dá)式：正確的VB表達(dá)式：3〈=xAndx<=7錯誤的VB表達(dá)式：3<=x<=7或3<=xOrx<=7考慮：若分別寫成：年齡<40And性別="女"And(學(xué)歷="?？?And學(xué)歷="本科")年齡<40Or性別="女"Or(學(xué)歷="專科"Or學(xué)歷="本科")目前二十七頁\總數(shù)八十四頁\編于十七點(diǎn)3.5常用內(nèi)部函數(shù)1.數(shù)學(xué)函數(shù)Rnd函數(shù)返回0和1（包括0但不包括1）之間的雙精度隨機(jī)數(shù)。每次運(yùn)行時，要產(chǎn)生不同序列的隨機(jī)數(shù)，執(zhí)行Randomize語句。

產(chǎn)生隨機(jī)整數(shù)的通式：Int(Rnd*范圍+基數(shù))例產(chǎn)生1~100的隨機(jī)數(shù)：Int(Rnd*100)+12.轉(zhuǎn)換函數(shù)

Chr(66)"B" Asc("B")66Asc(Chr(99))99Chr(Asc("K"))"K"Ucase$("abcdefg")"ABCDEFG"目前二十八頁\總數(shù)八十四頁\編于十七點(diǎn)4.字符串函數(shù)Mid$("ABCDEFG",2,3)"BCD"InStr(2,"ABCDEFG","EF") 5

Replace("ABCDABCD","CD","123") “AB123AB123”目前二十九頁\總數(shù)八十四頁\編于十七點(diǎn)

控制結(jié)構(gòu)

目前三十頁\總數(shù)八十四頁\編于十七點(diǎn)3.1順序控制結(jié)構(gòu)

順序結(jié)構(gòu)就是各語句按出現(xiàn)的先后次序執(zhí)行。一般的程序設(shè)計(jì)語言中，順序結(jié)構(gòu)的語句主要是賦值語句、輸入/輸出語句等。在VB中也有賦值語句，而輸入/輸出可以通過文本框、print方法等實(shí)現(xiàn)，也可以通過系統(tǒng)提供的函數(shù)和過程來實(shí)現(xiàn)。3.1.1賦值語句賦值語句的一般形式如下：

變量名=表達(dá)式

對象.屬性=表達(dá)式程序執(zhí)行時，先計(jì)算右邊表達(dá)式的值，然后將值賦給左邊的變量或?qū)傩浴?/p>

例如：X=100

‘把數(shù)值賦給變量X；Text1.Text="VB歡迎你"

‘把字符串賦給Text1的Text屬性Label1.Caption=Date（）

‘把Date函數(shù)的結(jié)果賦給Label1的Caption屬性Label1.Top=Label1.Top-100

‘把表達(dá)式的值賦給Label1的Top屬性

在賦值語句中，賦值運(yùn)算符"="代表賦值操作，而不代表等量關(guān)系。

目前三十一頁\總數(shù)八十四頁\編于十七點(diǎn)3.1.2人機(jī)交互函數(shù)和過程Vb程序與用戶之間的直接交互可以通過InputBox()函數(shù)、MsgBox()函數(shù)和Msg過程進(jìn)行。1.InputBox（）函數(shù)InputBox（）函數(shù)可以產(chǎn)生一個對話框，這個對話框作為輸入數(shù)據(jù)的界面,等待用戶輸入數(shù)據(jù)，當(dāng)用戶單擊“確定“按鈕或回車時，函數(shù)返回輸入的值，類型為字符型。函數(shù)格式如下：

變量$＝InputBox（Prompt[,Title][,Default][,XPos][,YPose]）目前三十二頁\總數(shù)八十四頁\編于十七點(diǎn)2.MsgBox（）函數(shù)和MsgBox過程MsgBox（）函數(shù)可以產(chǎn)生一個消息框，等待用戶選擇按鈕，當(dāng)用戶單擊某個按鈕時，函數(shù)返回按鈕的值，類型為整型。函數(shù)格式如下：變量％＝MsgBox（Prompt[,Type][,Title]）目前三十三頁\總數(shù)八十四頁\編于十七點(diǎn)3.2選擇結(jié)構(gòu)3.2.1IF條件語句1.IF……Then語句（單分支結(jié)構(gòu)）語句形式：(1)IF<表達(dá)式>Then語句塊EndIF(2)IF<表達(dá)式>Then語句塊表達(dá)式語句塊FT單分支結(jié)構(gòu)流程示意圖其中：表達(dá)式：一般為關(guān)系表達(dá)式、邏輯表達(dá)式，也可以為算術(shù)表達(dá)式。表達(dá)式的值按非零為True，零為False進(jìn)行處理。語句塊：可以是一條或多條語句。如果采用形式（2）表示則語句之間要用冒號分隔，并且一定寫在同一行上。目前三十四頁\總數(shù)八十四頁\編于十七點(diǎn)例3-3已知兩個變量x和y，比較它們的大小，使x中的值大于y。（要實(shí)現(xiàn)兩個變量中的數(shù)互相交換通常以使用第三變量為過渡，在此為t）語句如下：IFx<yThent=x‘將變量x中的值暫時存放于變量t中x=y‘用變量y中的值替代變量x中的值y=t‘再將原變量x中的值替代變量y中的值EndIF或者IFx<yThent=x:x=y:y=t目前三十五頁\總數(shù)八十四頁\編于十七點(diǎn)3.2.2SelectCase語句SelectCase語句是多分支結(jié)構(gòu)的又一種表示形式，又稱情況語句。語句形式：

SelectCase變量或表達(dá)式Case表達(dá)式列表1<語句塊1>Case表達(dá)式列表2<語句塊2>……[CaseElse<語句塊n＋1>]EndSelect說明：變量或表達(dá)式：為數(shù)值型或字符型表達(dá)式（1）表達(dá)式（2）一組用逗號分隔的枚舉值（3）表達(dá)式1To表達(dá)式2（4）Is關(guān)系運(yùn)算符表達(dá)式F表達(dá)式列表1語句塊1表達(dá)式列表2語句塊2表達(dá)式列表n語句塊n…..語句塊n＋1TTTSelect語句流程示意圖FF…..目前三十六頁\總數(shù)八十四頁\編于十七點(diǎn)3.3循環(huán)結(jié)構(gòu)3.3.1For循環(huán)語句For循環(huán)語句是計(jì)數(shù)型循環(huán)語句，用于控制循環(huán)次數(shù)預(yù)知的循環(huán)結(jié)構(gòu)。語句形式：

For循環(huán)變量＝初值To終值[Step步長]

Next循環(huán)變量說明：循環(huán)變量必須是數(shù)值型步長：一般為正數(shù)，初值小于終值；若為負(fù)數(shù)，初值大于終值；Step缺省時默認(rèn)為1。語句塊：重復(fù)執(zhí)行的部分，構(gòu)成循環(huán)體，可以是一句或多句。ExitFor：退出循環(huán)，執(zhí)行Next后的下一條語句。循環(huán)次數(shù)：n＝Int（+1）<語句塊>[ExitFor]<語句塊>循環(huán)體終值－初值

步長TF循環(huán)變量＝初值循環(huán)變量≤終值語句塊有ExitFor語句塊循環(huán)變量＝循環(huán)變量＋步長FT步長>0時For循環(huán)語句流程示意圖目前三十七頁\總數(shù)八十四頁\編于十七點(diǎn)例3-8求100以內(nèi)所有數(shù)的和。程序塊如下：Sum＝0‘sum為累加和變量，設(shè)初值為0Fori＝1To100Sum＝Sum＋iNextI又如：求10的階乘。T＝1‘T為連乘積的變量，設(shè)初值為1Fori＝1To10T＝T*iNexti目前三十八頁\總數(shù)八十四頁\編于十七點(diǎn)3.3.2Do…Loop循環(huán)語句

Do循環(huán)用于控制循環(huán)次數(shù)未知的循環(huán)結(jié)構(gòu)。語句形式：(1)Do[{While|Until}<條件>]<語句塊>[ExitDo]<語句塊>Loop（2）Do<語句塊>[ExitDo]<語句塊>Loop[{While|Until}<條件>

]TFF表達(dá)式列表語句塊有ExitDo語句塊DoWhile…Loop循環(huán)流程圖TFT表達(dá)式列表語句塊ExitDo語句塊TDo…LoopWhile流程示意圖目前三十九頁\總數(shù)八十四頁\編于十七點(diǎn)例：求自然對數(shù)e的近似值，n由文本框輸入，近似公式如下：e=1+1/1!+1/2!+1/3!+…+1/n！目前四十頁\總數(shù)八十四頁\編于十七點(diǎn)PrivateSubCommand1_Click()Dimi%,m%,nAsDouble,eeAsSingleee=1n=1m=Val(Text1.Text)Fori=1Tomn=n*iee=ee+1/nNextiLabel3.Caption=eeEndSub目前四十一頁\總數(shù)八十四頁\編于十七點(diǎn)第四章

VB中的數(shù)組

目前四十二頁\總數(shù)八十四頁\編于十七點(diǎn)4.2靜態(tài)數(shù)組

4.2.1一維數(shù)組的聲明和引用1．靜態(tài)一維數(shù)組的聲明格式：

Dim數(shù)組名（下標(biāo)）[As類型]2．一維數(shù)組元素的引用引用一維數(shù)組元素的格式：

數(shù)組名（下標(biāo)）

引用數(shù)組元素時，下標(biāo)可以為整型常量、變量或表達(dá)式例如：a(1)=1:a(i)=x+y:a(i+1)=t目前四十三頁\總數(shù)八十四頁\編于十七點(diǎn)4.2.2使用一維數(shù)組1．一維數(shù)組的賦值（1）對數(shù)組中的元素逐個賦值例如：Dimarr(5)AsIntegerarr(0)=5:arr(1)=4:arr(2)=-2:arr(3)=1:arr(4)=-8:arr(5)=6一般來說，如果各個數(shù)組元素的值彼此之間毫無規(guī)律可尋，則可以采用逐個賦值的方法，顯然這種方法在進(jìn)行大量數(shù)據(jù)的處理時決非上乘之選。（2）使用循環(huán)語句對數(shù)組元素賦值例如：Fori=0to5arr(i)=Int(Rnd*90)+10Nexti如果各個數(shù)組元素的值彼此之間是有規(guī)律可尋的，則可以采用循環(huán)語句來實(shí)現(xiàn)其賦值操作。（3）使用Array函數(shù)Array函數(shù)：給Variant類型的變量賦值，同時確定數(shù)組大小。使用格式：Array（參數(shù)列表）例如：DimarrAsVariantarr=Array(1，3，6，9，11)目前四十四頁\總數(shù)八十四頁\編于十七點(diǎn)2．一維數(shù)組的輸出對于一維數(shù)組的輸出，基本上都是使用一個單循環(huán)語句來達(dá)到目的：Fori=0to5Printarr(i)NextI例:隨機(jī)產(chǎn)生50個0～100之間的整數(shù)。例:隨機(jī)產(chǎn)生10個大寫字母保存在數(shù)組中,并在標(biāo)簽上顯示目前四十五頁\總數(shù)八十四頁\編于十七點(diǎn)PrivateSubCommand1_Click()Dima(9)AsString,sAsStringDimiAsInteger,jAsIntegerLabel1.Caption="隨機(jī)產(chǎn)生的字母為:"&vbCrLfFori=0To9a(i)=Chr(Rnd*26+65)Label1.Caption=Label1.Caption&a(i)&","NextiEndSub目前四十六頁\總數(shù)八十四頁\編于十七點(diǎn)4.3.1動態(tài)數(shù)組的聲明

聲明動態(tài)數(shù)組通常分為兩步：第一，使用Dim、語句聲明一個沒有下標(biāo)的數(shù)組，即括號內(nèi)為空的數(shù)組，但是括號不能省略；第二，在過程中使用ReDim語句指定該數(shù)組的大小，其作用是為數(shù)組分配實(shí)際存儲空間。Redim語句的格式：

ReDim數(shù)組名（下標(biāo)1[，下標(biāo)2…]）[As類型]其中下標(biāo)可以是常量，也可以是有了確定值的變量，類型可以省略，若不省略，必須與Dim中的聲明語句保持一致。例如：Dimd（）AsSingleSubForm_Load（）……ReDimd（4，6）……EndSub目前四十七頁\總數(shù)八十四頁\編于十七點(diǎn)4.3.2與動態(tài)數(shù)組操作相關(guān)的函數(shù)

1.Array函數(shù)：給Variant類型的動態(tài)數(shù)組賦值，同時確定數(shù)組大小使用格式：Array（參數(shù)列表）說明：（1）用Array函數(shù)給動態(tài)數(shù)組賦值后，該數(shù)組被確定為一維數(shù)組，其下標(biāo)下界由OptionBasen語句決定，下標(biāo)上界由參數(shù)個數(shù)決定。（2）用Array函數(shù)也可給Variant類型的變量賦值，此時該變量也表示一個Variant類型的動態(tài)數(shù)組。例如：Dima()AsVariant,bAsVarianta=Array(1,”abc”,3)b=Array(5,6)a=Array(9,8,7,6)：重新改變數(shù)組a的元素個數(shù)ReDimPreservea(2),b(1To5)：改變數(shù)組a、b的大小，并保留原來的數(shù)據(jù)。2.Lbound()函數(shù)和Ubound()函數(shù)Lbound()函數(shù)和Ubound()函數(shù)幫助用戶確定數(shù)組每一維下標(biāo)的變化范圍，Lbound()函數(shù)返回?cái)?shù)組的下界，Ubound()函數(shù)返回?cái)?shù)組上界。使用格式：Lbound（數(shù)組名，n）和Ubound（數(shù)組名，n）說明：n表示第幾維，默認(rèn)為1（第一維），即省略參數(shù)n時，默認(rèn)數(shù)組為一維數(shù)組。例如：輸出動態(tài)一維數(shù)組a中的各元素Fori=Lbound(a)ToUbound(a)Printa(i)Nexti目前四十八頁\總數(shù)八十四頁\編于十七點(diǎn)常用算法

數(shù)組排序（選擇法）

對已知存放在數(shù)組中的n個數(shù)，用選擇法按遞增順序排序。(1)從n個數(shù)的序列中選出最小的數(shù)(遞增)，與第1個數(shù)交換位置；(2)除第1個數(shù)外，其余n-1個數(shù)再按(1)的方法選出次小的數(shù)，與第2個數(shù)交換位置；(3)重復(fù)(1)n-1遍，最后構(gòu)成遞增序列。

Fori=1Ton-1 iMin=i Forj=i+1TonIfiA(j)<iA(iMin)TheniMin=jNextjt=iA(i):iA(i)=iA(iMin):iA(iMin)=tNextI目前四十九頁\總數(shù)八十四頁\編于十七點(diǎn)程序功能是：隨機(jī)產(chǎn)生10個小寫字母保存在數(shù)組中,并在標(biāo)簽上顯示。用選擇排序法將數(shù)組中的字母按降序排列,并顯示在標(biāo)簽上。目前五十頁\總數(shù)八十四頁\編于十七點(diǎn)PrivateSubCommand1_Click()Dima(9)AsString,sAsString

DimiAsInteger,jAsInteger,maxiAsInteger

Label1.Caption="原來的字符序列為:"&vbCrLfFori=0To9a(i)=___(1)______Label1.Caption=Label1.Caption&a(i)&","

NextiFori=0To8maxi=___(2)_______Forj=i+1To9Ifa(j)>a(maxi)Then_______(3)_________Nextjs=a(maxi)a(maxi)=a(i)______(4)_________NextiLabel1.Caption=Label1.Caption&vbCrLf&"按降序排序輸出為:"&vbCrLfFori=0To9Label1.Caption=Label1.Caption&a(i)&","NextiEndSubchr(Int(97+Rnd()*26))imaxi=ja(i)=s目前五十一頁\總數(shù)八十四頁\編于十七點(diǎn)數(shù)組排序（冒泡法）

冒泡法排序在每一輪排序時只要將第一個與其他幾個比較，只要次序不對，就交換，出了內(nèi)循環(huán)，最小數(shù)已冒出。排序進(jìn)行的過程見下表。

Fori=1Ton-1'進(jìn)行n-1輪比較Forj=i+1Ton'從n~i個元素進(jìn)行兩兩比較IfiA(j)<iA(i)Then'若次序不對，則馬上進(jìn)行交換位置t=iA(j):iA(j)=iA(i):iA(i)=tEndIfNextj '出了內(nèi)循環(huán)，一輪排序結(jié)束，最小數(shù)已冒到最上面Nexti目前五十二頁\總數(shù)八十四頁\編于十七點(diǎn)程序功能是：隨機(jī)產(chǎn)生10個大寫字母保存在數(shù)組中,并在標(biāo)簽上顯示。用冒泡排序法將數(shù)組中的字母按升序排列,并顯示在標(biāo)簽上。目前五十三頁\總數(shù)八十四頁\編于十七點(diǎn)PrivateSubCommand1_Click()Dima(9)AsString,sAsString

DimiAsInteger,jAsInteger

Label1.Caption="原來的字符序列為:"&vbCrLfFori=0To9a(i)=Chr(65+___(1)______)Label1.Caption=Label1.Caption&a(i)&","NextiFori=0To___(2)____Forj=9Toi+1Step-1Ifa(j-1)____(3)_______Thens=a(j-1)____(4)________=a(j)a(j)=sEndIfNextjNextiLabel1.Caption=Label1.Caption&vbCrLf&"按升序排序輸出為:"&vbCrLfFori=0To9Label1.Caption=Label1.Caption&a(i)&","NextiEndSuba(j-1)>a(j)a(j-1)Chr(Rnd*26+65)

8目前五十四頁\總數(shù)八十四頁\編于十七點(diǎn)數(shù)組元素的插入與刪除(1)插入在有序數(shù)組a(1ton)(原有n-1個元素)插入一個值Key元素，算法：查找要插入的位置k（1<=k<=n-1）騰出位置，把最后一個元素開始到第k個元素往后移動一個位置第k個元素的位置騰出，就可將數(shù)據(jù)Key插入(2)刪除

要找到欲刪除的元素的位置k；然后從k+1到n個位置開始向前移動；最后將數(shù)組元素減1。目前五十五頁\總數(shù)八十四頁\編于十七點(diǎn)例：已知數(shù)組，在文本框中輸入要插入到數(shù)組中的一個數(shù)字，最后將整個數(shù)組元素輸出。目前五十六頁\總數(shù)八十四頁\編于十七點(diǎn)PrivateSubCommand1_Click()Dima(),i%,k%,b%a=Array(1,4,7,10,13,16,19,22,25)n=UBound(a)Fori=0TonPrinta(i);Nextib=Val(Text1.Text)Fork=1TonIfb<a(k)ThenExitForNextkReDimPreservea(n+1)Fori=nTokStep-1a(i+1)=a(i)Nextia(k)=bPrintFori=LBound(a)ToUBound(a)Printa(i);NextiEndSub目前五十七頁\總數(shù)八十四頁\編于十七點(diǎn)第6章

過程

目前五十八頁\總數(shù)八十四頁\編于十七點(diǎn)函數(shù)過程形式：

Function函數(shù)過程名([參數(shù)列表])[As類型]

局部變量或常數(shù)定義語句塊函數(shù)名=返回值函數(shù)過程體[ExitFunction]語句塊

函數(shù)名=返回值

EndFunction2.調(diào)用函數(shù)過程

函數(shù)過程調(diào)用同標(biāo)準(zhǔn)函數(shù)調(diào)用，形式：函數(shù)過程名([參數(shù)列表])

參數(shù)列表：稱為實(shí)參或?qū)嵲仨毰c形參個數(shù)相同，位置與類型一一對應(yīng)。可以是同類型的常量、變量、表達(dá)式。目前五十九頁\總數(shù)八十四頁\編于十七點(diǎn)6.3子過程6.3.1子過程的定義：子過程定義

Sub子過程名[(參數(shù)列表)]

局部變量或常數(shù)定義 語句

[ExitSub]

語句

EndSub調(diào)用子過程調(diào)用Sub過程有兩種方法：子過程的調(diào)用

子過程名

[參數(shù)列表]

或

Call子過程名(參數(shù)列表)當(dāng)使用Call語法時，參數(shù)必須在括號內(nèi)。若省略Call關(guān)鍵字，則也必須省略參數(shù)兩邊的括號。目前六十頁\總數(shù)八十四頁\編于十七點(diǎn)6.5參數(shù)傳遞1.傳址與傳值

傳址：

形參得到的是實(shí)參的地址，當(dāng)形參值的改變同時也改變實(shí)參的值。

傳值：

形參得到的是實(shí)參的值，形參值的改變不會影響實(shí)參的值。用ByVal關(guān)鍵字指出參數(shù)是按值來傳遞的。兩個變量的交換。SubSwap1(ByValx%,ByValy%)t%=x:x=y:y=tEndSubSubSwap2(x%,y%)t%=x:x=y:y=tEndSubPrivateSubCommand1_Click()a%=10:b%=20:Swap1a,b'傳值Print"A1=";a,"B1=";ba=10:b=20:Swap2a,b'傳址Print"A2=";a,"B2=";bEndSub目前六十一頁\總數(shù)八十四頁\編于十七點(diǎn)自定義函數(shù)Myf(m)，該函數(shù)通過函數(shù)名Myf獲得m階乘的結(jié)果。主調(diào)程序在文本框中輸入n的值，要求n不小于5，否則顯示出錯信息，并清空文本框的內(nèi)容待重新輸入；調(diào)用Myf函數(shù)過程，計(jì)算并顯示1/1!+1/3!+...+1/i!的值，i為不超過n的最大奇數(shù),并在Label2顯示結(jié)果，界面如下圖。目前六十二頁\總數(shù)八十四頁\編于十七點(diǎn)FunctionMyf(ByValmAsInteger)AsSingleDimiAsInteger,tAsSingle_____(1)_______Fori=1Tomt=t*iNexti____(2)________=tEndFunctiont=1Myf目前六十三頁\總數(shù)八十四頁\編于十七點(diǎn)PrivateSubCommand1_Click()Dimn%,i%,s!n=Val(Text1.Text)Ifn<5ThenMsgBox("數(shù)據(jù)不符合要求，重新輸入")Text1.Text=""Text1.SetFocusElseLabel2.Caption=""IfnMod2=0Thenn=____(3)______s=0Fori=1TonStep2s=s+____(4)________Label2.Caption=Label2.Caption&"1/"&i&"!"Ifi<nThenLabel2.Caption=Label2.Caption&"+"NextiLabel2.Caption=Label2.Caption&"="&sEndIfEndSubn-11/Myf(i)目前六十四頁\總數(shù)八十四頁\編于十七點(diǎn)第七章

常用控件

目前六十五頁\總數(shù)八十四頁\編于十七點(diǎn)7.3列表框和組合框列表框（ListBox）通過顯示多個選項(xiàng)供用戶選擇，達(dá)到與用戶對話的目的。如果有較多的選項(xiàng)而不能一次全部顯示時，VB會自動加上滾動條。列表框的最主要的特點(diǎn)是用戶只能從其中選擇而不能直接修改選項(xiàng)內(nèi)容。組合框（ComboBox）是組合了文本框和列表框的特性而形成的一種控件。組合框在列表框中列出可供用戶選擇的選項(xiàng)，當(dāng)用戶選定某項(xiàng)后，該項(xiàng)內(nèi)容自動裝入文本框中。組合框有三種組合風(fēng)格，即下拉式組合框、簡單組合框和下拉式列表框，由其Style屬性值決定，他們的Style屬性值分別為0，1，2。

列表框組合框目前六十六頁\總數(shù)八十四頁\編于十七點(diǎn)7.3.1列表框和組合框共有的重要屬性①List屬性該屬性是一個字符型數(shù)組，存放列表框或組合框的選項(xiàng)內(nèi)容。數(shù)組的下標(biāo)是從0開始的，即第一個項(xiàng)目的下標(biāo)是0。例如上例中List1.List（0）的值是“生理學(xué)”，List1.List（2）的值是“藥理學(xué)”。List屬性可以在設(shè)計(jì)狀態(tài)設(shè)置也可以在程序中設(shè)置或引用。②ListIndex屬性該屬性是整型，表示程序運(yùn)行時被選定的選項(xiàng)的序號。例如，如果選定“中藥學(xué)”，則該屬性值為3。如果沒有選任何選項(xiàng)則該屬性值為－1。該屬性只能在程序中設(shè)置或引用。③ListCount屬性該屬性值類型為整型，表示列表框或組合框中項(xiàng)目的數(shù)量。ListCount－1表示最后一項(xiàng)的序號。該屬性只能在程序中設(shè)置或引用。④Sorted屬性該屬性值類型為邏輯型，決定在程序運(yùn)行期間列表框或組合框的選項(xiàng)是否按字母順序排列顯示。如果Sorted值為True則項(xiàng)目按字母順序排列顯示，如果為False，則選項(xiàng)按加入的先后順序排列顯示。該屬性只能在程序中設(shè)置或引用。⑤Text屬性該屬型值類型為字符型，表示被選定的選項(xiàng)的文本內(nèi)容。如上例中，“生理學(xué)”被選定，因此List1.Text的值為“生理學(xué)”。Text屬性為默認(rèn)屬性，只能在程序中設(shè)置或引用。目前六十七頁\總數(shù)八十四頁\編于十七點(diǎn)7.4時鐘控件時鐘控件（Timer）可以實(shí)現(xiàn)有規(guī)律地以一定的時間間隔激發(fā)計(jì)時器事件（Timer）而執(zhí)行相應(yīng)的程序代碼。7.4.1重要屬性Interval屬性單位：ms(0.001s)，0.5秒是500。Interval＝0：屏蔽計(jì)時器。Enabled屬性True：有效計(jì)時False：停止時鐘工作7.4.2事件時鐘控件只有一個事件，即Timer事件。時鐘目前六十八頁\總數(shù)八十四頁\編于十七點(diǎn)7.5滾動條滾動條（ScrollBar）控件通常用來附在窗體上協(xié)助觀察數(shù)據(jù)或確定位置，也可以作為數(shù)據(jù)輸入的工具。滾動條有水平和垂直兩種，如圖所示。7.5.1重要屬性Max屬性：該屬性表示當(dāng)滑塊處于最大位置時所代表的值（－32767～32767）。Min屬性：該屬性表示當(dāng)滑塊處于最小位置時所代表的值（－32767～32767）。SmallChange屬性：該屬性表示用戶單擊滾動條兩端箭頭時，滑塊移動的增量值。LargeChange屬性：該屬性表示用戶單擊滾動條的空白處滑塊移動的增量值。Value屬性：該屬性表示滑塊所處位置所代表的值。7.5.2事件滾動條有兩個重要的事件是Scroll和Chang。用戶拖動滑塊時觸發(fā)Scoll事件，而當(dāng)Value值改變時會觸發(fā)Chang事件。目前六十九頁\總數(shù)八十四頁\編于十七點(diǎn)第8章

用戶界面設(shè)計(jì)

目前七十頁\總數(shù)八十四頁\編于十七點(diǎn)8.1菜單設(shè)計(jì)

菜單界面是現(xiàn)在絕大多數(shù)應(yīng)用程序的用戶界面，許多簡單的應(yīng)用程序只由一個窗體和幾個控件組成，但是通過增加菜單可以增強(qiáng)VisualBasic應(yīng)用程序的功能。這一節(jié)將介紹如何在應(yīng)用程序中創(chuàng)建菜單和使用菜單。菜單的組成元素有：菜單欄，菜單名，菜單項(xiàng)，子菜單名，快捷鍵，熱鍵和子菜單標(biāo)記，如圖所示。菜單欄8.1菜單設(shè)計(jì)菜單欄菜單項(xiàng)動態(tài)菜單項(xiàng)子菜單項(xiàng)分隔條快捷鍵熱鍵目前七十一頁\總數(shù)八十四頁\編于十七點(diǎn)8.1.1用菜單編輯器創(chuàng)建菜單

用菜單編輯器可以創(chuàng)建新的菜單和菜單欄、在已有的菜單上增加新命令、用自己的命令來替換已有的菜單命令以及修改和刪除已有的菜單和菜單欄。從“工具”菜單上，選取“菜單編輯器”。這就會打開菜單編輯器，如圖所示。目前七十二頁\總數(shù)八十四頁\編于十七點(diǎn)8.2通用對話框?qū)ο笸ㄓ脤υ捒驅(qū)ο笤试S在程序中顯示五種標(biāo)準(zhǔn)對話框。通用對話框?qū)ο筇峁┑奈鍌€通用對話框可以通過設(shè)置其Action屬性或調(diào)用方法而獲得。程序中獲得對話框的屬性值及方法如下表所示：目前七十三頁\總數(shù)八十四頁\編于十七點(diǎn)第九章

多窗體和多文檔界面

目前七十四頁\總數(shù)八十四頁\編于十七點(diǎn)9.1多窗體界面(1)Show方法：顯示一個窗體（當(dāng)窗體沒有Load，自動Load） [窗體名稱].Show[模式] 0－Modal：關(guān)閉才能對其他窗體進(jìn)行操作。 1－Modeless，可以對其他窗體進(jìn)行操作。 (2)Hide方法：隱藏窗體，沒有Unload刪除 [窗體名稱.]Hide目前七十五頁\總數(shù)八十四頁\編于十七點(diǎn)第十章

文件

目前七十六頁\總數(shù)八十四頁\編于十七點(diǎn)10.2順序訪問模式順序文件的寫入步驟：打開、寫入、關(guān)閉；

讀出步驟：打開、讀出、關(guān)閉。一．打開文件打開文件的命令是Open，格式為：

Open“文件名”For模式

As[#]文件號[Len=記錄長度]說明：1）文件名可以是字符串常量也可以是字符串變量2）模式可以是下面之一：