第一篇：VB第六章實驗報告

第六章實習報告

第一部分：書上例題運行結果展示

例6-1求組合數Cn?mn!的值，設m=6,n=10。

m!(n?m)!

例6-2一個數組有10個整數元素，將第一個元素與最后一個元素對調，第二個與倒數第二個對調……，輸出對調前后數組各元素的值。

例6-3編寫求兩個整數的最大公約數過程，在主程序中調用該過程求兩個數的最大公約數，并根據最大公約數求最小公倍數。

例6-4分別用傳地址方式和傳值方式編寫交換兩個整數的過程并調用。

例6-5編寫求一組整數平均值的過程，并在主程序中調用。

例6-6編寫能獲得一組整數的平均值、最大值和最小值的過程并調用。

例6-7求組合數Cn?mn!的值，設m=6,n=10。

m!(n?m)!

例6-8窗體級變量的作用范圍示例

例6-9變量的作用范圍綜合示例。

例6-10編程對鍵盤上輸入的任意個數排序。

例6-11判斷一個整數是否是回文數。所謂回文數是這樣的數，將這個數從左向右讀和從右向左讀值相等。如121就是回文數，345就不是回文數。

例6-12設計一個數值轉換函數，能夠將十進制整數轉換成16進制以內的任意進制數。

例6-13利用遞歸調用計算n!

第二部分：課后習題

1． 自定義一個與VB內部函數Abs功能完全相同的函數過程MyAbs，要求函數過程中不能調用VB內部函數Abs。運行結果如下所示：

代碼錄入如下：

Private Sub Command1_Click()

Dim a!

a = InputBox(“請輸入函數值”)

Print myabs(a)End Sub Function myabs!(ByVal x!)

If x >= 0 Then

x = x

Else

x =-x

End If myabs = x End Function 3．編寫函數過程Gdc求兩個數的最大公約數。調用此函數試求1260、198、72三個數的最大公約數。

運行結果如下所示：

代碼錄入如下：

Private Sub Command1_Click()

Dim x%, y%, z%

x = Val(InputBox(“輸入第一個數x為：”))

y = Val(InputBox(“輸入第二個數y為：”))

z = Val(InputBox(“輸入第三個數z為：”))

z = gys(gys(x, y), z)

Print “三個數的最大公約數為：” & z End Sub Function gys%(ByVal m%, ByVal n%)

Dim r%

Do

r = m Mod n

If r = 0 Then

Exit Do

Else

m = n: n = r

End If

Loop gys = n End Function 7．編程輸出10000～99999之間的全部回文式素數。運行結果如下：

代碼錄入如下：

Private Sub Command1_Click()

Dim i&, n&, x#

x = Timer

For i = 10000 To 99999

If hws(i)= True Then

If ss(i)= True Then

Print i;

n = n + 1

If n Mod 5 = 0 Then Print

End If

End If

Next i

Print

x = Timer1)Mod 5)* 6);dg(i);

Next i

Print

Print “第20個數是” & dg(20)End Sub Function dg#(ByVal m%)

If m >= 3 Then dg = dg(m2)

Else dg = 1

End If End Function 第三部分:簡答題

1.Sub過程和Function過程的異同點是什么？

答：過程是一個具有某種功能的獨立程序段，可供程序多次調用。對于一個具體問題，既可以使用Function過程，也可以使用Sub過程。但Sub過程與Function過程還是有區(qū)別的，Sub過程的過程名僅標識過程本身；Function過程的過程名除了標識過程本身以外，還有返回值的作用，因此，若過程有一個返回值時，則習慣使用Function過程，并通過函數名返回函數值；若過程不需要返回值或返回多個值時，則使用Sub過程；返回值通過實參與形參的結合帶回，當然也可通過Function過程名帶回一個結果，其余通過實參與形參的結合帶回。

2.值傳遞與地址傳遞特點是什么？如何選擇？

答：VB中形參與實參的結合有傳值和傳地址兩種方式。數據傳遞按照地址方式傳遞。傳值方式只能從調用程序向過程傳入初值，但不能將結果傳出；而地址傳遞即可傳入又可傳出。實現(xiàn)傳值和傳地址對形參和實參的要求。在定義過程時在形參前加ByVal關鍵字或過程調用時變量加圓括號，數據傳遞按照傳值方式；如果在形參前加ByRef關鍵字或省略（默認）或實參是數組、自定義類型、對象變量等，參數傳遞只能是地址傳遞。

3.在VB中，形參若是數組，問在過程體內如何表示其數組的上、下界？

答：傳地址是VB默認的參數傳遞方式。在這種方式下，實參傳給形參的是存儲地址，使得形參與實參共用同一存儲單元，因此，在過程中對形參的任何操作實質都是對相應實參的操作。參數傳遞時，當實參為變量時，把實參的地址傳遞給形參，使實參與形參共享同一存儲單元段；當實參為數組時，把實參數組的存儲地址傳遞給形參數組，使實參數組與形參數組共享同一存儲區(qū)域。

4.在Form1窗體通用聲明部分聲明的變量，可否在Form2窗體中的過程被訪問？ 答：不可以。窗體（模塊）級變量的作用域限制在聲明它的窗體（模塊）中，該窗體（模塊）中的所有過程均可訪問該變量，其它窗體（模塊）則不能。

5.為了使某變量在所有的窗體中都能使用，應在何處聲明該變量？ 答：public 6.在同一模塊、不同過程中聲明的相同變量名，兩者是否表示一個變量？有沒有聯(lián)系？ 答：不表示。當變量名相同而作用域不同時，將優(yōu)先訪問作用域小的變量。

三．實習中遇到的問題 傳值與傳地址的區(qū)別及各種情況下的選擇。

四．信心指數

★★★★

第二篇：Vb設計實驗報告

Vb設計實驗報告

一、設計內容和目的

這次實驗設計，我做的是學生信息管理系統(tǒng)，主要功能是提供學生信息保存和查詢功能。

主要分為個窗口，其具體功能如下：

1、登錄窗口：提供學生和管理員登錄。

2、信息管理窗口：主操作窗口，可以進行重登陸、注銷、退出、用戶查詢、管理員管理、系統(tǒng)信息的操作。包括一個下拉菜單和工具欄。

3、用戶查詢窗口：可以查詢數據庫中保存的學生信息。

4、管理員管理窗口：只有管理員可以進入，顯示數據庫中所有的學生信息，并且可以添加修改。

5、系統(tǒng)信息窗口：是系統(tǒng)的信息內容。

另外，根據網上的代碼，我又制作了俄羅斯方塊小游戲和畫圖工具。

二、設計過程：

1、實驗構思：在系統(tǒng)設計之前，對實驗內容和結構的構思占據了相當一部分時間。最終決定做一個“學生信息管理系統(tǒng)”，這樣比較貼近自身情況，也有比較多的內容可以設計。

2、技術實現(xiàn)：在制作過程中主要使用了vb2005和數據庫技術實現(xiàn)系統(tǒng)的設計、實現(xiàn)和運行。Photoshop等技術使程序的界面看起來更加友好。

3、運行調試：在系統(tǒng)制作中的運行調試過程中，出現(xiàn)了很多問題，比如各窗口之間的調用和訪問，如何退出，控件的背景設置、字體顏色設置等，都需要經過一遍遍的調試發(fā)現(xiàn)、解決。

4、系統(tǒng)打包：在打包的時候，我按照老師給的方法一步步設置，可是由于粗心等原因，總是達不到滿意的效果，直到第三次才真正成功。

三、系統(tǒng)結構：

如一所述，系統(tǒng)分為5個模塊，各個模塊之間可以自由訪問。

四、實驗結果： 該系統(tǒng)能夠提供學生和管理員兩種類型的登錄，可以實現(xiàn)學生信息的查詢、管理員對信息的修改，等。

五、設計心得：

在設計過程中，遇到了許多困難，比如：數據庫無法連接、窗口無法正常訪問、控件背景與窗體背景不協(xié)調等。后來通過查看課本和訪問網絡將這些問題解決了。

在這個過程中，我深深體會到大作業(yè)的用意：將所學理論知識用于實踐。正是因為這樣，許多理論上的知識才能真正得到理解。處理問題的過程，也就是學習的過程。背課本何其簡單，真正的能力卻是將課本運用到實踐中去！

第三篇：VB實驗報告 (2500字)

交通與汽車工程學院 實 驗 報 告

課 程 名 稱: 程序設計基礎 課 程 代 碼: 學院(直屬系): 年級/專業(yè)/班: 學 生 姓 名:學 號: 實驗總成績: 任 課 教 師: 開 課 學 院: 實驗中心名稱: 西華大學實驗報告（理工類）

開課學院及實驗室：交通與汽車工程學院計算機實驗室 實驗時間： 年 月 日

1、實驗目的

a)理解vb中對象的概念。b)理解事件驅動的基本概念。

c)熟悉vb編程的基本步驟：界面設計、屬性設置、編寫代碼、運行、調試、保存文件。

d)掌握常用控件的創(chuàng)建方法以及如何用控件建立用戶界面。e)掌握在屬性窗口中設置對象屬性的基本操作。掌握在代碼窗口中編輯程序代碼的基本操作。了解在代碼中改變對象屬性的基本方法

2、實驗設備、儀器及材料

操作系統(tǒng)：windows98/2000/2003/xp 編程工具：visual basic 6.0

3、實驗內容 3.1實驗方案設計與選擇（設計性、創(chuàng)新性實驗需寫該項內容）3.2實驗原理及實驗步驟（實驗工作原理或實驗的主要操作過程）

原理：

vb中對象的操作與應用。步驟：

1.建立界面和對象，更改各個對象的屬性;2.編寫程序代碼，運行程序;3.調試程序，改程序，得正確程序。

3.3實驗記錄（核心代碼及調試過程）

1、界面設計

2、程序代碼設計

dim chname as string

chname = text1.text

label1.visible = false text1.move 360, 1440, 4500 text1.forecolor = vbblue text1.text = 這是 & chname & 的第一個vb程序!end sub end sub private sub form_load()showcls form1.fillcolor = vbred print print tab(3);歡迎使用 visual basic！end sub

3、運行/調試程序

4、保存工程

用相關命令在用戶文件夾中保存窗體核工程文件，要求文件名分別是;firpro.frm,firpro.vbp

4、實驗總結4.1實驗結果分析及問題討論

1若將form_load事件改成form_click事件過程，而其中的程序代碼不變，運行程序后

窗體上的顯示有什么不同？

答： form_click事件需單擊窗體才能觸發(fā)，而form_load事件由vb系統(tǒng)自動觸發(fā)，如果改變，則需單擊窗體才能顯示結果。西華大學實驗報告（理工類）

開課學院及實驗室：交通與汽車工程學院 計算機實驗室 實驗時間： 年 月 日

1、實驗目的

1.掌握窗體的常用屬性、事件和方法。2．掌握是窗體的鼠標事件及觸發(fā)順序。

3、掌握顏色的表示方法。

2、實驗設備、儀器及材料

操作系統(tǒng)：windows98/2000/2003/xp 編程工具：visual basic 6.0

3、實驗內容 3.1實驗方案設計與選擇（設計性、創(chuàng)新性實驗需寫該項內容）3.2實驗原理及實驗步驟（實驗工作原理或實驗的主要操作過程）

原理：

通過對各個form事件的了解來進行編程。步驟：

1.先設計界面，進而代碼編程； 2.運行程序，結果顯示在界面上。3.3實驗記錄（核心代碼及調試過程）。1．

界面設計

2．程序代碼設計

private sub form_click()print 觸發(fā) form_click 事件 end sub private sub form_dblclick()print 觸發(fā) form_dblclick 事件 end sub private sub form_mousedown(button as integer, shift as integer, x as single, y as single)print 觸發(fā) form_mousedown 事件 end sub private sub form_mouseup(button as integer, shift as integer, x as single, y as single)print 觸發(fā) form_mouseup 事件 end sub 3．運行/調試程序

4．保存工程

4、實驗總結

4.1實驗結果分析及問題討論

顏色的表示方法有幾種？分別加以描述。

答：1.使用rgb函數

rgb函數可返回一個long整數，來表示一個rgb顏色值。其使用格式如下：rgb(red,green,blue)說明：red,green,blue 3種顏色是通過從0-255之間的一組亮度值組合來設定顏色。2.使用qbcolor函數

qbcolor函數可返回一個long值，用來表示所對應顏色值的rgb顏色碼。3.適用系統(tǒng)定義的顏色常數

在vb系統(tǒng)中已經預先定義了常數可查表得起顏色值。4.使用顏色設置值

在十六進制數指定顏色的格式為：&hbbggrr.4.2實驗總結心得體會 答：操作時按鍵的不同會使結果出現(xiàn)差異，體現(xiàn)了不同事件的操作的不同。通過該實驗讓我比較清楚的了解了form的各個事件。

西華大學實驗報告（理工類）開課學院及實驗室：交通與汽車工程學院 計算機實驗室 實驗時間： 年 月 日

1、實驗目的

1．掌握標簽、文本框、命令按鈕的常用屬性、事件和方法。

2．掌握單選按鈕和復選框、列表框和組合框的編程方法，尤其是單選按鈕與框架的配合使用。3．掌握運用圖片框和圖像框加載圖像的方法。4．掌握計時器和滾動條的編程方法。

2、實驗設備、儀器及材料

操作系統(tǒng)：windows98/2000/2003/xp 編程工具：visual basic 6.0

3、實驗內容 3.1實驗方案設計與選擇（設計性、創(chuàng)新性實驗需寫該項內容）3.2實驗原理及實驗步驟（實驗工作原理或實驗的主要操作過程）

原理：

對標簽、文本框、滾動條、組合框等控件的應用。步驟： 1.界面設計，2.程序代碼編程，3運行，調試，修改。3.3實驗記錄（核心代碼及調試過程）1． 界面設計

2． 程序代碼設計 private sub check1_click()if check1.value = 1 then text1.font.bold = true else text1.font.bold = false end if end sub private sub check2_click()text1.font.italic = not text1.font.italic end sub text1.text = 第一章 vb概述 & vbcrlf & 第二章 程序設計基礎 & vbcrlf & 第三章 窗體及常用控件 & vbcrlf & 第四章 結構化程序設計 & vbcrlf & 第五章 數組end sub private sub hscroll1_change()text1.font.size = hscroll1.value end sub private sub option1_click()text1.font.name = option1.caption end subprivate sub option2_click()text1.font.name = option2.caption end sub 3． 運行/調試程序

4． 保存工程

4、實驗總結

4.1實驗結果分析及問題討論

1、字體的選擇可否使用復選框來實現(xiàn)？

答：不可以，字體只能呈現(xiàn)出一種字體，所以只能用單選按鈕實現(xiàn)。4.2實驗總結心得體會

程序中標點的運用能改變顯示的結果，有時會導致不能運行，注意標點很重要。由于編程過程中標點應用不當使我走了很多冤枉路，下次記得標點的使用。西華大學實驗報告（理工類）

開課學院及實驗室：交通與汽車工程學院 計算機實驗室 實驗時間： 年 月 日

1、實驗目的

1.熟悉vb的各種數據類型 2．掌握變量定義與賦值的方法。3．掌握各種運算符和表達式的使用。4．掌握常用內部函數的功能及其調用方法。

2、實驗設備、儀器及材料

操作系統(tǒng)：windows98/2000/2003/xp 編程工具：visual basic 6.0

3、實驗內容 3.1實驗方案設計與選擇（設計性、創(chuàng)新性實驗需寫該項內容）3.2實驗原理及實驗步驟（實驗工作原理或實驗的主要操作過程）

原理：

對ｖｂ各種數據的應用和內部函數的使用。步驟：

１.對界面進行設計，并改變對象的屬性； ２.編寫程序代碼；

３.運行程序，調試程序，完成程序。

3.3實驗記錄（核心代碼及調試過程）

一、根據輸入半徑，計算圓的周長和面積。1．界面設計

界面設計如下圖所示。

2．程序代碼設計 option explicit dim r as single, s as single, area as single r = val(text1.text)s = 2 * pi * r area = pi * r ^ 2 text2.text = s text3.text = area end sub 3．運行/調試程序

程序開始的界面如下圖所示。

輸入半徑后的界面如下圖所示。

按“計算”按鈕后，顯示結果如下圖所示。

4．保存工程

二、已知三角形三條邊的邊長為a、b、c。編寫程序計算三角形面積：

面積=s(s?a)(s?b)(s?c)其中：s=（a+b+c）/2 1．

界面設計

界面設計如下圖所示。

2．程序代碼設計 option explicit private sub form_click()dim a as single, b as single, c as single dim area as single, s as single a = inputbox(請輸入a:)b = inputbox(請輸入b:)c = inputbox(請輸入c:)s =(a + b + c)/ 2 area = sqr(s *(sb)*(si + 1)end if next i text1.text = result end sub 3運行/調試程序

當選擇主對角線時，顯示結果如下。

當選擇主對角線時，顯示結果如下。

4．保存工程

4、實驗總結

4.1實驗結果分析及問題討論

如果要計算該矩陣四周邊線元素之和，主要代碼該如何編寫? 答：只需將矩陣規(guī)律代碼做一些改變就行 result = result + a(1，j)and result = result + a(i,1)result=result+a(i,5)and result=result+a(5,j)end if andnext i text1.text = result 4.2實驗總結心得體會

這次實驗我還是覺得掌握的不好，以后多多努力！

二維數組和矩陣的應用是我的弱項，有時我不知道怎樣尋找數據之間的那些規(guī)律，我有時很迷茫，vb真的要好好學呀！

西華大學實驗報告（理工類）

開課學院及實驗室：交通與汽車工程學院 計算機實驗室 實驗時間： 年 月 日

1、實驗目的

1.掌握sub子過程的定義和調用方法。

2．掌握調用過程時參數傳遞的兩種方式（傳值與傳址）。3．掌握變量、函數和過程的作用域。

4、掌握在數組中找最大（?。┲档乃惴?。

2、實驗設備、儀器及材料

操作系統(tǒng)：windows98/2000/2003/xp 編程工具：visual basic 6.0

3、實驗內容 3.1實驗方案設計與選擇（設計性、創(chuàng)新性實驗需寫該項內容）3.2實驗原理及實驗步驟（實驗工作原理或實驗的主要操作過程）

原理：

sub函數的應用，數組中最大最小值的求法等vb編程的應用。步驟： 1.建立界面和對象，更改各個對象的屬性;2.編寫程序代碼，運行程序;3.調試程序，改程序，得正確程序。3.3實驗記錄（核心代碼及調試過程）1．界面設計

2．程序代碼設計

a = array(73, 23, 65, 45, 67, 89, 76)for i = 0 to 6 list1.additem a(i)next i call ss(a, x)text1 = x call tt(a, y)text2 = y end sub private sub ss(a as variant, x)x = a(0)for i = 1 to 6 if a(i)> x then x = a(i)end if next i end sub private sub tt(a as variant, y)y = a(0)for i = 1 to 6 if a(i)< y then y = a(i)end if next i end sub a = array(73, 23, 65, 45, 67, 89, 76)for i = 0 to 6 s = s + a(i)t = format(s / 7, 00.#####)text3 = t next i end sub 3．運行/調試程序

4．保存工程

4、實驗總結

4.1實驗結果分析及問題討論

如何將平均值保留兩位小數？

答：將令av=av/ubound(ar)改為av=0.01*int(100*av)/ubound(ar)即可實現(xiàn)。4.2實驗總結心得體會

子函數的應用具有很重要的意義，它在很多方面都在使用，我們遇到要重視它，很多的復雜程序都能通過子函數使程序看起來清晰明白。

本次試驗有些問題還沒有徹底解決，我想我還要再努力才行。

西華大學實驗報告（理工類）

開課學院及實驗室：交通與汽車工程學院 計算機實驗室 實驗時間： 年 月 日

1、實驗目的

1.掌握function子過程定義和調用方法。

2．掌握調用過程時參數傳遞的兩種方式（傳值與傳址）。3．掌握變量、函數和過程的作用域。4.鞏固素數的判斷的算法。

2、實驗設備、儀器及材料

操作系統(tǒng)：windows98/2000/2003/xp 編程工具：visual basic 6.0

3、實驗內容

3.1實驗方案設計與選擇（設計性、創(chuàng)新性實驗需寫該項內容）3.2實驗原理及實驗步驟（實驗工作原理或實驗的主要操作過程）

原理：

function子過程的使用，素數的判斷等vb的程序編寫。步驟： 1.建立界面和對象，更改各個對象的屬性;2.編寫程序代碼，運行程序;3.調試程序，改程序，得正確程序。3.3實驗記錄（核心代碼及調試過程）1．界面設計

2．程序代碼設計

x = val(inputbox(輸入一個6—106間的偶數))loop while x < 6 or x > 106 or x mod 2 <> 0 for i = 2 to x 2 step 1 j = x-i if sushu(i)= 1 and sushu(j)= 1 then picture1.print i & +;j & =;x end if next i end sub private function sushu(n)as integer sushu = 1 k = int(sqr(n))for i = 2 to k if n mod i = 0 then sushu = 0 exit for end if next iend function 3．運行/調試程序

4．保存工程

4、實驗總結

4.1實驗結果分析及問題討論

素數的判斷可否使用sub子過程來實現(xiàn)？

答：素數的判斷可以用sub的子程來實現(xiàn)。4.2實驗總結心得體會

子過程可以用來檢驗許多的著名理論，這有利于我們更深入的學習與探索。由此可見vb作用非同一般呀!很有幸接觸到它，讓我又有進步。

西華大學實驗報告（理工類）

開課學院及實驗室：交通與汽車工程學院 計算機實驗室 實驗時間： 年 月 日

1、實驗目的

1.掌握文件以及文件緩沖的概念。

2．掌握順序文件的打開、關閉以及讀寫操作。

2、實驗設備、儀器及材料

操作系統(tǒng)：windows98/2000/2003/xp 編程工具：visual basic 6.0

3、實驗內容

3.1實驗方案設計與選擇（設計性、創(chuàng)新性實驗需寫該項內容）3.2實驗原理及實驗步驟（實驗工作原理或實驗的主要操作過程）

原理：

文件的打開、關閉與讀寫操作等的ｖｂ操作。步驟：

１.對界面進行設計，并改變對象的屬性； ２.編寫程序代碼；

３.運行程序，調試程序，完成程序。3.3實驗記錄（核心代碼及調試過程）1．界面設計

2．程序代碼設計 private type st xm as string * 3 zy as string * 5 nl as integer end type option base 1 open app.path + h:試驗student.txt for input as #1 no = 1 while not eof(1)no = no + 1 redim preserve stud(no)input #1, stud(no).xm, stud(no).zy, stud(no).nl wend close #1 open app.path + stud計算機應用 for output as #2 for i = 1 to ubound(stud)if stud(i).zy = 計算機應用 then write #2, stud(i).xm, stud(i).zy, stud(i).nl end if next i close #2 open app.path + stud22.txt for random as #3 len = len(stud(1))for i = 1 to ubound(stud)if stud(i).nl >= 22 then put #3, i, stud(i)end if next i close #3 end sub 3．運行/調試程序

4．保存工程

4、實驗總結 4.1實驗結果分析及問題討論

如何查看“stud21.txt”和“stud22.txt”兩個文件中的數據？

答：直接查看保存工程的文件夾就可以了。4.2實驗總結心得體會

這個實驗還存在問題，對文件操作還有很多的不足，在學習中還要多努力才行呀

西華大學實驗報告（理工類）開課學院及實驗室：交通與汽車工程學院 計算機實驗室 實驗時間： 年 月 日

1、實驗目的

1、掌握隨機數的產生方法。

2、掌握循環(huán)語句的使用。

3、熟悉vb編程的基本步驟：界面設計、屬性設置、編寫代碼、運行、調試、保存文件。

4、掌握常用控件的創(chuàng)建方法以及如何用控件建立用戶界面。

5、掌握分支條件語句的使用。

6、掌握各種類型文件的打開、關閉以及讀寫操作。

7、掌握在代碼中改變對象屬性的基本方法。

2、實驗設備、儀器及材料

操作系統(tǒng)：windows98/2000/2003/xp 編程工具：visual basic 6.0

3、實驗內容 3.1實驗方案設計與選擇（設計性、創(chuàng)新性實驗需寫該項內容）3.2實驗原理及實驗步驟（實驗工作原理或實驗的主要操作過程）

原理：

對vb各個知識點的綜合運用，很有實踐價值。步驟： 1.建立界面和對象，更改各個對象的屬性;2.編寫程序代碼，運行程序;3.調試程序，改程序，得正確程序。

3.3實驗記錄（核心代碼及調試過程）1．界面設計

2．程序代碼設計

dim a(1 to 20)as integer dim i as integer, j as integer, t as integer a(i)= int(rnd * 21)+ 20 list1.additem a(i)next i end sub for i = 1 to 19 for j = i + 1 to 20 if a(i)> a(j)then t = a(i)a(i)= a(j)a(j)= t end if next j next i list1.clear for i = 1 to 20 list1.additem a(i)next i end sub open testout.txt for random as #1 for i = 1 to 20 put #1, , a(i)next i close #1 end end sub end sub 3．運行/調試程序

4．保存工程

4、實驗總結

4.1實驗結果分析及問題討論

1.若“生成”按鈕和“排序” 按鈕交替有效，代碼做如何修改？ 4.2實驗總結心得體會

通過這次實驗讓我收獲很多，使自身動手能力有了很大提高，希望以能在這方面有更好的成績。雖然遇到很多困難，但有進步就是最后的回報。

第四篇：vb綜合性設計實驗報告

綜 合 性 實 驗

實 驗 名 稱: 用vb編寫簡單計算器 專 業(yè) 班 級: 土 木 工 程 0901班 學 生 姓 名： *** 學 號： ********* 指 導 教 師： *** 需求分析

該計算器程序是在Visual Basic6.0環(huán)境下編寫，編寫完成后在Windows xp下運行，通過初步測試，發(fā)現(xiàn)該計算程序能完成整數的加，減，乘，除四種運算。通過在虛擬鍵盤上用鼠標點擊輸入第一個數，然后點擊運算符，再輸入第二個數，最后點擊“=”就會在計算器上方的文本框中輸出結果，清空文本框進行下次運算。經過仔細測試發(fā)現(xiàn)，該計算器最高支持五位整數的運算，在除法運算中能精確到小數點后14位。運行環(huán)境

WINDOWS XP系統(tǒng)；VB6.0；

3開發(fā)工具和編程語言

開發(fā)工具：Visual Basic6.0 “微型整值計算器”程序編寫代碼：

Dim op1 As Integer Dim op2 As Integer Dim operator As String

Private Sub Command1_Click()

Text1.Text = Text1.Text & “1” End Sub

Private Sub Command2_Click()

Text1.Text = Text1.Text & “2” End Sub

Private Sub Command3_Click()

Text1.Text = Text1.Text & “3” End Sub

Private Sub Command4_Click()

Text1.Text = Text1.Text & “4” End Sub

Private Sub Command5_Click()

Text1.Text = Text1.Text & “5” End Sub

Private Sub Command6_Click()

Text1.Text = Text1.Text & “6” End Sub

Private Sub Command7_Click()

Text1.Text = Text1.Text & “7” End Sub

Private Sub Command8_Click()

Text1.Text = Text1.Text & “8” End Sub

Private Sub Command9_Click()

Text1.Text = Text1.Text & “9” End Sub

Private Sub Command11_Click()Text1.Text = Text1.Text & “0” End Sub

Private Sub Command10_Click()op1 = Val(Text1.Text)operator = “+” Text1.Text = “" End Sub

Private Sub Command12_Click()op1 = Val(Text1.Text)operator = ”-“ Text1.Text = ”“ End Sub

Private Sub Command13_Click()op1 = Val(Text1.Text)operator = ”*“ Text1.Text = ”“ End Sub

Private Sub Command14_Click()op1 = Val(Text1.Text)operator = ”/“ Text1.Text = ”“ End Sub

Private Sub Command15_Click()op2 = Val(Text1.Text)If operator = ”+“ Then Text1.Text = op1 + op2 ElseIf operator = ”-“ Then Text1.Text = op1-op2 ElseIf operator = ”*“ Then Text1.Text = op1 * op2 ElseIf operator = ”/" Then Text1.Text = op1 / op2 End If End Sub 4 系統(tǒng)設計

（1）程序的組織結構（包括窗體、模塊及其功能）。

窗體模塊：用來包含sub與事件過程 窗口：用來承載控件，包括按鈕控件、文本框控件、標簽控件。

控件：按鈕控件用來輸入數據與運算符號，文本框控件用來顯示輸入的數值以及最后的運算結果，標簽控件顯示標簽既該程序的自定義名稱。

Sub過程：通過代碼的編寫使窗口上的控件能在程序運行時有特殊的作用，使命令按鈕能產生相應的數值，運算按鈕產生相應的運算過程，及文本框中顯示相應結果。

（2）每個窗體（模塊）詳細描述設計思路。

I.首先打開新建工程，創(chuàng)建一個forml窗口，并在窗口中放入控件。分別放入一個標簽控件，一個文本框控件和15個按鈕控件，調整各控件的大小和位置，使其布局如下圖示。

II.調 整 各 控 件 的 屬 性 值。單擊標簽控件，將其caption屬性 設置為“微型整

值計 算器”并將fount屬性 設 置 為 粗 體，小四。將文本框清空，然后依次設置command1~command15的caption屬性分別為數字“1~10”和運算符“+”“-”“*”“/”以及“=”。

III.編寫控件觸發(fā)事件過程代碼。先聲明三個變量：兩個整值和一個字符串。然后編寫command1~command10的click事件使用賦值語句，在文本框中顯示相應數值。再編寫command11~command14的click事件，使用賦值語句賦予相應運算符，并將文本框中字符串轉換為數值型賦值給第一個變量，清空文本框。編寫command15的click事件代碼，將第二次輸入的字符串轉換為數值型賦給第二個變量，并用塊結構條件語句分別編寫四種運算過程。IV.完成后進行調試，修改，運行，測試。系統(tǒng)運行及測試

（1）幾組測試數據以及相應的測試結果：

運算10/3的結果 運算14*3的結果 運算78+20的結果（2）運行界面：

參考文獻

[1] 郭曉君、謝日行，visual basic程序設計教程，黃河水利出版社

[2] 龔沛曾、楊志強、陸慰民，visual basic程序設計實驗指導與測試，高等教育出版社 7心得體會

在這次實驗中，在vb環(huán)境下制作了一個標準exe工程，雖然結果比較令人滿意，但是在制作過程中遇到了不少困難。在其中深深體會到了了解和掌握一門計算機語言并不容易，要真正學好它必須要付出足夠的努力。我在這次實驗中就查閱了相關資料，并通過與他人的相互交流學習，這樣既有利于相互的學習與提高，又能養(yǎng)成良好的學習習慣。此外，此次實驗的成功完成，對我自己也是極大的鼓舞，鼓舞我今后更加努力的去學好這門課程。這個計算器的制作使我領會到了vb的實用性與強大的功能，所以我以后一定會以更加努力認真的態(tài)度來學習vb課程，為以后的應用與實踐打下堅實的基礎。

第五篇：VB實驗報告教案(4-7)

實驗四：

題目：Visual Basic常用控件

目的：

1、掌握命令按鈕、單選鈕、檢查框、框架常用屬性與事件

2、掌握滾動條、列表框、組合框、時鐘的常用屬性與事件 日期：1班為10月18日，2班為10月14日,3班為10月16日 內容：要求界面用鉛筆畫出來。

Private Sub Command1_Click()

List1.AddItem Text1

If Option1 Then

List1.AddItem “男”

Else

List1.AddItem “女”

End If

List1.AddItem Text2

List1.AddItem Combo1

List1.AddItem Combo2

List1.AddItem “愛好：”

If Check1 Then

List1.AddItem “上網”

End If

If Check2 Then

List1.AddItem “籃球”

End If

If Check3 Then

List1.AddItem “音樂”

End If

If Check4 Then

List1.AddItem “交友”

End If End Sub Private Sub Command2_Click()

List1.Clear End Sub

Private Sub Command3_Click()

End End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.SetFocus

End If End Sub

Private Sub Form_Load()

Form1.Caption = “電子鐘”

Form1.BorderStyle = 3

Timer1.Enabled = True

Timer2.Enabled = False

Timer1.Interval = 1000

Timer2.Interval = 1000

Label1.Caption = Time()

'顯示系統(tǒng)時間

Label1.Alignment = 2

Label1.BorderStyle = 1

Label2.Caption = “鬧鐘時間:”

Text1.Text = “" End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

'按下回車開始鬧鐘

If KeyAscii = 13 Then

Timer2.Enabled = True

Text1.Enabled = False

End If End Sub

Private Sub Timer1_Timer()

Label1.Caption = Time()

'顯示系統(tǒng)時間 End Sub

Private Sub Timer2_Timer()

Static i As Int ger

If Label1.Caption >= Text1.Text Then

'利用靜態(tài)變量產生背景交替效果

If i = 0 Then

Label1.BackColor = vbRed

i = 1

Else

Label1.BackColor = vbWhite

i = 0

End If

End If End Sub 實驗五：

題目：對話框、菜單、工具欄和圖形程序設計

目的：

1、掌握菜單的設計方法；學會應用通用對話框控件

2、掌握在Visual Basic環(huán)境中的繪圖方法，顯示圖片

3、對話框、菜單、工具欄和圖形程序設計的綜合應用 日期：1班為11月3日，2班為11月4日，2班為11月6日 內容：要求界面用鉛筆畫出來。

' 打開菜單項的單擊事件過程 Private Sub mnuOpen_Click()

' 激活對話框前初始化設置相關屬性，激活對話框后將無法在代碼中設置其屬性

CommonDialog1.FileName = ”*.txt“

' 初始化文件名

CommonDialog1.InitDir = ”C:“

' 初始化路徑

' 設置文件類型列表框內容

CommonDialog1.Filter = ”Word文檔|*.doc|文本文件|*.txt|所有文件|*.*“

CommonDialog1.FilterIndex = 2

' 設置默認文件類型

CommonDialog1.Action = 1

' 激活”打開“對話框

txtNotepad.Text = ”“

' 清除文本框中原有內容

If CommonDialog1.FileTitle <> ”“ Then

' 選定文件后執(zhí)行下列操作

Dim InputData As String

' 保存文件中每行內容

Open CommonDialog1.FileName For Input As #1

' 打開文件，準備讀文件

Do While Not EOF(1)

Line Input #1, InputData

' 每次讀一行

' 將讀出內容連接在文本框已有文本之后并回車換行

txtNotepad.Text = txtNotepad.Text + InputData + vbCrLf

Loop

Close #1

End If End Sub ' ”另存為“菜單項的單擊事件過程 Private Sub mnuSaveAs_Click()

CommonDialog1.FileName = ”文本1.txt“

' 設置缺省文件名

CommonDialog1.DefaultExt = ”txt“

' 設置缺省擴展名

CommonDialog1.InitDir = ”C:“

CommonDialog1.Filter = ”Word文檔|*.doc|文本文件|*.txt|所有文件|*.*“

CommonDialog1.FilterIndex = 2

CommonDialog1.CancelError = True

' 選取”取消“按鈕時出錯

On Error GoTo errCancel

' 出錯跳轉至行標簽errCancel

CommonDialog1.ShowSave

' 激活”另存為“對話框

Open CommonDialog1.FileName For Output As #1

' 打開文件，準備寫入

Print #1, txtNotepad.Text

Close #1 errCancel:

' 行標簽 End Sub ' 退出菜單項的單擊事件過程 Private Sub mnuExit_Click()

End End Sub ' 以下過程用于判斷是否已經選中文本

Private Sub txtNotepad_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = 1 And txtNotepad.SelText <> ”“ Then

' 松開左鍵并選中文本

mnuCopy.Enabled = True

' 使”復制“菜單項有效

mnuCut.Enabled = True

' 使”剪切“菜單項有效

Else

' 未選中文本

mnuCopy.Enabled = False

mnuCut.Enabled = False

End If End Sub Private Sub mnuCopy_Click()

' ”復制“菜單項的單擊事件過程

Clipboard.Clear

' 清除剪貼板中的內容

Clipboard.SetText txtNotepad.SelText

' 將選中的文本放到剪貼板中

mnuCopy.Enabled = False

mnuCut.Enabled = False

mnuPaste.Enabled = True End Sub Private Sub mnuCut_Click()

' ”剪切“菜單項的單擊事件過程

Clipboard.Clear

Clipboard.SetText txtNotepad.SelText

txtNotepad.SelText = ”“

' 刪除選中的文本

mnuCopy.Enabled = False

mnuCut.Enabled = False

mnuPaste.Enabled = True End Sub Private Sub mnuPaste_Click()' 將剪貼板中的文本插入到文本框焦點處，txtNotepad.SelText = Clipboard.GetText End Sub

' 或替換選中的文本

'設置對齊方式

Private Sub Alm_Click(Index As Integer)

txtNotepad.Alignment = Index End Sub

Private Sub font_Click()

CommonDialog1.FontName = ”宋體“

'Flags為256+1，使用屏幕字體；出現(xiàn)顏色、效果等選項

CommonDialog1.Flags = 257

CommonDialog1.ShowFont

'打開”字體“對話框

txtNotepad.FontName = CommonDialog1.FontName

txtNotepad.FontSize = CommonDialog1.FontSize

txtNotepad.FontBold = CommonDialog1.FontBold

txtNotepad.FontItalic = CommonDialog1.FontItalic

txtNotepad.FontUnderline = CommonDialog1.FontUnderline

txtNotepad.FontStrikethru = CommonDialog1.FontStrikethru

txtNotepad.ForeColor = CommonDialog1.Color End Sub Private Sub Exxxt_Click()

End End Sub 實驗六：

題目：文件處理

目的：

1、掌握順序文件、隨機文件的操作與訪問

2、掌握文件系統(tǒng)控件的屬性與常用操作

日期：1班為11月17日，2班為11月18日,3班為11月20日 內容：要求界面用鉛筆畫出來。

標準模塊代碼： Type Student Id As String * 8 Name As String * 10 Class As String * 10 Subject As String * 20 Mark(1 To 3)As Integer End Type Public Stu As Student Public Filename As String Public Rec_no As Integer Public Rec_total As Integer Public Rec_long As Integer 窗體代碼： Option Explicit Option Base 1 Private Sub Form_Load()

' Load事件過程

Filename = App.Path & ”student.dat“

' 給定文件名便于操作

Rec_long = Len(Stu)

' 給定隨機文件記錄長度

Call FileOpen End Sub

Private Sub FileOpen()'打開學生信息數據文件

Dim I As Integer

Open Filename For Random As 1 Len = Rec_long

Rec_long = Len(Stu)

' 給定隨機文件記錄長度

Rec_total = LOF(1)/ Rec_long

'初始找開的為全部記錄

'如為空記錄,則清除各文本框的內容

If Rec_total = 0 Then

Call TxtClear

Exit Sub

Else

'如果有學生信息數據,則顯示第一條記錄

Rec_no = 1

Call Display

End If End Sub

Private Sub CmdAdd_Click()

' 添加記錄事件過程

Dim I As Integer, nmsg As Integer

'以下循環(huán)是查找文件中是否有輸入的學生記錄

For I = 1 To Rec_total

Get #1, I, Stu

If Trim(Stu.Id)= Trim(TxtId.Text)Then

nmsg = MsgBox(”文件中已有該同學的記錄,要顯示修改此記錄嗎？“, vbYesNo)

If nmsg = vbYes Then

Rec_no = I

Call Display

End If

Exit Sub

End If

Next I

Call GetData

Rec_total = Rec_total + 1

Rec_no = Rec_total

' 在文件的末尾添加記錄

Put #1, Rec_no, Stu End Sub

Private Sub CmdChange_Click()

' 修改當前記錄事件過程

Call GetData

' 將修改的數據保存到記錄變量中

Put #1, Rec_no, Stu

' 修改原記錄

Call Display End Sub

Private Sub cmdDelete_Click()

' 刪除當前記錄事件過程

Dim I As Integer

Dim tempno As Integer

tempno = Rec_no

Open Filename & ”.temp“ For Random As #2 Len = Rec_long

'刪除選定的記錄

For I = 1 To Rec_total

If I <> tempno Then

Get #1, I, Stu

Put #2, , Stu

End If

Next I

Close

Kill Filename

Name Filename & ”.temp“ As Filename

Call FileOpen End Sub

Private Sub cmdBefore_Click()' 顯示上一條記錄事件過程

If Rec_no > 1 Then

Rec_no = Rec_no-1

Else

MsgBox ”現(xiàn)已是首記錄！“

Exit Sub

End If

Get #1, Rec_no, Stu

Call Display End Sub

Private Sub cmdNext_Click()

' 顯示下一記錄事件過程

Dim nmsg As Integer

If Rec_no < Rec_total Then

' 未到打開記錄尾時執(zhí)行該程序

Rec_no = Rec_no + 1

Call Display

' 顯示當前記錄

Else

nmsg = MsgBox(”已到最后一記錄了！要回到首記錄嗎？“, vbYesNo)

If nmsg = vbYes Then

Rec_no = 1

'回到首記錄

Call Display

End If

End If End Sub

Private Sub TxtClear()

'清除各文本框中內容子過程 Dim I As Integer With Stu

TxtId = ”“:

TxtName = ”“

TxtClass = ”“:

TxtSubject = ”“

For I = 1 To 3

TxtMark(I)= ”“

Next I

TxtTotal = ”“ End With End Sub Private Sub Display()

'顯示當前記錄子過程 Dim I As Integer Get #1, Rec_no, Stu With Stu

TxtId =.Id

TxtName =.Name

TxtClass =.Class

TxtSubject =.Subject

For I = 1 To 3

TxtMark(I)=.Mark(I)

Next I

TxtTotal =.Mark(1)+.Mark(2)+.Mark(3)End With End Sub

Private Sub GetData()

'將在文本框輸入的數據存入到記錄變量中

Dim I As Integer

Stu.Id = TxtId.Text

Stu.Name = TxtName.Text

Stu.Class = TxtClass.Text

Stu.Subject = TxtSubject.Text

For I = 1 To 3

Stu.Mark(I)= Val(TxtMark(I).Text)

Next I End Sub Private Sub TxtMark_LostFocus(Index As Integer)

If Index = 3 Then '當輸入完最后一門課程,則計算并顯示意成績

TxtTotal = Val(TxtMark(1))+ Val(TxtMark(2))+ Val(TxtMark(3))

End If End Sub 實驗七：

題目：數據庫程序設計及綜合實例

目的：

1、掌握數據庫的創(chuàng)建；掌握數據控件的一般屬性、事件、方法

2、學會使用DATA控件和ADO控件對數據庫進行訪問 日期：1班為12月1日，2班為12月2日,3班為12月4日 內容：要求界面用鉛筆畫出來。

'”取消“ 按鈕的單擊事件過程 Private Sub cmdCancel_Click()

txtID(0).Text = ”“

txtID(1).Text = ”“ End Sub '”確定“ 按鈕的單擊事件過程 Private Sub cmdOK_Click()

Dim sql As String, fld As String, condition As String

'顯示的字段列表

fld = ”學生.學號,學生.姓名,課程.課程名,成績.成績“

'查詢條件

condition = ”學生.學號=成績.學號 and 課程.課程號=成績.課程號 “

If optChoice(0).Value Then

condition = condition + ”and 學生.學號='“ + txtID(0).Text + ”'“

Else

condition = condition + ”and 課程.課程號='“ + txtID(1).Text + ”'“

End If

sql = ”select “ + fld + ” from 學生,課程,成績 where “ + condition

'改變記錄源

Adodc1.RecordSource = sql

Adodc1.Refresh End Sub '初始化查詢窗體

Private Sub Form_Load()

Adodc1.Visible = False

Set DataGrid1.DataSource = Adodc1

'綁定操作

DataGrid1.AllowUpdate = False

'禁止更新 End Sub

'處理單選按鈕的焦點切換

Private Sub optChoice_Click(Index As Integer)

txtID(Index).SetFocus End Sub '處理文本框的焦點切換

Private Sub txtID_GotFocus(Index As Integer)

optChoice(Index).Value = True End Sub

'”添加“按鈕的單擊事件過程 Private Sub cmdAdd_Click()

'根據當前按鈕的標題進行不同的操作

Select Case cmdAdd.Caption

Case ”添加“

'向當前選項卡所對應表中添加記錄

Select Case SSTab1.Tab

Case 0

datStudent.Recordset.AddNew

Case 1

datCourse.Recordset.AddNew

Case 2

datScore.Recordset.AddNew

End Select

'在添加操作完成前禁止進行其他操作

SSTab1.TabEnabled(0)= False

SSTab1.TabEnabled(1)= False

SSTab1.TabEnabled(2)= False

cmdAdd.Caption = ”確定“

cmdEdit.Enabled = False

cmdDel.Enabled = False

cmdFirst.Enabled = False

cmdPrev.Enabled = False

cmdNext.Enabled = False

cmdLast.Enabled = False

Case ”確定“

Select Case SSTab1.Tab

Case 0

datStudent.UpdateRecord

Case 1

datCourse.UpdateRecord

Case 2

datScore.UpdateRecord

End Select

SSTab1.TabEnabled(0)= True

SSTab1.TabEnabled(1)= True

SSTab1.TabEnabled(2)= True

cmdAdd.Caption = ”添加“

cmdEdit.Enabled = True

cmdDel.Enabled = True

cmdFirst.Enabled = True

cmdPrev.Enabled = True

cmdNext.Enabled = True

cmdLast.Enabled = True

End Select End Sub '”刪除“按鈕的單擊事件過程 Private Sub cmdDel_Click()

Dim i As Integer

i = MsgBox(”確定要刪除此記錄?“, vbYesNo + vbExclamation + vbDefaultButton1, ”編輯“)

If i = vbYes Then

'刪除當前選項卡所對應表中的記錄

Select Case SSTab1.Tab

Case 0

datStudent.Recordset.Delete

datStudent.Refresh

Case 1

datCourse.Recordset.Delete

datCourse.Refresh

Case 2

datScore.Recordset.Delete

datScore.Refresh

End Select

End If End Sub '”修改“按鈕的單擊事件過程 Private Sub cmdEdit_Click()

'根據當前按鈕的標題進行不同的操作

Select Case cmdEdit.Caption

Case ”修改“

'修改當前選項卡所對應表中的記錄

Select Case SSTab1.Tab

Case 0

datStudent.Recordset.Edit

Case 1

datCourse.Recordset.Edit

Case 2

datScore.Recordset.Edit

End Select

'在修改操作完成前禁止進行其他操作

SSTab1.TabEnabled(0)= False

SSTab1.TabEnabled(1)= False

SSTab1.TabEnabled(2)= False

cmdEdit.Caption = ”確定“

cmdAdd.Enabled = False

cmdDel.Enabled = False

cmdFirst.Enabled = False

cmdPrev.Enabled = False

cmdNext.Enabled = False

cmdLast.Enabled = False

Case ”確定“

Select Case SSTab1.Tab

Case 0

datStudent.UpdateRecord

Case 1

datCourse.UpdateRecord

Case 2

datScore.UpdateRecord

End Select

SSTab1.TabEnabled(0)= True

SSTab1.TabEnabled(1)= True

SSTab1.TabEnabled(2)= True

cmdEdit.Caption = ”修改“

cmdAdd.Enabled = True

cmdDel.Enabled = True

cmdFirst.Enabled = True

cmdPrev.Enabled = True

cmdNext.Enabled = True

cmdLast.Enabled = True

End Select End Sub '”首記錄“按鈕的單擊事件過程 Private Sub cmdFirst_Click()

Select Case SSTab1.Tab

Case 0

datStudent.Recordset.MoveFirst

Case 1

datCourse.Recordset.MoveFirst

Case 2

datScore.Recordset.MoveFirst

End Select

cmdFirst.Enabled = False

cmdPrev.Enabled = False

cmdNext.Enabled = True

cmdLast.Enabled = True End Sub '”尾記錄“按鈕的單擊事件過程 Private Sub cmdLast_Click()

Select Case SSTab1.Tab

Case 0

datStudent.Recordset.MoveLast

Case 1

datCourse.Recordset.MoveLast

Case 2

datScore.Recordset.MoveLast

End Select

cmdFirst.Enabled = True

cmdPrev.Enabled = True

cmdNext.Enabled = False

cmdLast.Enabled = False End Sub '”下一條“按鈕的單擊事件過程 Private Sub cmdNext_Click()

Select Case SSTab1.Tab

Case 0

datStudent.Recordset.MoveNext

If datStudent.Recordset.EOF Then

datStudent.Recordset.MoveLast

cmdFirst.Enabled = True

cmdPrev.Enabled = True

cmdNext.Enabled = False

cmdLast.Enabled = False

End If

Case 1

datCourse.Recordset.MoveNext

If datCourse.Recordset.EOF Then

datCourse.Recordset.MoveLast

cmdFirst.Enabled = True

cmdPrev.Enabled = True

cmdNext.Enabled = False

cmdLast.Enabled = False

End If

Case 2

datScore.Recordset.MoveNext

If datScore.Recordset.EOF Then

datScore.Recordset.MoveLast

cmdFirst.Enabled = True

cmdPrev.Enabled = True

cmdNext.Enabled = False

cmdLast.Enabled = False

End If

End Select End Sub '”上一條“按鈕的單擊事件過程 Private Sub cmdPrev_Click()

Select Case SSTab1.Tab

Case 0

datStudent.Recordset.MovePrevious

If datStudent.Recordset.BOF Then

datStudent.Recordset.MoveFirst

cmdFirst.Enabled = False

cmdPrev.Enabled = False

cmdNext.Enabled = True

cmdLast.Enabled = True

End If

Case 1

datCourse.Recordset.MovePrevious

If datCourse.Recordset.BOF Then

datCourse.Recordset.MoveFirst

cmdFirst.Enabled = False

cmdPrev.Enabled = False

cmdNext.Enabled = True

cmdLast.Enabled = True

End If

Case 2

datScore.Recordset.MovePrevious

If datScore.Recordset.BOF Then

datScore.Recordset.MoveFirst

cmdFirst.Enabled = False

cmdPrev.Enabled = False

cmdNext.Enabled = True

cmdLast.Enabled = True

End If

End Select End Sub '初始化編輯窗體

Private Sub Form_Load()

datStudent.Visible = False

'連接數據庫

If Right(App.Path, 1)= ”“ Then

datStudent.DatabaseName = App.Path + ”mydb.mdb“

Else

datStudent.DatabaseName = App.Path + ”mydb.mdb“

End If

'設置記錄源

datStudent.RecordSource = ”學生“

datStudent.Refresh

'綁定控件

txtSID.DataField = ”學號“

txtSName.DataField = ”姓名“

optMale.Value = datStudent.Recordset.Fields(”性別“).Value

datCourse.Visible = False

datCourse.DatabaseName = datStudent.DatabaseName

datCourse.RecordSource = ”課程“

datCourse.Refresh

txtCID.DataField = ”課程號“

txtCName.DataField = ”課程名“

txtPeriod.DataField = ”學時“

txtCredit.DataField = ”學分“

datScore.Visible = False

datScore.DatabaseName = datStudent.DatabaseName

datScore.RecordSource = ”成績“

datScore.Refresh

txtSSID.DataField = ”學號“

txtSCID.DataField = ”課程號“

txtScore.DataField = ”成績“

SSTab1.Tab = 0 '設置當前選項卡為”學生"選項卡 End Sub