- 相關(guān)推薦
大一vb的實(shí)驗(yàn)報(bào)告
隨著人們自身素質(zhì)提升，我們使用報(bào)告的情況越來(lái)越多，我們?cè)趯憟?bào)告的時(shí)候要注意涵蓋報(bào)告的基本要素。在寫之前，可以先參考范文，下面是小編幫大家整理的大一vb的實(shí)驗(yàn)報(bào)告，歡迎閱讀與收藏。
大一vb的實(shí)驗(yàn)報(bào)告1
一、實(shí)驗(yàn)?zāi)康?/strong>
本實(shí)驗(yàn)主要練習(xí)VB.NET的控件的綜合運(yùn)用。熟悉VB.NET的集成開發(fā)環(huán)境，掌握VB.NET編程技巧和開發(fā)過(guò)程。
實(shí)驗(yàn)學(xué)時(shí)數(shù)：4學(xué)時(shí)
二、考核方法及標(biāo)準(zhǔn)
1、考核方法：
本次實(shí)驗(yàn)成績(jī)的評(píng)定分為三個(gè)部分： 出勤
實(shí)驗(yàn)完成情況 實(shí)驗(yàn)報(bào)告完成情況
2、考核標(biāo)準(zhǔn)：
本次實(shí)驗(yàn)成績(jī)總分為100分，具體分?jǐn)?shù)分布如表1-1所示。
表1-1 成績(jī)分布情況
每部分的具體評(píng)分標(biāo)準(zhǔn)如下：
�。�1）出勤：遲到扣1分，早退扣1分（在為完成本實(shí)驗(yàn)的情況想），否則得滿分。
�。�2）實(shí)驗(yàn)完成部分：
未完成，或存在嚴(yán)重缺陷得35分以下；
內(nèi)容基本完成，但存在小缺陷得36~41分；
內(nèi)容全部完成，沒有錯(cuò)誤得42~48分；
內(nèi)容全部完成并具有創(chuàng)新的加49~60分。
�。�3）實(shí)驗(yàn)報(bào)告完成部分：
實(shí)驗(yàn)報(bào)告內(nèi)容不完整得0~14分；
實(shí)驗(yàn)報(bào)告內(nèi)容基本完整得15~24分；
實(shí)驗(yàn)報(bào)告內(nèi)容正確、排版清晰、有條理得25~30分。
三、實(shí)驗(yàn)內(nèi)容
某商店為了迎接“五一”將進(jìn)行促銷活動(dòng)，促銷的商品包括服裝、鞋、箱包、化妝品和床上用品五類。在促銷期間，每類產(chǎn)品的規(guī)定品牌前40件以3折出售，每類產(chǎn)品每人限購(gòu)1件，售完為止。買這五類產(chǎn)品的促銷商品列表如下表：
�。�1）基本要求：每次在列表框中點(diǎn)擊相應(yīng)的商品時(shí)，會(huì)顯示商品的'名稱、數(shù)量、單價(jià)折扣，并把用戶所采購(gòu)的所有商品在文本框內(nèi)進(jìn)行匯總，當(dāng)輸入實(shí)付款后單擊“收款”按鈕后計(jì)算應(yīng)找的零錢。
�。�2）進(jìn)一步要求：添加菜單，使得對(duì)于特價(jià)商品的種類、品牌商品、價(jià)格和折扣進(jìn)行編輯。
�。�3）創(chuàng)新提示：無(wú)。要求自行尋找可改進(jìn)的地方和創(chuàng)新點(diǎn)。
四、思考題
1、什么情況下應(yīng)該使用Label控件？
2、VB.NET中菜單控件有哪幾種類型？是否可以為命令按鈕添加上下文菜單？
3、OpenFileDialog控件和SaveFileDialog控件能否自己打開并讀寫文件的內(nèi)容？
4、定時(shí)器控件的Interval屬性是以什么為單位的？是否只要設(shè)定了Interval屬性，定時(shí)器就能自動(dòng)啟動(dòng)？
大一vb的實(shí)驗(yàn)報(bào)告2
一、實(shí)驗(yàn)?zāi)康?/strong>
1、掌握正確書寫表達(dá)式、賦值語(yǔ)句的規(guī)則。
2、掌握InputBox與MsgBox的使用。
3、掌握Print方法和Format格式使用。
4、掌握單分支與雙分支條件語(yǔ)句的使用。
5、掌握多分支條件語(yǔ)句的使用。
6、掌握For語(yǔ)句和Do語(yǔ)句的各種形式的使用。
7、掌握如何控制循環(huán)條件，防止死循環(huán)和不循環(huán)。
二、實(shí)驗(yàn)內(nèi)容和原理
1、輸入半徑，計(jì)算圓周長(zhǎng)和圓面積。
為了保證程序運(yùn)行的正確，對(duì)輸入半徑要進(jìn)行合法性檢查，數(shù)據(jù)檢查調(diào)用IsNumeric函數(shù)；若有錯(cuò)，利用MsgBox顯示錯(cuò)誤信息，通過(guò)SetFocus方法定位于出錯(cuò)的文本框處，重新輸入；計(jì)算結(jié)果保留兩位小數(shù)。
提示：使用Text1_KeyPress事件，按Enter鍵，返回參數(shù)“KeyAscii”的值為13表示輸入結(jié)束。
2、隨機(jī)產(chǎn)生三個(gè)整數(shù)，按從小到大的順序顯示。
3、計(jì)算π的近似值，π的計(jì)算公式為：
?2n?224262
π=2×××…× 2n-1?2n+11?33?55?7 注意：①、分別顯示當(dāng)n=10、100、1000時(shí)的`結(jié)果，由此可見，此計(jì)算公式收斂如何？
②、要防止大數(shù)相乘時(shí)結(jié)果溢出的問(wèn)題，將變量類型改為長(zhǎng)整型 或?qū)崝?shù)型。
三、主要儀器設(shè)備
計(jì)算機(jī)
四、實(shí)驗(yàn)結(jié)果與分析
實(shí)驗(yàn)界面：
1、輸入半徑，計(jì)算圓周長(zhǎ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) '圓面積，周長(zhǎng)
Dim r
r = Text1.Text
Const PI = 3.14159
If KeyAscii = 13 Then
Cls
If IsNumeric(r) Then
Print "當(dāng)圓的半徑為"; 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
運(yùn)行結(jié)果：
輸入值
:2
2、隨機(jī)產(chǎn)生三個(gè)整數(shù)，按從小到大的順序顯示。
程序：
Private Sub Command1_Click
Cls
Dim x%, y%, z%, a%
Randomize
x = Int(Rnd * 101)
y = Int(Rnd * 101)
z = Int(Rnd * 101)
Print "隨機(jī)產(chǎn)生三個(gè)整數(shù)： "; 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
運(yùn)行結(jié)果：
3、計(jì)算π的近似值
�、�、分別顯示當(dāng)n=10、100、1000時(shí)的結(jié)果，由此可見，此計(jì)算公式收斂如何？
�、�、要防止大數(shù)相乘時(shí)結(jié)果溢出的問(wèn)題，將變量類型改為長(zhǎng)整型或?qū)崝?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 "當(dāng)n="; n; "時(shí)，π="; PI
Loop While n < 1000
End Sub
運(yùn)行結(jié)果：