VB實驗四 實驗報告 - 2016

1、實 驗 報 告 四課 程VB程序設計實驗項目VB過程與函數(shù)設計(6學時)成 績專業(yè)班級姓 名學 號實驗日期實驗目的（1）掌握Function過程和Sub過程的定義與調用（2）理解參數(shù)按址傳遞和按值傳遞的本質（3）理解變量和過程的作用域（4）能熟練運用Function過程和Sub過程解決實際問題、簡化程序實驗內(nèi)容【實驗1】編寫Sub子程序實現(xiàn)計算n！。程序界面如下圖所示。（5分）掌握Sub過程的定義及使用實驗結果：【實驗1 代碼】Dim n As Integer, s As LongPrivate Sub Command1_Click()n = Val(Text1.Text)Call f(s,

2、n)Text2.Text = sEnd SubSub f(m As Long, n As Integer) Dim i As Integer m = 1 For i = 2 To n m = m * i Next iEnd SubPrivate Sub Command3_Click()EndEnd Sub【實驗1 典型結果】【實驗2】編寫Function函數(shù)過程實現(xiàn)計算n！。程序界面如下圖所示。（5分）掌握Function過程的定義及使用實驗結果：【實驗2 代碼】Dim n As Integer, s As LongPrivate Sub Command1_Click()n = Val(Tex

3、t1.Text)s = f(n)Text2.Text = sEnd SubFunction f(n As Integer)Dim i As Integerm = 1For i = 2 To nm = m * iNext if = mEnd FunctionPrivate Sub Command2_Click()EndEnd Sub【實驗2 典型結果】【實驗3】分別編寫按地址傳遞交換、按值傳遞交換兩個數(shù)的過程子程序代碼swap1（）和swap2（）。程序界面設計如下圖所示。（10分）掌握Sub過程參數(shù)傳遞方法實驗結果：【實驗3 代碼】Sub Swap1(x%, y%) t = x: x = y:

4、 y = tEnd SubSub Swap2(ByVal x%, ByVal y%) t = x: x = y: y = tEnd SubPrivate Sub Command1_Click() Dim a%, b% a = 10: b = 20 Print 按地址交換前的各值為:; a=; a; b=; b Swap1 a, b 傳址 Print 按地址交換后的各值為:; a=; a; b=; bEnd SubPrivate Sub Command2_Click() Dim a%, b% a = 10: b = 20 Print 按值交換前的各值為:; a=; a; b=; b Swap2

5、a, b 傳值 Print 按值交換后的各值為:; a=; a; b=; bEnd Sub【實驗3 典型結果】【實驗4】中國好聲音歌手大賽共n名選手參加決賽，m位評委參加評分，評分標準：去掉兩個最高分和兩個最低分以后取平均分。編寫程序實現(xiàn)如下要求：（10分） 每位選手演唱完畢，當場顯示參賽選手的編號及各位評委的評分和最后得分。 決賽結束后，顯示各參賽選手的名次、編號和成績。 用子程序sub過程實現(xiàn)。程序界面設計如下圖所示。掌握Sub過程中數(shù)組作為參數(shù)傳遞的方法實驗結果：【實驗4 代碼】Option Base 1Dim p() As Single, x() As String, a() As S

6、inglePrivate Sub Command1_Click() Dim b As Single, m As Integer, sp As String n = Val(InputBox(輸入?yún)⒓颖荣惛枋秩藬?shù):) m = Val(InputBox(輸入評委人數(shù):) ReDim p(m), x(n), a(n) For i = 1 To n x(i) = Val(InputBox(輸入選手編號:) sp = For j = 1 To m p(j) = Val(InputBox(輸入選手得分:) sp = sp & p(j) & Next j Label2.Caption = & x(i) La

7、bel4.Caption = & sp Call mean(p(), b, m) a(i) = b Label6.Caption = & a(i) Next i For i = 1 To n - 1 k = i For j = i + 1 To n If a(k) a(j) Then k = j Next j t = a(i): a(i) = a(k): a(k) = t t = x(i): x(i) = x(k): x(k) = t Next i Picture1.Print 名次 編號 成績 For i = 1 To n Picture1.Print Tab(3); i, x(i), a(

8、i) Next i End SubPrivate Sub mean(p() As Single, b As Single, m As Integer) For i = 1 To m - 1 For j = i + 1 To m If p(i) Max Then Max = a(i) Next i FindMax = MaxEnd FunctionPrivate Sub Command1_Click() Cls Dim b(1 To 10) As Integer b(1) = 101: b(2) = 52: b(3) = 38: b(4) = 96: b(5) = 82: b(6) = 100:

9、 b(7) = 25: b(8) = 78: b(9) = 66: b(10) = 89 Print 數(shù)組中的數(shù)據(jù)為:101, 52, 38, 96, 82, 100, 25, 78, 66, 89 c = FindMax(b() Text1.Text = cEnd SubPrivate Sub Form_Load()End Sub【實驗5 典型結果】【實驗5 問題】通過和上一題對比，請總結一下哪些情況使用Function過程更加合適?！緦嶒?】編寫計算 n! 的函數(shù)過程，調用該過程，計算1!+2!+3!+10!之和（10分）掌握使用Function過程簡化多重循環(huán)的方法，即把具有單一功能的內(nèi)

10、循環(huán)放到函數(shù)內(nèi)部函數(shù)的作用是簡化程序，不要把雙重循環(huán)都放到函數(shù)內(nèi)實驗結果：【實驗6 代碼】Private Sub Form_Click() Dim i As Integer For i = 1 To 10 Call f(m, i) s = s + m Next i Print s=, sEnd SubFunction f(m, n As Integer) As Long Dim i As Integer m = 1 For i = 2 To n m = m * i Next i End Function【實驗6 典型結果】【實驗7】編寫計算 n! 的子過程，調用該過程，計算1!+2!+3!+1

11、0!之和（10分）掌握使用Sub過程簡化多重循環(huán)的方法，即把具有單一功能的內(nèi)循環(huán)放到函數(shù)內(nèi)部函數(shù)的作用是簡化程序，不要把雙重循環(huán)都放到函數(shù)內(nèi)實驗結果：【實驗7 代碼】Private Sub Form_Click() Dim i As Integer For i = 1 To 10 m = f(i) s = s + m Next i Print s=, sEnd SubSub f(n As Integer) Dim i As Integer m = 1 For i = 2 To n m = m * i Next i f = mEnd Sub【實驗7 典型結果】【實驗8】編寫計算 n! 的函數(shù)過程

12、，調用該過程，計算ex的近似值（10分）ex=1+x/1! +x2/2!+x3/3!+ +xn/n!要求：1）x的值用InputBox函數(shù)輸入 2）要求精度：xn/n!= eps) s = s + t t = t * x / n n = n + 1 Loop jishu1 = sEnd Function【實驗8 典型結果】【實驗9】編寫程序輸出200300之間的素數(shù)。（10分）要求：1）利用函數(shù)過程判斷每個數(shù)是否是素數(shù)，是素數(shù)則返回1，否則返回0 2）將素數(shù)輸出到列表框掌握使用函數(shù)過程簡化多重循環(huán)的方法實驗結果：【實驗9 代碼】Private Function gdbh(n As Intege

13、r) gdbh = 1 For i = 2 To Int(Sqr(n) If n Mod i = 0 Then gdbh = 0 Next iEnd FunctionPrivate Sub Command1_Click() Dim i As Integer For i = 201 To 300 Step 2 y = gdbh(i) If y = 0 Then List1.AddItem i Next i End Sub【實驗9 典型結果】【實驗10】編寫程序驗證100以內(nèi)數(shù)的哥德巴赫猜想（任意一個大于6的偶數(shù)可以表示成兩個素數(shù)之和），要求素數(shù)判斷用函數(shù)過程實現(xiàn)。（10分）掌握使用函數(shù)過程簡化多

14、重循環(huán)的方法實驗結果：【實驗10 代碼】Private Sub Command1_Click() Dim m, m1, m2, n, f, p For m = 6 To 100 Step 2 p = m1 = 1aa: m1 = m1 + 1 Call gdbh(m1, f) If f = 1 Then GoTo aa m2 = m - m1 Call gdbh(m2, f) If f = 1 Then GoTo aa p = p & m & = & m1 & + & m2 List1.AddItem p Next mEnd SubPrivate Sub gdbh(n, f) f = 0 If n = 2 Then f = 0 For i = 2 To Sqr(n) If n Mod i = 0 Then f = 1 Next iEnd SubPrivate Sub Form_Load()End Sub【實驗10 典型結果】【選做1】編寫程序，利用Sub子程序遞歸調用方式計算兩個數(shù)M、N的最大公約數(shù)，其中MN，且N0。程序界面如下圖所示。（+5分，總分最高100）掌握Sub過程的遞歸調用實驗結果：【選做1 代碼】【選做1 典型結果】【選做2】編寫程序，利用Function函數(shù)過程的遞歸調用方式計算n！。程序界面如下圖所示。（+5分，總分最高100）掌握Funct