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

綜 合 性 實 驗

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

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

WINDOWS XP系統；VB6.0；

3開發工具和編程語言

開發工具：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 系統設計

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

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

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

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

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

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

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

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

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

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

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

參考文獻

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

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

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

第二篇：Vb設計實驗報告

Vb設計實驗報告

一、設計內容和目的

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

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

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

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

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

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

5、系統信息窗口：是系統的信息內容。

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

二、設計過程：

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

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

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

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

三、系統結構：

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

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

五、設計心得：

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

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

第三篇：綜合性實驗報告書寫

綜合性實驗報告格式

請同學們按照論文的格式書寫綜合性實驗報告，共有四個實驗——游離氨基酸、可溶性蛋白質、淀粉酶、同工酶。請大家理論結合實際，通過實驗數據分析水稻種子萌發過程生化指標的改變。

摘要：簡要介紹實驗所用的材料和實驗內容，實驗的結果。

要求把論文的主要觀點提示出來，便于讀者一看就能掌握論文內容的要點。是文章主要內容的摘錄，要求短、精、完整。200-300字，包含材料，方法，結果，結論。

關鍵詞：材料的名稱和測定的生理指標，都可作為關鍵詞

關鍵詞是從論文的題名、提要和正文中選取出來的，是對表述論文的中心內容有實質意義的詞匯。如水稻種子、萌發等。

1、引言（以水稻種子和各生理指標為關鍵詞，在校圖書館網頁或百度網上分別查出有關文獻，以說明本研究的意義，或把前人的實驗結果引一下，最后，把要做的內容點一下。）引言又稱前言、序言和導言，用在論文的開頭。引言一般要概括地寫出作者意圖，說明選題的目的和意義, 并指出論文寫作的范圍。引言要短小精悍、緊扣主題。300字左右，主要介紹前人研究結果，本研究的目的意義。

2、材料與方法（同實驗報告，方法部分包括方法的名稱和簡要的原理）

2.1試驗材料介紹材料是什么，怎么培養的，如何取樣

2.2試驗方法（同實驗報告，方法部分包括方法的名稱和簡要的原理）

2.2.1游離氨基酸含量測定：采用？？？？？？法【參考文獻】

2.2.2 可溶性蛋白質含量測定：采用？？？？？？法【參考文獻】

2.2.3淀粉酶活性測定：采用？？？？？？法【參考文獻】

2.2.4過氧化物同工酶測定：采用？？？？法【參考文獻】

3、結果與分析要對結果進行比較分析（分別列出四個實驗的結果，不要計算過程！根據實驗結果分別給出相應的結論。）

4、結論與討論

先通過查找文獻，闡述水稻種子萌發過程中的整體生理生化機制的變化，然后針對結果與他人研究結果比較、分析300-500字

（總的結論；

分析所獲結論的可靠性如何；

所得結論與文獻中類似問題比較；

從植物生理學的角度，在理論上分析所得結論的可能原因或該生理指標在植物中的作用）

5、參考文獻（引6篇左右。）一篇論文的參考文獻是將論文在研究和寫作中可參考或引證的主要文獻資料，列于論文的末尾。格式如下：

（1）書（專著）

作者.書名[M].出版地: 出版社, 出版年.例：於新建.植物生理學實驗手冊[M].上海：上海科學技術

出版社，1985.（2）期刊

作者.題名[J].刊名, 出版年, 卷(期): 起止頁碼.例: 金顯賀，王昌長，王忠東，等.一種用于在線檢測局部放電的數字濾波技術[J].清華大學學報(自然科學版)，1993，33(4):62-67.

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

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

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

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

1、實驗目的

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

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

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

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

操作系統：windows98/2000/2003/xp 編程工具：visual basic 6.0

3、實驗內容 3.1實驗方案設計與選擇（設計性、創新性實驗需寫該項內容）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事件需單擊窗體才能觸發，而form_load事件由vb系統自動觸發，如果改變，則需單擊窗體才能顯示結果。西華大學實驗報告（理工類）

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

1、實驗目的

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

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

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

操作系統：windows98/2000/2003/xp 編程工具：visual basic 6.0

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

原理：

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

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

界面設計

2．程序代碼設計

private sub form_click()print 觸發 form_click 事件 end sub private sub form_dblclick()print 觸發 form_dblclick 事件 end sub private sub form_mousedown(button as integer, shift as integer, x as single, y as single)print 觸發 form_mousedown 事件 end sub private sub form_mouseup(button as integer, shift as integer, x as single, y as single)print 觸發 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.適用系統定義的顏色常數

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

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

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

1、實驗目的

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

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

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

操作系統：windows98/2000/2003/xp 編程工具：visual basic 6.0

3、實驗內容 3.1實驗方案設計與選擇（設計性、創新性實驗需寫該項內容）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、字體的選擇可否使用復選框來實現？

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

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

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

1、實驗目的

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

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

操作系統：windows98/2000/2003/xp 編程工具：visual basic 6.0

3、實驗內容 3.1實驗方案設計與選擇（設計性、創新性實驗需寫該項內容）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實驗結果分析及問題討論

如果要計算該矩陣四周邊線元素之和，主要代碼該如何編寫? 答：只需將矩陣規律代碼做一些改變就行 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實驗總結心得體會

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

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

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

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

1、實驗目的

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

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

4、掌握在數組中找最大（小）值的算法。

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

操作系統：windows98/2000/2003/xp 編程工具：visual basic 6.0

3、實驗內容 3.1實驗方案設計與選擇（設計性、創新性實驗需寫該項內容）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)即可實現。4.2實驗總結心得體會

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

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

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

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

1、實驗目的

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

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

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

操作系統：windows98/2000/2003/xp 編程工具：visual basic 6.0

3、實驗內容

3.1實驗方案設計與選擇（設計性、創新性實驗需寫該項內容）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子過程來實現？

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

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

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

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

1、實驗目的

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

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

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

操作系統：windows98/2000/2003/xp 編程工具：visual basic 6.0

3、實驗內容

3.1實驗方案設計與選擇（設計性、創新性實驗需寫該項內容）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、掌握循環語句的使用。

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

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

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

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

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

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

操作系統：windows98/2000/2003/xp 編程工具：visual basic 6.0

3、實驗內容 3.1實驗方案設計與選擇（設計性、創新性實驗需寫該項內容）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第六章實驗報告

第六章實習報告

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

例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過程還是有區別的，Sub過程的過程名僅標識過程本身；Function過程的過程名除了標識過程本身以外，還有返回值的作用，因此，若過程有一個返回值時，則習慣使用Function過程，并通過函數名返回函數值；若過程不需要返回值或返回多個值時，則使用Sub過程；返回值通過實參與形參的結合帶回，當然也可通過Function過程名帶回一個結果，其余通過實參與形參的結合帶回。

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

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

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

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

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

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

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

四．信心指數

★★★★