vb 实验报告实验七 财管

vb实验上机报告。西安邮电学院最适合不过~~~

Visual Basic 实验报告

学号：

vb实验上机报告。西安邮电学院最适合不过~~~

一、实验题目：过程和函数 二、实验目的：

1) 2) 3) 4)

掌握过程、函数的概念和使用方法

掌握形参和实参的概念，以及在调用过程时两者的对应关系 掌握数值传递和地址传递，并注意区分这两种参数的传递方式 掌握变量，过程的作用

三、实验内容： 第一题 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

vb实验上机报告。西安邮电学院最适合不过~~~

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

四，实验结果：

vb实验上机报告。西安邮电学院最适合不过~~~

1) 调试和运行：在这两个题中都是在函数的调用中出现了或多或少的问题，要么是函数正

确却在调用后无法正常运行，要么是在调用的过程中出现未定义变量、函数等问题，总之就是无法正常运行，并且都是在多次调试之后才可以正常运行，而且在运行之后还有无法达到预期效果的现象。 2) 体会和心得：以前调用系统函数的时候总认为函数的调用是极其简单的，但在自己写函

数之后，才发现，函数的调用是在函数写好的前提下才能正常调用的，这是才发现，函数并不是记住名称就使用那么简单的，在这两个体总真正体会到了函数的便捷与其滋生真正难的地方。