大一vb的實驗報告

篇一：VB實驗報告

一、實驗目的和要求

1、掌握正確書寫表達式、賦值語句的規則。

2、掌握InputBox與MsgBox的使用。

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

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

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

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

7、掌握如何控制循環條件，防止死循環和不循環。

二、實驗內容和原理

1、輸入半徑，計算圓周長和圓面積。

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

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

2、隨機產生三個整數，按從小到大的順序顯示。

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

?2n?224262

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

②、要防止大數相乘時結果溢出的問題，將變量類型改為長整型 或實數型。

三、主要儀器設備

計算機

四、實驗結果與分析

實驗界面：

1、輸入半徑，計算圓周長和圓面積。

程序：

Private Sub Form_Activate

= "輸入半徑值"

ocus

tart = 0

ength = Len()

End Sub

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

Dim r

r =

Const PI = 3.14159

If KeyAscii = 13 Then

Cls

If IsNumeric(r) Then

Print "當圓的半徑為"; r; "時："

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

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

Else

Text1 = "半徑值輸入有誤"

End If

ocus

tart = 0

ength = Len()

Else

End If

End Sub

運行結果：

輸入值

:2

2、隨機產生三個整數，按從小到大的順序顯示。

程序：

Private Sub Command1_Click

Cls

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

Randomize

x = Int(Rnd * 101)

y = Int(Rnd * 101)

z = Int(Rnd * 101)

Print "隨機產生三個整數： "; 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時的結果，由此可見，此計算公式收斂如何？

②、要防止大數相乘時結果溢出的問題，將變量類型改為長整型或實數型。 程序：

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; "時，π="; PI

Loop While n < 1000

End Sub

運行結果：

篇二：vb實驗報告

一、目的與任務

本實驗主要練習的控件的綜合運用。熟悉的集成開發環境，掌握編程技巧和開發過程。

實驗學時數：4學時

二、考核方法及標準

1、考核方法：

本次實驗成績的評定分為三個部分： 出勤

實驗完成情況 實驗報告完成情況 2、考核標準：

本次實驗成績總分為100分，具體分數分佈如表1-1所示。

表1-1 成績分佈情況

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

（1）出勤：遲到扣1分，早退扣1分（在為完成本實驗的情況想），否則得滿分。

（2）實驗完成部分：

未完成，或存在嚴重缺陷得35分以下； 內容基本完成，但存在小缺陷得36~41分； 內容全部完成，沒有錯誤得42~48分； 內容全部完成並具有創新的加49~60分。

（3）實驗報告完成部分：

實驗報告內容不完整得0~14分； 實驗報告內容基本完整得15~24分；

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

三、實驗內容

某商店為了迎接“五一”將進行促銷活動，促銷的商品包括服裝、鞋、箱包、化粧品和牀上用品五類。在促銷期間，每類產品的規定品牌前40件以3折出售，每類產品每人限購1件，售完為止。買這五類產品的促銷商品列表如下表：

（1）基本要求：每次在列表框中點擊相應的商品時，會顯示商品的名稱、數量、單價折扣，並把用户所採購的所有商品在文本框內進行彙總，當輸入實付款後單擊“收款”按鈕後計算應找的零錢。

（2）進一步要求：添加菜單，使得對於特價商品的種類、品牌商品、價格和折扣進行編輯。

（3）創新提示：無。要求自行尋找可改進的地方和創新點。

四、思考題

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

2、中菜單控件有哪幾種類型？是否可以為命令按鈕添加上下文菜單？ 3、OpenFileDialog控件和SaveFileDialog控件能否自己打開並讀寫文件的內容？

4、定時器控件的Interval屬性是以什麼為單位的？是否只要設定了Interval屬性，定時器就能自動啟動？