VB實驗報告

台州學院

《vb程式設計》實驗報告

實驗四：迴圈結構程式設計

班級：11物理

學號：1130010009

姓名：廖建旭

實驗日期：2012.03.30

一、實驗目的和要求

1．掌握for語句的使用；

2．掌握do…loop與do…loop兩種形式的使用；

3．掌握如何控制迴圈條件，防止死迴圈或不迴圈；

4．熟練掌握迴圈條件設定及迴圈的控制方法。

二、實驗主要儀器和裝置

計算機一台，windows xp作業系統，visual basic環境。

三、實驗內容

實驗4.1 編寫過程commandl_click，顯示對話方塊輸入n（n>0），迴圈n次，每次隨機產生乙個兩位數，求出其中的偶數之和，並在標籤框label1上顯示。

實驗4.2 編寫過程commandl_click，用inputbox函式輸入10個學生的成績，統計後依次用標籤控制項labell～labe13顯示優秀（85-100）、通過（60-84）和未通過（小於60）的人數。

實驗4.3 編制事件程式 command1_click，執行該過程時輸入n，並計算下列表示式的值，然後將計算結果在文字框控制項text1中顯示。

實驗4.4 列印出所有的水仙花數，所謂水仙花數是指乙個三位數，其各位數字立方和等於該數。例如，153是一水仙花數，因為。

實驗4.5 用近似公式求值，當時不再累加。

實驗4.6（選做）乙個兩位數的正整數，如果將其個位數與十位數對調所生成的數稱為對調數，如28是82的對調數。現給定乙個兩位的正整數，請找到另乙個兩位的正整數，使這兩個數之和等於它們各自的對調數之和，如56+32=65+23。

四、實驗原始紀錄

實驗4.1

程式的介面設計。

程式**。 private sub command1_click()

dim a, b, i as integer

randomize

n = inputbox("請輸入n:")

for i = 1 to n

a = int(rnd * 90) + 10

if a mod 2 = 0 then

print a: b = b + a

end if

next i

= bend sub

實驗4.2

程式的介面設計。

程式**。

private sub command1_click()

dim a, b, c, n, i as integer

a = 0: b = 0: c = 0

for i = 1 to 10

n = inputbox("請輸入成績")

if n > 100 or n < 0 then

print "第" & i & "次輸入有誤"

else

if n >= 85 then

a = a + 1

else

if n >= 60 then

b = b + 1

else

c = c + 1

end if

next i

= "優秀" & a & "人"

= "通過" & b & "人"

= "未通過" & c & "人"

end sub

實驗4.3

程式的介面設計。

程式**。

private sub command1_click()

dim a, b, i, n as integer

dim s as double

s = 1

n = inputbox("請輸入n:")

if n = 1 then

= 1else

for i = 2 to n

a = i: b = (i + 1) * (i + 2)

s = s + a / b

next i

end if

= send sub

實驗4.4

程式的介面設計。

程式**。

private sub command1_click()

dim a, b, c, i, m as integer

m = o

for i = 100 to 999

a = left(i, 1)

b = mid(i, 2, 1)

c = right(i, 1)

if (a ^ 3) + (b ^ 3) + (c ^ 3) = i then

print i: m = m + 1

end if

next i

print "哈哈水仙花就只有這麼多，，，幾個呢？？答：" & m; "個"

end sub

實驗4.5

程式的介面設計。

程式**。

private sub command1_click()

dim i as integer, m as single

doi = i + 1

m = m + 1 / i ^ 2

loop until 1 / i ^ 2 < 10 ^ -5

print sqr(6 * m)

end sub

實驗4.6（選做）

程式的介面設計。

程式**。

private sub command1_click()

dim a, b, m, n, x, y, d, f, z as integer

for b = 11 to 99

d = left(b, 1)

f = right(b, 1)

n = 10 * f + d

for a = 11 to 99

x = left(a, 1)

y = right(a, 1)

m = 10 * y + x

if a + b = m + n and a mod 10 <> 0 and _

b mod 10 <> 0 and m mod 10 <> 0 and _

n mod 10 <> 0 then

print b; a; n; m

end if

next a

next b

end sub

五、實驗結果及分析

實驗4.1執行結果。

實驗4.2執行結果。

實驗4.3執行結果。

實驗4.4執行結果。

實驗4.5執行結果。

實驗4.6執行結果。（選做）

六、實驗總結與思考（主要寫一些在實驗過程中，遇到的問題、所犯的錯誤，以及是如何發現糾正的。大約100至左右。）

感覺vb學到現在有了質的變化了，因為有了迴圈語句之後難得的題目就必定接踵而至。不過沒有關係，畢竟馬上就要二級考試了，就當做是考前練兵也好的。不過，複雜的程式也有有意思的成分，比如把跟同學開玩笑什麼的都加到程式裡，就會讓略顯無聊的實驗變得有趣不少。

VB實驗報告

VB實驗報告

VB實驗報告

VB實驗報告

相關推薦