VB实验四实验报告-2016.doc

实 验 报 告 四 课 程 VB程序设计 实验项目 VB过程与函数设计(6学时) 成 绩 专业班级 姓 名 学 号 实验日期 实验目的 （1）（）（）5分） 掌握ub过程的定义及使用【】 Dim n As Integer, s As Long Private Sub Command1_Click() n = Val(Text1.Text) Call f(s, n) Text2.Text = s End Sub Sub f(m As Long, n As Integer) Dim i As Integer m = 1 For i = 2 To n m = m * i Next i End Sub Private Sub Command3_Click() End End Sub 【】 【实验2】编写Function函数过程实现计算n！。程序界面如下图所示。（5分） 掌握的定义及使用【2 代码】Dim n As Integer, s As Long Private Sub Command1_Click() n = Val(Text1.Text) s = f(n) Text2.Text = s End Sub Function f(n As Integer) Dim i As Integer m = 1 For i = 2 To n m = m * i Next i f = m End Function Private Sub Command2_Click() End End Sub 【2 典型结果】 【实验3】分别编写按地址传递交换、按值传递交换两个数的过程子程序代码swap1（）和swap2（）。程序界面设计如下图所示。（10分） 掌握ub过程参数传递方法【3 代码】 Sub Swap1(x%, y%) t = x: x = y: y = t End Sub Sub Swap2(ByVal x%, ByVal y%) t = x: x = y: y = t End Sub Private Sub Command1_Click() Dim a%, b% a = 10: b = 20 End Sub Private Sub Command2_Click() Dim a%, b% a = 10: b = 20 Print 按值交换前的各值为:; a=; a; b=; b Swap2 a, b 传值 Print 按值交换后的各值为:; a=; a; b=; b End Sub 【3 典型结果】 【实验4】中国好声音歌手大赛共n名选手参加决赛，m位评委参加评分，评分标准：去掉两个最高分和两个最低分以后取平均分。编写程序实现如下要求：（10分） ① 每位选手演唱完毕，当场显示参赛选手的编号及各位评委的评分和最后得分。 ② 决赛结束后，显示各参赛选手的名次、编号和成绩。 ③ 用子程序sub过程实现。 程序界面设计如下图所示。 掌握Sub过程中【4 代码】 Option Base 1 Dim p() As Single, x() As String, a() As Single Private Sub Command1_Click() Dim b As Single, m As Integer, sp As String 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) Label4.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,