第四章 批量數(shù)據(jù)的處理

第四章批量數(shù)據(jù)的處理主講：佟彪遼寧省交通高等?？茖W(xué)校測繪系批量數(shù)據(jù)的處理4.1循環(huán)結(jié)構(gòu)4.2數(shù)組4.3過程4.4高級界面設(shè)計4.5批量數(shù)據(jù)的輸入和輸出*4.6應(yīng)用舉例循環(huán)結(jié)構(gòu)利用循環(huán)結(jié)構(gòu)可以實習(xí)語句的重復(fù)執(zhí)行VB提供了計數(shù)型循環(huán)和條件型循環(huán)For循環(huán)語句屬于計數(shù)型循環(huán)Do循環(huán)和While循環(huán)屬于條件型循環(huán)For循環(huán)語句（計數(shù)型循環(huán)語句）For循環(huán)用于實現(xiàn)循環(huán)次數(shù)已知的循環(huán)結(jié)構(gòu)For循環(huán)的格式如下：

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

[循環(huán)體]

[ExitFor]

[循環(huán)體]

Next循環(huán)變量關(guān)鍵詞：循環(huán)變量、初始值、終值、步長、循環(huán)體、ExitFor、Next循環(huán)變量For循環(huán)語句應(yīng)用舉例例4.1：求1～100的所有整數(shù)之和。例4.1的進一步深入：求1～100的所有奇數(shù)之和。例4.1的變化：求1～100的所有整數(shù)之積。例4.3：求Pi的近似值，其計算公式為：練習(xí)：用寫出求下式的前一百項結(jié)果的VB代碼For循環(huán)語句應(yīng)用舉例（續(xù)一）例4.4：房屋貸款的年利率是4.81%，如果一次性貸款15萬元，15年后歸還，則歸還時，應(yīng)償還的本息總額是多少？例4.4的深入：若貸款分15年歸還，每年歸還本金相同，那么累計還款金額是多少？For循環(huán)應(yīng)用：打印ASCII碼表ASCII碼是計算機常用的字符編碼例4.2：打印ASCII碼表的程序碼表中：32以前的是非打印字符

32對應(yīng)的是空格

0～9對應(yīng)的ASCII碼范圍是48～57

大寫字母對應(yīng)的ASCII碼范圍是65～90

小寫字母對應(yīng)的ASCII碼范圍是97～122For循環(huán)應(yīng)用：猴子吃桃小猴子在一天摘了若干個桃子，當(dāng)天吃掉了一半多一個；第二天接著吃了剩下的桃子的一半多一個；以后每天都吃掉剩余桃子的一半多一個，到第8天早上要吃的時候，只剩下一個桃子了，問：小猴子那天共摘了多少個桃子？分析：設(shè)第n天的桃子數(shù)為，那么它是前一天桃子數(shù)的二分之一減一，即：

或For循環(huán)應(yīng)用：素數(shù)判斷素數(shù)，也稱質(zhì)數(shù)，指一個大于1且只能被1和自身整除的正整數(shù)。

判別某數(shù)m是否為素數(shù)的方法很多，最簡單的方法是根據(jù)素數(shù)的定義來求解，其算法思路是：

用分別去除m，判斷m能否被i整除，只要有一個能整除，m就不是素數(shù)，否則m是素數(shù)。

作業(yè)（思考題，下次課提問）用For循環(huán)語句實現(xiàn)如下計算：

（1）求1～1000的所有偶數(shù)之和；

（2）求1～1000的所有被3除余1的數(shù)之積；

（3）求

（4）求菲波那乞數(shù)列的第100項。

菲波那乞數(shù)列：1，1，2，3，5，8，13While循環(huán)（條件型循環(huán)）While條件

[循環(huán)體]

Wend條件：一般為條件表達式，值為True或False條件在循環(huán)體內(nèi)應(yīng)有所變動，否則造成不循環(huán)或“死循環(huán)”；沒有循環(huán)體的循環(huán)稱“空循環(huán)”While循環(huán)舉例使用While循環(huán)語句實現(xiàn)沒有重復(fù)的學(xué)號抽取使用While循環(huán)語句改寫連加的例子使用While循環(huán)語句改寫連乘的例子使用While循環(huán)語句改寫素數(shù)判斷程序Do循環(huán)（條件型循環(huán)）先判斷型Do循環(huán)語句：

Do[While或Until條件]

[語句體]

[Exit‘滿足某條件時]

[語句體]

Loop后判斷型Do循環(huán)語句：

Do

[語句體]

[Exit‘滿足某條件時]

[語句體]

Loop[While或Until條件]Do循環(huán)舉例使用Do循環(huán)語句改寫連加的例子使用Do循環(huán)語句改寫連乘的例子沒有條件的Do語句（使用Exit語句結(jié)束）使用Do循環(huán)語句實現(xiàn)沒有重復(fù)的學(xué)號抽取循環(huán)的嵌套在一個循環(huán)體內(nèi)又包含了一個完整循環(huán)的循環(huán)結(jié)構(gòu)稱為循環(huán)的嵌套。注意：內(nèi)外循環(huán)變量不能重名；內(nèi)外循環(huán)不能交叉。允許：兩個并列的循環(huán)；正確的嵌套循環(huán)嵌套的舉例例4.5：打印九九乘法表例4.6：百元找零（窮舉法舉例）應(yīng)用舉例4.5.1：打印五角星打印五角星應(yīng)用舉例4.5.1：打印如下列各圖所示的五角星打印九九乘法表例4.5：在窗體上打印出如下圖所示的九九乘法表百元找零（窮舉法舉例）把一張一百元的人民幣，兌換成40張1元、2元或5元的零錢，編程計算可以有多少種兌換方法。

分析：設(shè)1元、2元、5元的零幣分別為x、y、z張，根據(jù)題目要求，列出方程為

三個未知數(shù)，只有兩個個方程，因此解不確定，可以有如下兩種方法求解：

三重循環(huán)，都是從0到40；

三重循環(huán)，內(nèi)循環(huán)利用外循環(huán)的條件。作業(yè)1.For循環(huán)語句的循環(huán)次數(shù)應(yīng)如何計算?2.For循環(huán)與Do循環(huán)有何區(qū)別？哪種循環(huán)至少循環(huán)一次？什么叫“死循環(huán)”？什么叫“空循環(huán)”？

3.簡述For循環(huán)語句執(zhí)行的過程。4.簡述While循環(huán)語句執(zhí)行的過程。5.簡述Do循環(huán)語句執(zhí)行的過程。第六次上機總結(jié)1.求sinx的值：遞推的使用以及防止溢出；2.打印九九乘法表：重點。3.百元買百雞問題：兩個條件；循環(huán)次數(shù)4.打印五角星：分號的使用；打印起始位置的控制；打印行數(shù)的控制；五角星個數(shù)的控制。數(shù)組數(shù)組可以用來處理同一性質(zhì)的成批數(shù)據(jù)固定數(shù)組動態(tài)數(shù)組控件數(shù)組引例：求15個觀測值的均值方差例4.8：求15個觀測值的均值和方差。

均值：

中誤差：求15個觀測值的均值方差：代碼不用數(shù)組的寫法算術(shù)平均值和中誤差（不用數(shù)組）使用數(shù)組的寫法

算術(shù)平均值和中誤差（用數(shù)組）固定數(shù)組數(shù)組的聲明：數(shù)組的基本操作：

（1）給數(shù)組元素賦初值；

（2）數(shù)組的輸入和賦值；

（3）數(shù)組的輸出；

（4）求數(shù)組最大元素所在的下標(biāo)；

（5）交換數(shù)組中各元素；

（6）數(shù)組元素排序；

（7）求數(shù)組各元素之和；

（8）求二維數(shù)組行和、列和、對角線和固定數(shù)組的聲明一維數(shù)組：

Dim數(shù)組名(下標(biāo))[As類型]

其中：數(shù)組名的命名規(guī)則與變量命名規(guī)則相同；下標(biāo)必須為常數(shù)（要使用變量或者表達式，需用動態(tài)數(shù)組）；下標(biāo)的形式為[下界to]上界，省略下界時，默認(rèn)為0；類型為任何一種VB的數(shù)據(jù)類型。一維數(shù)組舉例：

DimA(6)AsInteger‘?dāng)?shù)組元素下標(biāo)從0開始，共7個

Dima(1to7)AsInterger‘下標(biāo)從1開始，共7個

Dimx(15)AsDouble‘下表從0開始，共16個固定數(shù)組的聲明（續(xù)）多維數(shù)組：

Dim數(shù)組名(下標(biāo)1[,下標(biāo)2,下標(biāo)3,…])[As類型]

其中：下標(biāo)個數(shù)決定了數(shù)組的維數(shù)；數(shù)組每一維的大小與一維數(shù)組的計算方法相同；數(shù)組總的大小維每一維大小的乘積。多維數(shù)組舉例：

DimMatrix(3,4)AsDouble

Dima(1to3,1to4)AsInteger

Dimb(5,1to9,1to6)AsLong

Dimc(1to4,7,3to9)asSingle數(shù)組的輸入給數(shù)組賦初值

Fori=1to15

v(i)=0

Nexti數(shù)組的輸入

Fori=1to15

v(i)=InputBox(“請輸入第”&i&“個觀測值”)

Nexti數(shù)組的賦值

Fori=1to15

b(i)=a(i)

或者b=a（Vb6.0以后）

Nexti數(shù)組的輸出一維數(shù)組的輸出：

Fori=1to15

Printv(i);””

Nexti二維數(shù)組的輸出：

Fori=1to15

Forj=1to15

PrintQ(i,j);””

Nextj

Print

Nexti求數(shù)組中最大元素及其下標(biāo)DimMaxAsInteger,iMaxAsInteger,sumAsInteger… ‘?dāng)?shù)組V賦初值Max=V(1):iMax=1Fori=2to15 IfV(i)>MaxThen Max=V(i)

iMax=i EndIfNexti2315…6交換數(shù)組中各元素將數(shù)組第1個元素與最后一個交換，第2個元素與倒數(shù)第2個元素交換，依此類推，結(jié)果如圖所示：Fori=1to10\2

Temp=v(i)

v(i)=v(15–i+1)

v(15–i+1)=Temp

Nexti思考題1.如何求一維數(shù)組最小元素及其下標(biāo)？如何求二維數(shù)組的最小元素及其下標(biāo)？2.進行數(shù)組元素交換操作時，為什么循環(huán)的終值是15\2，而不是15？如果要將數(shù)組的前一半元素與后一半元素交換，即第1個與第9個交換，第2個與第10個交換，上述代碼應(yīng)如何修改？數(shù)組應(yīng)用舉例：40抽12的實現(xiàn)從40個學(xué)號中直接抽出12個互不相同的學(xué)號點名：

(1)完全不使用數(shù)組的寫法；

(2)使用數(shù)組進行重復(fù)判斷的寫法；

(3)完全使用數(shù)組的寫法；控件數(shù)組類型相同且功能相近的控件可以組成控件數(shù)組，它們使用相同的名稱（Name），通過索引值（下標(biāo)）來互相區(qū)別。創(chuàng)建控件數(shù)組：

（1）設(shè)計時創(chuàng)建；

（2）運行時動態(tài)加載；控件數(shù)組應(yīng)用舉例應(yīng)用舉例4.5.7：考試成績分析統(tǒng)計應(yīng)用舉例4.5.5：矩陣運算程序*動態(tài)數(shù)組事先不知道數(shù)組大小時，可以聲明該數(shù)組為動態(tài)數(shù)組，在需要時再用ReDim語句指定數(shù)組的大小。創(chuàng)建動態(tài)數(shù)組的步驟：

（1）聲明數(shù)組為動態(tài)數(shù)組；

（2）在需要時指定數(shù)組大小。動態(tài)數(shù)組應(yīng)用舉例應(yīng)用舉例4.5.2：觀測值均值和中誤差的計算應(yīng)用舉例4.5.3：學(xué)號抽點程序的完善求數(shù)組各元素之和一維求和：

Fori=1to15

sum=sum+v(i)

Nexti二維求和：

Fori=1to15

Forj=1to15

sum=sum+Q(i,j)

Nextj

Nexti數(shù)組元素排序選擇法排序：

①從n個數(shù)中選出最小數(shù)，將其與第1個數(shù)交換位置；

②除第1個數(shù)外，其余n-1個數(shù)再按步驟①選出次小數(shù)，與第2個數(shù)交換位置；

③重復(fù)步驟①n-1次，構(gòu)成遞增序列。數(shù)組元素排序（續(xù)一）DimiA%(1to10),Min%,n%,i%,j%,temp%iA(1)=8:iA(2)=6:iA(3)=9:iA(4)=3:iA(5)=2:iA(6)=7n=6Fori=1Ton-1

iMin=i Forj=i+1TonIfiA(j)<iA(iMin)TheniMin=jNextjt=iA(i):iA(i)=iA(iMin):iA(iMin)=tNexti

數(shù)組元素排序（續(xù)二）冒泡法排序：

①用第1個數(shù)開始，比較相鄰兩個數(shù)，若前一個數(shù)比后一個數(shù)大，則交換位置，經(jīng)過一輪比較后，最小一個數(shù)已經(jīng)冒出；

②從第2個數(shù)起，仿照步驟①，則比較后，次小的數(shù)冒出到第2個位置；

③重復(fù)步驟①n-1次，最后工構(gòu)成遞增序列。數(shù)組元素排序（續(xù)三）冒泡法排序代碼：

Fori=1Ton-1 '進行n-1輪比較

Forj=i+1Ton '從n~i個元素進行兩兩比較

IfiA(j)<iA(i)Then'若次序不對，則交換位置

t=iA(j):iA(j)=iA(i):iA(i)=tEndIfNextj '出內(nèi)循環(huán)，一輪排序結(jié)束，最小數(shù)已冒到最上面

Nexti

作業(yè)1.如何聲明一個一維固定數(shù)組？如何聲明一個二維固定數(shù)組？如何聲明相應(yīng)的動態(tài)數(shù)組？2.如何根據(jù)數(shù)組的聲明語句計算數(shù)組的大??？如何通過LBound()函數(shù)和UBound()函數(shù)獲得數(shù)組的大小？3.什么是控件數(shù)組？如何創(chuàng)建控件數(shù)組（分別說明兩種方法）？第七次上機總結(jié)（一）均值和中誤差的計算程序，

算例：對某個邊長使用鋼尺觀測了12次，觀測得到的結(jié)果分別為：

23.106，23.107，23.114，23.099，23.100，23.112，23.095，23.102，23.109，23.110，23.102，23.097使用編寫的程序計算上述觀測結(jié)果的均值和中誤差。第七次上機總結(jié)（二）彩票抽獎程序（1）抽出特等獎1個，要求由8位數(shù)字組成，并用適當(dāng)?shù)姆绞斤@示出來。（2）用同樣的方法抽出一等獎3個，并用適當(dāng)?shù)姆绞斤@示出來。（3）抽出二等獎5個和三等獎10個，分別使用數(shù)組來存放這些號碼。第七次上機總結(jié)（三）成績分析統(tǒng)計程序（1）使用InputBox輸入若干成績，計算平均分并顯示出來；（2）統(tǒng)計上述成績中的優(yōu)秀人數(shù)和不及格人數(shù)；（3）統(tǒng)計上述成績的優(yōu)秀率和不及格率。過程過程：程序中較小的邏輯部件。（抽獎程序為例）子過程（Sub過程）：響應(yīng)事件時執(zhí)行的代碼函數(shù)過程：使用Function語句自行編寫的函數(shù)。使用過程：

（1）創(chuàng)建過程；

（2）調(diào)用過程；

（3）調(diào)用其他模塊中的過程。向過程傳遞參數(shù)*幾個常用的過程子過程子過程：相應(yīng)事件時執(zhí)行的代碼塊。

作用：使查找和修改、以及重復(fù)使用代碼更容易。事件過程：

Form_Load()事件過程；

Command1_Click()事件過程；

Form_Click()事件過程；

Form_DblClick()事件過程；通用過程：

清空各文本框；（沒有參數(shù)）

交換兩個數(shù)的過程；（兩個參數(shù)）

三個數(shù)排序的過程；（三個參數(shù)）函數(shù)過程函數(shù)過程與子過程的區(qū)別在于函數(shù)過程具有返回值。函數(shù)過程舉例：

計算某個函數(shù)表達式的值的函數(shù)；（一個參數(shù)）

計算正弦值的函數(shù)；（一個參數(shù)）

由三角形邊長計算面積的函數(shù)；（三個參數(shù)）

角度化算為弧度的函數(shù)；（一個參數(shù)）

弧度化算為角度的函數(shù)；（一個參數(shù)）

判斷一個數(shù)是不是素數(shù)的函數(shù)；（一個參數(shù)）使用過程創(chuàng)建過程將已有代碼修改成過程調(diào)用Sub過程調(diào)用函數(shù)過程調(diào)用其它模塊中的過程參數(shù)的傳遞形參和實參傳址和傳值*可選參數(shù)和可變參數(shù)*過程應(yīng)用舉例：迭代法（附加題）例4.10：用兩分法解非線性方程在（0，1）內(nèi)的根，要求精確到0.0001。

（1）取a與b的中點

c=(a+b)/2，

將求根區(qū)間兩分；

（2）判斷根的三種情況：幾個常用的過程（教材P133、134）角度化為弧度弧度化為角度求兩點間的距離求兩點間的坐標(biāo)方位角作業(yè)1.子過程分為哪兩類？如何定義一個子過程？2.如何定義一個函數(shù)過程？3.子過程與函數(shù)過程有何區(qū)別？4.如何將例4.9的函數(shù)過程改寫成一個子過程？改寫后，程序在調(diào)用時應(yīng)如何做相應(yīng)的修改？高級界面設(shè)計鍵盤鼠標(biāo)事件多窗體菜單通用對話框鍵盤鼠標(biāo)事件鼠標(biāo)事件

（1）MouseMove

（2）MouseDown

（3）MouseUp鍵盤事件

（1）KeyPress

（2）KeyDown

（3）KeyUp鼠標(biāo)事件PrivateSubObject_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)EndSubPrivateSubObject_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)

EndSubPrivateSubObject_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)

EndSub

鼠標(biāo)事件應(yīng)用舉例點不中的命令按鈕PrivateSubCommand1_MouseMove(ButtonAsInteger,ShiftAs_Integer,XAsSingle,YAsSingle)Command1.Left=Command1.Left+Command1.WidthCommand1.Top=Command1.Top+Command1.HeightEndSub思考：要讓命令按鈕隨機地上下左右躲避鼠標(biāo)，應(yīng)如何實現(xiàn)？隨鼠標(biāo)移動的標(biāo)簽PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAs_Integer,XAsSingle,YAsSingle)Command1.Left=XCommand1.Top=YEndSub思考：要讓命令按鈕的中心對準(zhǔn)鼠標(biāo)，應(yīng)如何實現(xiàn)？Button參數(shù)的取值Shift參數(shù)的取值鼠標(biāo)事件應(yīng)用：從天而降的小貓小貓隨鼠標(biāo)移動小貓從天而降兩種狀態(tài)的切換鍵盤事件PrivateSubTextl_KeyPress(KeyAsciiAsInteger)EndSubPrivateSubobject_KeyDown(keycodeAsInteger,shiftAsInteger)EndSubPrivateSubobject_KeyUp(keycodeAsInteger,shiftAsInteger)

EndSub鍵盤事件應(yīng)用舉例按下Enter鍵時進行數(shù)據(jù)檢查并執(zhí)行某些操作在KeyPress事件里檢查輸入數(shù)據(jù)的有效性；檢查通過后，自動把焦點轉(zhuǎn)到下一個控件；若檢查不通過，則提示用戶，清空文本框，等待重新輸入。（三角形面積程序）讓輸入的字符都變成大寫字母對KeyPress事件編程，截獲用戶輸入的信息，并修改它們。

KeyAscii=Asc(Ucase(KeyAscii))KeyPress事件用于輸入檢查PrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenIfNotIsNumeric(Text1.Text)ThenMsgBox"輸入的不是數(shù)字，請重新輸入！"

Text1.Text=""Text1.SetFocusElseIfVal(Text1.Text)<0ThenMsgBox"輸入的邊長小于0，請重新輸入！"

Text1.Text=""Text1.SetFocus

ElseText2.SetFocus

EndIfEndIfEndSubKeyPress事件用于截獲輸入PrivateSubTextl_KeyPress(KeyAsciiAsInteger)KeyAscii=Asc(UCase(Chr(KeyAscii)))EndSub多窗體多窗體指一個應(yīng)用程序中有多個并列的普通窗體，每個窗體可以有自己的界面和程序代碼，完成不同的功能。添加窗體和移除窗體設(shè)置啟動對象有關(guān)的語句、方法不同窗體間數(shù)據(jù)的存取添加窗體單擊“工程”菜單的“添加窗體”命令，彈出“添加窗體”對話框“現(xiàn)存”：添加一個已有窗體到本工程中?！靶陆ā保盒陆ㄒ粋€窗體并添加到本工程中。設(shè)置啟動窗體一個工程中有多個窗體時，默認(rèn)第一個創(chuàng)建的窗體是啟動窗體?？梢詥螕簟肮こ獭辈藛蔚摹肮こ?屬性”命令，彈出工程屬性設(shè)置對話框。在啟動對象一欄，選擇要

設(shè)置為啟動窗體的窗體。多窗體有關(guān)語句、方法（1）Load語句：將窗體裝入內(nèi)存。（2）UnLoad語句：從內(nèi)存中刪除指定窗體。（3）Show方法：加載并顯示窗體。（4）Hide方法：暫時隱藏窗體。多窗體應(yīng)用舉例：測繪程序集封面窗體 主窗體不同窗體間的數(shù)據(jù)傳遞控件的屬性：

另一個窗體名.控件名.屬性

變量的值：（變量的作用域）

在標(biāo)準(zhǔn)模塊（.BAS）中聲明成全局變量例子：不同窗體件數(shù)據(jù)傳遞的例子變量的作用域局部變量

在過程中聲明，作用域是該過程內(nèi)部。模塊變量

在窗體的通用聲明段中聲明，作用域是該窗體內(nèi)部。全局變量

在標(biāo)準(zhǔn)模塊中用Public聲明，作用域是整個工程。返回高級界面設(shè)計鍵盤鼠標(biāo)事件多窗體菜單通用對話框菜單菜單是應(yīng)用程序的組成部分之一，由菜單欄和下拉菜單組成。建立菜單把代碼連接到菜單上動態(tài)修改菜單狀態(tài)彈出式菜單菜單應(yīng)用舉例一：記事本把代碼連接到菜單上每個菜單項都是一個對象，都具有一些特定的事件過程。在某菜單項的Click事件過程中編寫代碼，就可以使菜單在單擊時實現(xiàn)相應(yīng)的功能。動態(tài)修改菜單的狀態(tài)菜單編輯器中的“有效”、“可見”選項對應(yīng)菜單項的Enabled和Visible屬性。在程序運行當(dāng)中修改這些屬性，就可以動態(tài)地修改菜單的狀態(tài)。例如：

在設(shè)計狀態(tài)把某些菜單項隱藏，等到執(zhí)行某種操作（如打開文件）后，再顯示。彈出式菜單先在菜單編輯器中編