1、第8章 變量與過(guò)程的作用范圍,第8章 變量與過(guò)程的作用范圍,在VB中，應(yīng)用程序是由若干個(gè)過(guò)程組成的，這些過(guò)程一般保存在窗體文件（.frm）或標(biāo)準(zhǔn)模塊文件（.bas）中。變量在過(guò)程中是必不可少的。根據(jù)變量或過(guò)程所處的不同位置，可被訪問(wèn)的范圍是不相同的。變量與過(guò)程可被訪問(wèn)的范圍稱為變量與過(guò)程的作用域。,8.1 代碼模塊的概念 在建立VB的應(yīng)用程序時(shí)，應(yīng)首先設(shè)計(jì)代碼的結(jié)構(gòu)。VB應(yīng)用程序的結(jié)構(gòu)通常如圖8-1所示。 圖8-1 VB應(yīng)用程序的結(jié)構(gòu),VB將代碼存儲(chǔ)在3種不同的模塊中：窗體模塊(窗體)、標(biāo)準(zhǔn)模塊（模塊）和類模塊。在這3種模塊中都可以包含聲明（常數(shù)、變量、動(dòng)態(tài)鏈接庫(kù)DLL的聲明）和過(guò)程（Sub、

2、Function、Property過(guò)程）。它們形成了工程的一種模塊層次結(jié)構(gòu)，可以較好地組織工程，同時(shí)也便于代碼的維護(hù)，如圖8-2所示。 圖8-2 工程中的模塊,8.1.1 窗體模塊 每個(gè)窗體對(duì)應(yīng)一個(gè)窗體模塊，窗體模塊包含窗體及其控件的屬性設(shè)置、窗體變量的說(shuō)明、事件過(guò)程、窗體內(nèi)的通用過(guò)程、外部過(guò)程的窗體級(jí)聲明。 窗體模塊保存在擴(kuò)展名為.frm的文件中。默認(rèn)時(shí)應(yīng)用程序中只有一個(gè)窗體，因此有一個(gè)以.frm為擴(kuò)展名的窗體模塊文件。如果應(yīng)用程序有多個(gè)窗體，就會(huì)有多個(gè)以.frm為擴(kuò)展名的窗體模塊文件。 如果要在文本編輯器中觀察窗體模塊，則還會(huì)看到窗體及其控件的描述，包括它們的屬性設(shè)置值，如圖8-3所示。窗

3、體模塊中也可以引用該應(yīng)用程序內(nèi)的其他窗體或?qū)ο蟆?從“工程”菜單中執(zhí)行“添加窗體”命令，可以添加新窗體模塊。,8.1.2 標(biāo)準(zhǔn)模塊 標(biāo)準(zhǔn)模塊保存在擴(kuò)展名為.bas的文件中，缺省時(shí)應(yīng)用程序中不包含標(biāo)準(zhǔn)模塊。標(biāo)準(zhǔn)模塊可以包含公有或模塊級(jí)的變量、常數(shù)、類型、外部過(guò)程和全局過(guò)程的全局聲明或模塊級(jí)聲明。缺省時(shí)，標(biāo)準(zhǔn)模塊中的代碼是公有的，任何窗體或模塊中的事件過(guò)程或通用過(guò)程都可以調(diào)用它。寫(xiě)入標(biāo)準(zhǔn)模塊的代碼不必綁在特定的應(yīng)用程序上，在許多不同的應(yīng)用程序中可以重用標(biāo)準(zhǔn)模塊。在標(biāo)準(zhǔn)模塊中可以存儲(chǔ)通用過(guò)程，但不能存儲(chǔ)事件過(guò)程。 從“工程”菜單中執(zhí)行“添加模塊”命令，可以在工程中添加標(biāo)準(zhǔn)模塊。,8.1.3 類模塊

4、在VB中，類模塊（文件擴(kuò)展名為.cls）是面向?qū)ο缶幊痰幕A(chǔ)。程序員可在類模塊中編寫(xiě)代碼建立新對(duì)象，這些新對(duì)象可以包含自定義的屬性和方法，可以在應(yīng)用程序內(nèi)的過(guò)程中使用。實(shí)際上，窗體本身正是這樣一種類模塊，在其上可安放控件、可顯示窗體窗口。 類模塊與標(biāo)準(zhǔn)模塊的不同之處在于標(biāo)準(zhǔn)模塊僅僅含有代碼，而類模塊既含有代碼又含有數(shù)據(jù)，類模塊可以視為沒(méi)有物理表示的對(duì)象。,8.2 變量的作用范圍 變量的作用范圍（作用域）指變量能被某一過(guò)程識(shí)別的范圍。當(dāng)一個(gè)應(yīng)用程序中出現(xiàn)多個(gè)過(guò)程或函數(shù)時(shí)，在它們各自的子程序中都可以定義自己的常量、變量。這時(shí)，自然會(huì)提出一個(gè)問(wèn)題，這些常量或變量是否在程序中到處可用？回答是否定的。

5、在VB中，可以在過(guò)程或模塊中聲明變量，根據(jù)聲明變量的位置，變量分為兩類：過(guò)程級(jí)變量（Procedure level）和模塊級(jí)變量（Module level）。 按照作用范圍分類，過(guò)程級(jí)變量屬于局部變量，而模塊級(jí)變量則屬于全局變量。,8.2.1 過(guò)程級(jí)變量 在一個(gè)過(guò)程內(nèi)部使用Dim或Static關(guān)鍵字聲明變量時(shí)，只有該過(guò)程內(nèi)部的代碼才能訪問(wèn)或改變?cè)撟兞康闹?，因此被稱為“過(guò)程級(jí)變量”。過(guò)程級(jí)變量的作用范圍限制在該過(guò)程內(nèi)部。例如： Dim a As Integer, b As Single Static s As String 如果在過(guò)程中未作說(shuō)明而直接使用某個(gè)變量，該變量也被當(dāng)成過(guò)程級(jí)變量。用St

6、atic說(shuō)明的變量在應(yīng)用程序的整個(gè)運(yùn)行過(guò)程中都一直存在，而用Dim說(shuō)明的變量只在過(guò)程執(zhí)行時(shí)存在，退出過(guò)程后，這類變量就會(huì)消失。 過(guò)程級(jí)變量屬于局部變量，只能在建立的過(guò)程內(nèi)有效，即使是在主程序中建立的變量，也不能在被調(diào)用的子過(guò)程中使用。,【例8-1】過(guò)程級(jí)局部變量示例。 Private Sub Form_Activate() Dim a As Integer, b As Integer, c As Integer 過(guò)程級(jí)局部變量 a = 5: b = 3 Print Print Tab(15); a; Tab(25); b; Tab(35); c=a*b Print 調(diào)用Prod前; Tab(1

7、4); a; Tab(24); b; Tab(34); c Call Prod Print 調(diào)用Prod后; Tab(14); a; Tab(24); b; Tab(34); c Print Print 調(diào)用Sum前; Tab(14); a; Tab(24); b; Tab(34); c Call Sum Print 調(diào)用Sum后; Tab(14); a; Tab(24); b; Tab(34); c End Sub Sub Prod() 通用過(guò)程 Dim a As Integer, b As Integer, c As Integer 過(guò)程級(jí)局部變量,圖8-7 程序運(yùn)行結(jié)果 c = a *

8、b Print Prod子過(guò)程; Tab(14); a; Tab(24); b; Tab(34); c End Sub Sub Sum() 通用過(guò)程 Dim a As Integer, b As Integer, c As Integer 過(guò)程級(jí)局部變量 c = a + b Print Sum子過(guò)程; Tab(14); a; Tab(24); b; Tab(34); c End Sub 程序的運(yùn)行結(jié)果如圖8-7所示。從上面程序的運(yùn)行結(jié)果可以看出，主程序中的變量沒(méi)有帶到子過(guò)程中。,8.2.2 模塊級(jí)變量 在模塊的通用段中聲明的變量屬于模塊級(jí)變量。模塊級(jí)變量分為私有和公有。 1. 私有的模塊級(jí)變量

9、 私有的模塊級(jí)變量在聲明它的整個(gè)模塊的所有過(guò)程中都能使用，但其他模塊卻不能訪問(wèn)該變量。聲明方法是在模塊的通用段中使用Private或Dim關(guān)鍵字聲明變量。例如： Private s As String Dim a As Integer, b As Single 在模塊的通用段中使用Private或Dim作用相同，但使用Private會(huì)提高代碼的可讀性。,2. 公有的模塊級(jí)變量 公有的模塊級(jí)變量在所有模塊中的所有過(guò)程中都能使用。它的作用范圍是整個(gè)應(yīng)用程序，因此公有模塊級(jí)變量屬于全局變量。聲明方法是在模塊的通用段中使用Public關(guān)鍵字聲明變量。例如： Public a As Integer, b

10、 As Single 全局變量是指在所有程序（包括主程序和過(guò)程）中都可以使用的內(nèi)存變量。就像在一個(gè)過(guò)程中定義的變量一樣，在子過(guò)程中可以任意改變和調(diào)用全局變量，當(dāng)子過(guò)程執(zhí)行完后，其值又帶回主程序。 把變量定義為全局變量雖然很方便，但這樣會(huì)增加變量在程序中被無(wú)意修改的機(jī)會(huì)，因此，如果有更好的處理變量的方法，就不要聲明全局變量。另外，用Const語(yǔ)句定義的符號(hào)常量也能聲明為全局的。,【例8-2】公有的模塊級(jí)全局變量示例。 Public a As Integer, b As Integer, c As Integer 寫(xiě)在“(通用)”的“(聲明)”中 Private Sub Form_Activate

11、() 事件過(guò)程 a = 5: b = 3 Print Tab(15); a; Tab(25); b; Tab(35); c=a*b Print 調(diào)用Prod前; Tab(14); a; Tab(24); b; Tab(34); c Call Prod Print 調(diào)用Prod后; Tab(14); a; Tab(24); b; Tab(34); c Print Print Tab(15); a; Tab(25); b; Tab(35); c=a+b Print 調(diào)用Sum前; Tab(14); a; Tab(24); b; Tab(34); c Call Sum Print 調(diào)用Sum后; T

12、ab(14); a; Tab(24); b; Tab(34); c End Sub,圖8-8 程序運(yùn)行結(jié)果 Sub Prod() 通用過(guò)程 c = a * b Print Prod子過(guò)程; Tab(14); a; Tab(24); b; Tab(34); c End Sub Sub Sum() 通用過(guò)程 c = a + b Print Sum子過(guò)程; Tab(14); a; Tab(24); b; Tab(34); c End Sub 程序的運(yùn)行結(jié)果如圖8-8所示。從程序的運(yùn)行結(jié)果可以看出，在模塊級(jí)中用Public聲明的全程變量a、b、c，在各過(guò)程中都能訪問(wèn)和修改。,8.2.3 變量的生存期

13、從變量的作用空間來(lái)說(shuō)，變量有作用范圍；從變量的作用時(shí)間來(lái)說(shuō)，變量有生存期。 假設(shè)過(guò)程內(nèi)部有一個(gè)變量，當(dāng)程序運(yùn)行進(jìn)入該過(guò)程時(shí)，要分配給該變量一定的內(nèi)存單元，一旦程序退出該過(guò)程，變量占有的內(nèi)存單元是釋放還是保留，根據(jù)變量在程序運(yùn)行期間的生命周期，把變量分為靜態(tài)變量（Static）和動(dòng)態(tài)變量（Dynamic）。靜態(tài)變量不釋放內(nèi)存單元，動(dòng)態(tài)變量釋放內(nèi)存單元，有時(shí)候可能需要某些局部變量是靜態(tài)變量，而其他變量則為動(dòng)態(tài)變量。,【例8-3】下面程序說(shuō)明了Static關(guān)鍵字的作用。 Private Sub Form_Activate() Dim i As Integer For i = 1 To 6 TestS

14、ub Next i End Sub Sub TestSub() Dim x As Integer, m As String圖8-9 程序運(yùn)行結(jié)果 Static y, n x = x + 1: y = y + 1 m = m n End Sub 程序的運(yùn)行結(jié)果如圖8-9所示。,說(shuō)明：x、y、m、n都是過(guò)程TestSub中的局部變量，y、n被說(shuō)明為Static變量，每次調(diào)用保持上一次的值，y、n的值會(huì)變化；x、m是動(dòng)態(tài)變量，每次調(diào)用都被重新初始化為0或，它們的值總是不變。 為使過(guò)程中所有的局部變量為靜態(tài)變量，可在過(guò)程頭的起始處加上Static關(guān)鍵字。例如： Static Function Runn

15、ingTotal (num) 這就使過(guò)程中的所有局部變量都變?yōu)殪o態(tài)，無(wú)論它們是用Static、Dim或Private聲明的還是隱式聲明的。,8.3 過(guò)程的作用范圍 過(guò)程也有作用的范圍（作用域），在VB中，過(guò)程的作用域分為模塊級(jí)（或稱文件級(jí)）和全局級(jí)（或稱工程級(jí)）。 8.3.1 模塊級(jí)過(guò)程 模塊級(jí)過(guò)程是在某個(gè)模塊（文件）內(nèi)定義的過(guò)程。如果在Sub或Function前加關(guān)鍵字Private，則該過(guò)程只能被在本模塊（文件）中定義的過(guò)程調(diào)用。即其作用域?yàn)楸灸K（文件）。,8.3.2 全局級(jí)過(guò)程 全局級(jí)過(guò)程是在定義過(guò)程時(shí)，在Sub或Function前加關(guān)鍵字Public（可以默認(rèn)）。全局級(jí)過(guò)程可被整個(gè)應(yīng)

16、用程序所有模塊（文件）中定義的過(guò)程調(diào)用。即其作用域?yàn)檎麄€(gè)應(yīng)用程序（工程）。,8.3.3 調(diào)用其他模塊中的過(guò)程 在工程中的任何地方都能調(diào)用其他模塊中的全局過(guò)程。調(diào)用其他模塊中的過(guò)程的各種技巧，取決于該過(guò)程是在窗體模塊中、類模塊中還是標(biāo)準(zhǔn)模塊中。 (1) 調(diào)用窗體中的過(guò)程 所有窗體模塊的外部調(diào)用必須指向包含此過(guò)程的窗體模塊。如果在窗體模塊Form1中包含SomeSub過(guò)程，則可使用下面的語(yǔ)句調(diào)用Form1中的過(guò)程： Call Form1.SomeSub( arguments ),(2) 調(diào)用類模塊中的過(guò)程 與窗體中調(diào)用過(guò)程類似，在類模塊中調(diào)用過(guò)程要調(diào)用與過(guò)程一致并且指向類實(shí)例的變量。例如，Demo

17、Class是類Class1的實(shí)例： Dim DemoClass as New Class1 DemoClass.SomeSub 不同于窗體的是，在引用一個(gè)類的實(shí)例時(shí)，不能用類名作限定符。必須首先聲明類的實(shí)例為對(duì)象變量（在這個(gè)例子中是DemoClass），并用變量名引用它。,(3) 調(diào)用標(biāo)準(zhǔn)模塊中的過(guò)程 如果過(guò)程名是唯一的，則不必在調(diào)用時(shí)加模塊名。無(wú)論是在模塊內(nèi)，還是在模塊外調(diào)用，結(jié)果總會(huì)引用這個(gè)唯一過(guò)程。如過(guò)程僅出現(xiàn)在一個(gè)地方，這個(gè)過(guò)程就是唯一的。如果兩個(gè)以上的模塊都包含同名的過(guò)程，那就有必要用模塊名來(lái)限定了。 例如，若在Module1中調(diào)用Module2中的CommonName過(guò)程，要用下面

18、的語(yǔ)句： Module2.CommonName( arguments ),【例8-4】全局級(jí)過(guò)程的調(diào)用，如圖8-10所示。 應(yīng)用程序（工程）中包括兩個(gè)窗體Forml、Form2和一個(gè)標(biāo)準(zhǔn)模塊Module1。在Forml窗體中定義了一個(gè)計(jì)算矩形面積的全局級(jí)Function過(guò)程，在標(biāo)準(zhǔn)模塊Module1中定義了一個(gè)計(jì)算矩形周長(zhǎng)的全局級(jí)Function過(guò)程。 兩個(gè)窗體中的命令按鈕組的Click事件過(guò)程功能相同，差別是調(diào)用Function過(guò)程時(shí)所使用的名字。 圖8-10 不同窗體對(duì)過(guò)程的調(diào)用,Form1窗體模塊中的過(guò)程代碼如下： Public Function Area(x As Single, y

19、As Single) As Single Area = x * y End Function Private Sub Command1_Click(index As Integer) Dim a As Single, b As Single a = Val(Text1(0).Text) b = Val(Text1(1).Text) n = index If n = 0 Then Label2(0).Caption = Area(a, b) Else Label2(1).Caption = Perimeter(a, b) End If End Sub Private Sub Form_Load(

20、) Form2.Show End Sub,Form2窗體模塊中的過(guò)程代碼如下： Private Sub Command1_Click(index As Integer) Dim a As Single, b As Single a = Val(Text1(0).Text) b = Val(Text1(1).Text) n = index If n = 0 Then Label2(0).Caption = Form1.Area(a, b) Else Label2(1).Caption = Perimeter(a, b) End If End Sub 標(biāo)準(zhǔn)模塊Module1中的過(guò)程代碼： Publ

21、ic Function Perimeter(x As Single, y As Single) As Single Perimeter = 2 * (x + y) End Function,8.4 用戶定義類型 8.4.1 用戶定義類型的概念 假設(shè)某校的學(xué)生成績(jī)見(jiàn)表8-1。 表8-1 學(xué)生成績(jī)表 表中每列的數(shù)據(jù)類型相同，都是前面介紹過(guò)的基本數(shù)據(jù)類型，在每一行中卻有著不同的數(shù)據(jù)類型。雖然使用VB的Variant數(shù)組允許數(shù)組內(nèi)的元素有不同的數(shù)據(jù)類型，但卻比較浪費(fèi)內(nèi)存。此時(shí)，VB允許將基本數(shù)據(jù)類型按需要組合起來(lái)，創(chuàng)建自定義的數(shù)據(jù)類型：用戶定義類型（User Defined Type）。,用戶定義類型

22、又被稱為“記錄類型”，類似于C語(yǔ)言中的“結(jié)構(gòu)”。它是一個(gè)由若干個(gè)基本類型的數(shù)據(jù)項(xiàng)組合而成的組合項(xiàng)。如表8-1中的每一列都是基本類型的數(shù)據(jù)項(xiàng)，分別描述同一對(duì)象（學(xué)生）的不同屬性，稱為字段（或稱為數(shù)據(jù)項(xiàng)），字段的名稱，如學(xué)號(hào)、姓名、性別、出生日期等稱為字段名（或稱數(shù)據(jù)項(xiàng)名）。表中的記錄類型就是由這7個(gè)數(shù)據(jù)項(xiàng)組成，其中每個(gè)學(xué)生的7個(gè)具體屬性值的集合就是記錄值（簡(jiǎn)稱記錄），表中共有3個(gè)記錄值，每位學(xué)生有1個(gè)記錄。如果該校有2000名學(xué)生，則該校學(xué)生成績(jī)數(shù)據(jù)文件中就應(yīng)該有2000個(gè)記錄。,8.4.2 創(chuàng)建用戶定義類型 可以用Type語(yǔ)句創(chuàng)建用戶定義的類型，該語(yǔ)句必須置于模塊的聲明部分。其格式為： Pri

23、vate | Public Type 用戶類型名 字段名1 As 類型1 字段名2 As 類型2 字段名n As 類型n End Type,8.4.2 創(chuàng)建用戶定義類型 例如，要建立一個(gè)學(xué)生成績(jī)處理程序，由于每一位學(xué)生都需要學(xué)號(hào)、姓名、學(xué)分和平均成績(jī)等數(shù)據(jù)項(xiàng)（字段），則可以使用Type語(yǔ)句來(lái)定義一個(gè)名稱為studentrec的記錄。 Private Type studentrec stunum As String * 6 學(xué)號(hào)元素為6個(gè)字符的定長(zhǎng)字符串 names As String * 8 姓名元素為8個(gè)字符的定長(zhǎng)字符串 credit As Integer 學(xué)分元素為整型 avg As Si

24、ngle 平均成績(jī)?yōu)閱尉刃?End Type,8.4.3 建立和使用用戶定義類型變量 在使用用戶定義類型之前，必須用Type語(yǔ)句創(chuàng)建數(shù)據(jù)類型。 1. 建立用戶定義類型變量 用戶定義類型被創(chuàng)建后，可以用Dim、Redim、Static建立一個(gè)具有這種數(shù)據(jù)類型的變量。例如定義一個(gè)具有studentrec類型的變量stu： Dim stu AS studentrec 用戶定義類型也可以作為數(shù)組元素的數(shù)據(jù)類型。例如，定義一個(gè)擁有100個(gè)記錄元素的數(shù)組student： Dim student(1 To 100) As studentrec,2. 使用用戶定義類型變量 如果要存取用戶定義類型變量中的某個(gè)

25、字段的數(shù)據(jù)，其格式如下。 用戶數(shù)據(jù)類型變量名.字段名 例如，要存取用戶定義類型變量stu中names這個(gè)字段的數(shù)據(jù)，要寫(xiě)為：s。 【例8-5】把數(shù)據(jù)值分別賦給stu變量中的各個(gè)字段。 首先在窗體模塊的通用段創(chuàng)建用戶定義類型： Private Type studentrec stunum As String * 6 學(xué)號(hào)元素為6個(gè)字符的定長(zhǎng)字符串 names As String * 8 姓名元素為8個(gè)字符的定長(zhǎng)字符串 credit As Integer 學(xué)分元素為整型 avg As Single 平均成績(jī)?yōu)閱尉刃?End Type,編寫(xiě)命令按鈕的Click事件代碼： Priva

26、te Sub Command1_Click() Dim stu As studentrec 定義一個(gè)具有studentrec類型的變量stu stu.stunum = 990001 s = 王 平 stu.credit = 65 stu.avg = 88 Text1(0).Text = stu.stunum Text1(1).Text = s Text1(2).Text = stu.credit Text1(3).Text = stu.avg End Sub圖8-11 運(yùn)行結(jié)果 程序運(yùn)行結(jié)果如圖8-11所示。,8.4.4 用戶定義類型數(shù)組 如果一個(gè)數(shù)組中元素的數(shù)

27、據(jù)類型是用戶定義類型，則稱為用戶定義類型數(shù)組或記錄數(shù)組（Array of records）。存取記錄數(shù)組元素的某個(gè)字段數(shù)據(jù)的語(yǔ)法為： 記錄數(shù)組元素.字段名 例如，存取第1、第28位學(xué)生的平均分?jǐn)?shù)，要寫(xiě)為 student(1).avg student(28).avg,8.4.4 用戶定義類型數(shù)組 【例8-6】假設(shè)某班有50位學(xué)生，每位學(xué)生一個(gè)記錄，定義一個(gè)包含50個(gè)元素的用戶定義數(shù)組，并給第32位學(xué)生賦值。 首先在窗體模塊的通用段創(chuàng)建用戶定義類型： Private Type studentrec stunum As String * 6 names As String * 8 credit As

28、 Integer avg As Single End Type,編寫(xiě)命令按鈕的Click事件代碼： Private Sub Command1_Click() Dim student(1 To 50) As studentrec 定義記錄數(shù)組 student(32).stunum = 960001 student(32).names = 張大力 student(32).credit = 65 student(32).avg = 88 Text1(0).Text = student(32).stunum Text1(1).Text = student(32).names Text1(2).Text

29、 = student(32).credit Text1(3).Text = student(32).avg End Sub,8.4.5 程序舉例 【例8-7】輸入學(xué)生的姓名、學(xué)號(hào)、語(yǔ)文分?jǐn)?shù)、英語(yǔ)分?jǐn)?shù)、數(shù)學(xué)分?jǐn)?shù)，計(jì)算每名學(xué)生的個(gè)人平均成績(jī)，并顯示學(xué)生的各科成績(jī)，如圖8-12所示。 首先在窗體的通用段創(chuàng)建用戶定義類型并且聲明變量： Private Type studentRecord name As String * 6 姓名變量定義為6個(gè)字符長(zhǎng)度 studentNum As String * 5 學(xué)號(hào)變量定義為5個(gè)字符長(zhǎng)度 chinese As Single 語(yǔ)文變量定義為單精度數(shù) englis

30、h As Single 英語(yǔ)變量定義為單精度數(shù) math As Single 數(shù)學(xué)變量定義為單精度數(shù) average As Single 平均成績(jī)定義為單精度數(shù) End Type Dim stu() As studentRecord 定義記錄數(shù)組,編寫(xiě)窗體的Load事件代碼： Private Sub Form_Load() ReDim stu(0) End Sub 編寫(xiě)“輸入”按鈕Command1的Click事件代碼： 圖8-12 顯示學(xué)生成績(jī),Private Sub Command1_Click() n = UBound(stu) ReDim stu(n + 1) With stu(n + 1) .studentNum = Text1(0).Text .name = Text1(1).Text .chinese = Text1(2).Text .english = Text1(3).Text .math = Text1(4).Text .average = Int(.chinese + .english + .math) / 3 * 100) / 100 cc = Format(.chinese, ) & Format(.english, ) & _ Format(.math, ) & Format(Str(.avera