大一vb的實(shí)驗報告

　　隨著(zhù)人們自身素質(zhì)提升，我們使用報告的情況越來(lái)越多，我們在寫(xiě)報告的時(shí)候要注意涵蓋報告的基本要素。在寫(xiě)之前，可以先參考范文，下面是小編幫大家整理的大一vb的實(shí)驗報告，歡迎閱讀與收藏。

大一vb的實(shí)驗報告1

　　一、實(shí)驗目的

　　本實(shí)驗主要練習VB.NET的控件的綜合運用。熟悉VB.NET的集成開(kāi)發(fā)環(huán)境，掌握VB.NET編程技巧和開(kāi)發(fā)過(guò)程。

　　實(shí)驗學(xué)時(shí)數：4學(xué)時(shí)

　　二、考核方法及標準

　　1、考核方法：

　　本次實(shí)驗成績(jì)的評定分為三個(gè)部分： 出勤

　　實(shí)驗完成情況 實(shí)驗報告完成情況

　　2、考核標準：

　　本次實(shí)驗成績(jì)總分為100分，具體分數分布如表1-1所示。

　　表1-1 成績(jì)分布情況

　　每部分的具體評分標準如下：

　�。�1）出勤：遲到扣1分，早退扣1分（在為完成本實(shí)驗的情況想），否則得滿(mǎn)分。

　�。�2）實(shí)驗完成部分：

　　未完成，或存在嚴重缺陷得35分以下；

　　內容基本完成，但存在小缺陷得36~41分；

　　內容全部完成，沒(méi)有錯誤得42~48分；

　　內容全部完成并具有創(chuàng )新的加49~60分。

　�。�3）實(shí)驗報告完成部分：

　　實(shí)驗報告內容不完整得0~14分；

　　實(shí)驗報告內容基本完整得15~24分；

　　實(shí)驗報告內容正確、排版清晰、有條理得25~30分。

　　三、實(shí)驗內容

　　某商店為了迎接“五一”將進(jìn)行促銷(xiāo)活動(dòng)，促銷(xiāo)的商品包括服裝、鞋、箱包、化妝品和床上用品五類(lèi)。在促銷(xiāo)期間，每類(lèi)產(chǎn)品的規定品牌前40件以3折出售，每類(lèi)產(chǎn)品每人限購1件，售完為止。買(mǎi)這五類(lèi)產(chǎn)品的促銷(xiāo)商品列表如下表：

　�。�1）基本要求：每次在列表框中點(diǎn)擊相應的商品時(shí)，會(huì )顯示商品的'名稱(chēng)、數量、單價(jià)折扣，并把用戶(hù)所采購的所有商品在文本框內進(jìn)行匯總，當輸入實(shí)付款后單擊“收款”按鈕后計算應找的零錢(qián)。

　�。�2）進(jìn)一步要求：添加菜單，使得對于特價(jià)商品的種類(lèi)、品牌商品、價(jià)格和折扣進(jìn)行編輯。

　�。�3）創(chuàng )新提示：無(wú)。要求自行尋找可改進(jìn)的地方和創(chuàng )新點(diǎn)。

　　四、思考題

　　1、什么情況下應該使用Label控件？

　　2、VB.NET中菜單控件有哪幾種類(lèi)型？是否可以為命令按鈕添加上下文菜單？

　　3、OpenFileDialog控件和SaveFileDialog控件能否自己打開(kāi)并讀寫(xiě)文件的內容？

　　4、定時(shí)器控件的Interval屬性是以什么為單位的？是否只要設定了Interval屬性，定時(shí)器就能自動(dòng)啟動(dòng)？

大一vb的實(shí)驗報告2

　　一、實(shí)驗目的

　　1、掌握正確書(shū)寫(xiě)表達式、賦值語(yǔ)句的規則。

　　2、掌握InputBox與MsgBox的使用。

　　3、掌握Print方法和Format格式使用。

　　4、掌握單分支與雙分支條件語(yǔ)句的使用。

　　5、掌握多分支條件語(yǔ)句的使用。

　　6、掌握For語(yǔ)句和Do語(yǔ)句的各種形式的使用。

　　7、掌握如何控制循環(huán)條件，防止死循環(huán)和不循環(huán)。

　　二、實(shí)驗內容和原理

　　1、輸入半徑，計算圓周長(cháng)和圓面積。

　　為了保證程序運行的正確，對輸入半徑要進(jìn)行合法性檢查，數據檢查調用IsNumeric函數；若有錯，利用MsgBox顯示錯誤信息，通過(guò)SetFocus方法定位于出錯的文本框處，重新輸入；計算結果保留兩位小數。

　　提示：使用Text1_KeyPress事件，按Enter鍵，返回參數“KeyAscii”的值為13表示輸入結束。

　　2、隨機產(chǎn)生三個(gè)整數，按從小到大的順序顯示。

　　3、計算π的近似值，π的計算公式為：

　　?2n?224262

　　π=2×××…× 2n-1?2n+11?33?55?7 注意：①、分別顯示當n=10、100、1000時(shí)的`結果，由此可見(jiàn)，此計算公式收斂如何？

　�、�、要防止大數相乘時(shí)結果溢出的問(wèn)題，將變量類(lèi)型改為長(cháng)整型 或實(shí)數型。

　　三、主要儀器設備

　　計算機

　　四、實(shí)驗結果與分析

　　實(shí)驗界面：

　　1、輸入半徑，計算圓周長(cháng)和圓面積。

　　程序：

　　Private Sub Form_Activate

　　Text1.Text = "輸入半徑值"

　　Text1.SetFocus

　　Text1.SelStart = 0

　　Text1.SelLength = Len(Text1.Text)

　　End Sub

　　Private Sub Text1_KeyPress(KeyAscii As Integer) '圓面積，周長(cháng)

　　Dim r

　　r = Text1.Text

　　Const PI = 3.14159

　　If KeyAscii = 13 Then

　　Cls

　　If IsNumeric(r) Then

　　Print "當圓的半徑為"; r; "時(shí)："

　　Print "圓面積為： "; Format(PI * r ^ 2, "0.00")

　　Print "圓面積為"; Format(PI * r ^ 2, "0.00")

　　Else

　　Text1 = "半徑值輸入有誤"

　　End If

　　Text1.SetFocus

　　Text1.SelStart = 0

　　Text1.SelLength = Len(Text1.Text)

　　Else

　　End If

　　End Sub

　　運行結果：

　　輸入值

　　:2

　　2、隨機產(chǎn)生三個(gè)整數，按從小到大的順序顯示。

　　程序：

　　Private Sub Command1_Click

　　Cls

　　Dim x%, y%, z%, a%

　　Randomize

　　x = Int(Rnd * 101)

　　y = Int(Rnd * 101)

　　z = Int(Rnd * 101)

　　Print "隨機產(chǎn)生三個(gè)整數： "; x; Spc(2); y; Spc(2); z; Spc(2)

　　If x > y Then

　　a = x: x = y: y = a

　　End If

　　If y > z Then

　　a = y: y = z: z = a

　　If x > y Then

　　a = x: x = y: y = a

　　End If

　　End If

　　Print "從小到大排序： "; x; Spc(2); y; Spc(2); z; Spc(2)

　　End Sub

　　運行結果：

　　3、計算π的近似值

　�、�、分別顯示當n=10、100、1000時(shí)的結果，由此可見(jiàn)，此計算公式收斂如何？

　�、�、要防止大數相乘時(shí)結果溢出的問(wèn)題，將變量類(lèi)型改為長(cháng)整型或實(shí)數型。 程序：

　　Private Sub Command2_Click

　　Cls

　　Dim n As Long, PI, i As Long

　　n = 1

　　Do

　　n = n * 10

　　PI = 2

　　For i = 1 To n

　　PI = PI * ((2 * i) ^ 2 / ((2 * i - 1) * (2 * i + 1)))

　　Next i

　　Print "當n="; n; "時(shí)，π="; PI

　　Loop While n < 1000

　　End Sub

　　運行結果：