vb实验报告实验七财管.doc

Visual Basic 实验报告 班级：财管0902 姓名：于 梦 云 学号一、实验题目：过程和函数 二、实验目的： 掌握过程、函数的概念和使用方法 掌握形参和实参的概念，以及在调用过程时两者的对应关系 掌握数值传递和地址传递，并注意区分这两种参数的传递方式 掌握变量，过程的作用 三、实验内容： 第一题 1、界面 ①启动VB6.0，创建一个“标准EXE”类型的应用程序。 ②编写一个判断素数的子函数过程，要求输入一个整数，就能够通过该子过程伙函数过程求的该整数是否为素数。 2、代码 sspd(x As Integer) For i = 2 To x - 1 If x Mod i = 0 Then Exit For End If Next If i x - 1 Then Print 不是 Else Print 是 End If End Function Private Sub Command1_Click() Print sspd (Val(Text1.Text)) End Sub 第二题 1、界面 ①启动VB6.0，创建一个“标准EXE”类型的应用程序。 ②编写一个在数组中查找最大值的过程。要求随机产生一个一维数组，调用该过程，就能遭到并显示数组中的最大值。 2、代码 Function zdz(a() As Integer) max = a(0) For i = 0 To UBound(a) If a(i) max Then b = a(i) a(i) = max max = b End If Next i Print 最大值= max End Function Private Sub Command1_Click() Dim b(10) As Integer For i = 0 To 9 b(i) = (100 - 1) * Rnd + 1 Print b(i); Next Print zdz(b()) End Sub 四，实验结果： 1) 调试和运行：在这两个题中都是在函数的调用中出现了或多或少的问题，要么是函数正确却在调用后无法正常运行，要么是在调用的过程中出现未定义变量、函数等问题，总之就是无法正常运行，并且都是在多次调试之后才可以正常运行，而且在运行之后还有无法达到预期效果的现象。 2) 体会和心得：以前调用系统函数的时候总认为函数的调用是极其简单的，但在自己写函数之后，才发现，函数的调用是在函数写好的前提下才能正常调用的，这是才发现，函数并不是记住名称就使用那么简单的，在这两个体总真正体会到了函数的便捷与其滋生真正难的地方。