过程1
- 格式:doc
- 大小:112.00 KB
- 文档页数:3
计算机科学系课程实验报告(语言编程类)
课程
名称 面向对象程序设计 实验
日期 2013.11.1 实验
成绩 88
实验
类型 设计验证 实验教师签名
姓名 高雅妮 学号 12093103 班级 计应1201
实验
名称 过程
实
验
目
的
及
要
求 1.掌握自定义函数过程和子过程的定义和调用方法。
2.掌握形参和实参之间的对应关系。
3.掌握值传递和地址传递的传递方式。
4.掌握变量、函数和过程的作用域。
5.掌握递归的概念和使用方法。
6.熟悉程序设计的常用方法。
实
验
环
境 PC机一台
Microsoft Visual Basic 6.0 中文版
实
验
内
容 1.编一子过程Promin(a(),amin),求一维数组a中的最小值amin.
主调程序随机产生10个—300~—400之间的数,显示所产生的数组中的个元素,调用Procmin子过程,显示数组中的最小值。
2.参见教材例6.2,编一求两数m,n最大公约数的函数过程f(m,n);主调程序在两个文本框接受输入数据,在图形框显示结果。
算
法
描
述
及
结
果
分
析
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 "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,
Private Sub Command1_Click()
Dim mm%, nn%
mm = Val(Text1)
nn = Val(Text2)
Picture1.Print mm; Tab(6); nn; Tab(12); 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
总
结 通过本次实验了解到,在VB中,用户可以自定义过程,供其他事件过程调用,用户可以自定义的过程有:以FUNCTION 保留开始的为函数过程;以SUB保留开始的为子过程。