VB實驗報告

內蒙古工業大學能動學院

課程名稱：高階語言程式設計（vb

實驗名稱：選擇、迴圈、陣列和過程綜合程式設計

實驗型別：驗證性□ 綜合性√ 設計性□

實驗室名稱：校計算中心

班級：學號：

姓名：組別

同組人成績

實驗日期：

實驗報告撰寫要求

一、實驗前用預習報告紙撰寫預習報告，預習報告包括以下內容

1．實驗目的

2．實驗用儀器裝置、器材或軟體環境

3．實驗原理、方案設計、程式框圖、預編程式等

4．實驗過程中需要記錄的實驗資料**

二、實驗過程中，要認真觀察，仔細記錄

三、完成實驗後用實驗報告紙撰寫實驗報告，包括以下內容

1．儀器裝置型號及編號

2．實驗器材或軟體環境

3．實驗步驟、程式除錯方法

4．實驗資料處理及結果分析

5．實驗中存在的問題

6．體會及思考題

四、報告撰寫時，要求格式規範、書寫整齊

預習報告成績指導教師審核（簽名年月日

預習報告

（一）實驗目的

學會綜合運用選擇結構、迴圈結構、陣列和過程進行程式設計的方法。

（二）實驗儀器及軟體環境：

普通台式電腦、microsoft visual basic 6.0標準環境下

（三）實驗原理：

利用rnd函式產生80個隨機整數，再利用for迴圈將產生的隨機整數存入到陣列中，最後用if語句按每行10個數輸出到第乙個文字框中；用if語句和mod函式判斷是否為奇偶數，後利用氣泡排序法將奇偶數排序分別輸出到

二、三文字框中。呼叫function函式判斷素數，利用for迴圈和if函式輸出，用累計求和法將素數的個數求出放入第

四、五個文字框中。

（四）方案設計：

介面設計如下：

（五）程式框圖如下

（六）預編**：

option base 1

dim i%, j%, a%(), b%(), c%(80), l%, m%, n%, w%, p%, q%

private sub command1_click()

for i = 1 to 80

randomize

c(i) = int(rnd * 90 + 10)

= s = s + 1

if s mod 10 = 0 then

= & vbcrlf

end if

next i

for i = 1 to 79

for j = 1 to 79

if c(j) > c(j + 1) then

t = c(j)

c(j) = c(j + 1)

c(j + 1) = t

end if

next j

next i

for i = 1 to 80

if c(i) mod 2 = 0 then

m = m + 1

redim preserve a(m) as integer

a(m) = c(i)

else

n = n + 1

redim preserve b(n) as integer

b(n) = c(i)

end if

next i

for i = 1 to n / 2

l = b(i)

b(i) = b(n + 1 - i)

b(n + 1 - i) = l

next i

end sub

private sub command2_click()

for i = 1 to m

= p = p + 1

if p mod 10 = 0 then

= & vbcrlf

end if

next i

end sub

private sub command3_click()

for i = 1 to n

= q = q + 1

if q mod 10 = 0 then

= & vbcrlf

end if

next i

end sub

private sub command4_click()

for i = 1 to 80

if sushu(c(i)) = ture then

w = w + c(i)

o = o + 1

= j = j + 1

end if

if j mod 10 = 0 then

= & vbcrlf

end if

= o= wnext i

end sub

private function sushu(n as integer) as boolean

dim i as integer

sushu = ture

for i = 2 to n - 1

if n mod i = 0 then sushu = false

exit for

next i

end function

private sub command5_click()

endend sub

實驗報告成績指導教師審核（簽名年月日

實驗報告

（一）實驗儀器及軟體環境：

普通台式電腦、microsoft visual basic 6.0標準環境下

（二）實驗步驟

1、在vb環境中，建立新的窗體，在窗體上新增6個文字框，6個標籤，

5個按鈕控制項

2、設定各控制項屬性，如下表

3、編寫相關事件**：

**如下：

option base 1

dim i%, j%, a%(), b%(), x%(80), l%, m%, n%, w%, p%, q%

private sub command1_click()

for i = 1 to 80

randomize (timer)

x(i) = int(10 + rnd * 90)

= & " " & x(i)

s = s + 1

if s mod 10 = 0 then

= & vbcrlf

end if

next i

for i = 1 to 79

for j = 1 to 79

if x(j) > x(j + 1) then

t = x(j)

x(j) = x(j + 1)

x(j + 1) = t

end if

next j

next i

for i = 1 to 80

if x(i) mod 2 = 0 then

m = m + 1

redim preserve a(m) as integer

a(m) = x(i)

else

n = n + 1

redim preserve b(n) as integer

b(n) = x(i)

end if

next i

for i = 1 to n / 2

l = b(i)

b(i) = b(n + 1 - i)

b(n + 1 - i) = l

next i

end sub

private sub command2_click()

for i = 1 to m

= & " " & a(i)

p = p + 1

if p mod 10 = 0 then

= & vbcrlf

end if

next i

end sub

private sub command3_click()

for i = 1 to n

= & " " & b(i)

q = q + 1

if q mod 10 = 0 then

= & vbcrlf

end if

next i

end sub

private sub command4_click()

for i = 1 to 80

if sushu(x(i)) = true then

w = w + x(i)

o = o + 1

= & " " & x(i)

j = j + 1

end if

if j = 10 then

= & vbcrlf

end if

= o= wnext i

end sub

private function sushu(n as integer) as boolean

dim i as integer

sushu = true

for i = 2 to n - 1

if n mod i = 0 then sushu = false: exit for

next i

end function

private sub command5_click()

endend sub

4、按f5鍵執行程式，如若無法執行則中止，重新除錯**。

執行後介面如下：

（三）實驗中遇到的問題

在執行中當弄素數時，總出現個數為80 ，而且有的不是素數，應用function函式時，無法執行，應用氣泡排序無法正常執行。

（四）實驗體會

通過此次試驗，我初步掌握了氣泡排序法的使用，也弄懂了function函式的應用方法。經過多次的實驗，明白了做許多實驗需要耐心，細心檢查每一步，明白了試驗成功的艱難，為我以後繼續做實驗奠定了基礎，本次實驗對於我很有意義，使我對計算機中的方法和函式有了深入了解。

VB實驗報告

VB實驗報告

VB實驗報告

VB實驗報告

相關推薦