过程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

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保留开始的为子过程。