VB实验--过程.doc

VB实验报告 第五次实验 实验F-----过程 2012/4/11  实验一（1） 一、 实验题目：编一子过程ProcMin(a(),amin)，求一维数组a中的最小值amin。 二、实验目的：1.掌握子过程的定义，形参个数、类型等的确定； 2.掌握调用子过程的方法； 3.理解参数传递的方式。 三、实验步骤：编写如下程序： Private Sub Form_Click() Dim a(1 To 10), amin, i% For i = 1 To 10 a(i) = -Int(Rnd * 101 + 300) Print a(i); Next i Call s(a(), amin) Print Print min=; amin End Sub Sub s(b(), min) Dim i% min = b(LBound(b)) For i = LBound(b) + 1 To UBound(b) If b(i) min Then min = b(i) Next i End Sub 四、实验结果（如下图）： 实验一（2） 将实验一（1）中的形参amin由地址传递（ByRef）改为值(ByVal)传递，即子过程定义语句Sub s(b(),ByVal amin) 程序编写如下：  Private Sub Form_Click() Dim a(1 To 10), amin, i% For i = 1 To 10 a(i) = -Int(Rnd * 101 + 300) Print a(i); Next i Call s(a(), amin) Print Print min=; amin End Sub Sub s(b(), ByVal amin) Dim i% min = b(LBound(b)) For i = LBound(b) + 1 To UBound(b) If b(i) min Then min = b(i) Next i End Sub 程序运行结果如下图： 实验二 实验题目：求两数m,n的最大公约数的函数过程f(m,n) 实验目的：掌握对函数过程的定义方法。 实验步骤：1.在窗体中添加两个标签、一个命令按钮和一个图片控件； 2.编写如下程序代码： Private Sub Command1_Click() Dim mm%, nn% mm = Val(Text1) nn = Val(Text2) Picture1.Print m n 最大公约数 Picture1.Print ------------------------------- Picture1.Print mm; Tab(10); nn; Tab(22); gcd(mm, nn) End Sub Function gcd%(ByVal m%, ByVal n%) If m n Then t = m: m = n: n = t r = m Mod n Do While (r 0) m = n: n = r: r = m Mod n Loop gcd = n End Function 实验结果（如下图）： 实验七 实验题目：编写一个子过程DeleStr(s1,s2) 实验目的：掌握字符串子过程的常用操作及子过程的调用。 实验步骤：1.在窗体中添加三个标签、三个文本框控件和一个命令按钮； 2.编写如下程序代码： Private Sub DeleStr(s1 As String, ByVal s2 As String) Dim i% ls2 = Len(s2) i = InStr(s1, s2) Do While i 0 s1 = Left(s1, i - 1) + Mid(s1, i + ls2) i = InStr(s1, s2) Loop End Sub Private Sub Command1_Click() Dim ss1 As String ss1 = Text1 Call DeleStr(ss1, Text2) Text3 = ss1 End Sub 实验结果（如下图）：