VB第六章实验报告.doc

1、精品文字阅读使人快乐，成长需要时间第六章实习报告第一部分：书上例题运行结果展示例 6-1 求组合数 Cnmn!的值，设 m=6,n=10 。m! (nm)!例 6-2 一个数组有 10 个整数元素，将第一个元素与最后一个元素对调，第二个与倒数第二个对调 ，输出对调前后数组各元素的值。例 6-3 编写求两个整数的最大公约数过程，在主程序中调用该过程求两个数的最大公约数，并根据最大公约数求最小公倍数。成功不是偶然而是必然精品文字例 6-4 分别用传地址方式和传值方式编写交换两个整数的过程并调用。例 6-5 编写求一组整数平均值的过程，并在主程序中调用。例 6-6 编写能获得一组整数的平均值、最大值

2、和最小值的过程并调用。成功不是偶然而是必然精品文字例 6-7 求组合数 Cnmn!的值，设 m=6,n=10 。m! (nm)!例 6-8 窗体级变量的作用范围示例例 6-9 变量的作用范围综合示例。成功不是偶然而是必然精品文字例 6-10 编程对键盘上输入的任意个数排序。例 6-11 判断一个整数是否是回文数。所谓回文数是这样的数，将这个数从左向右读和从右向左读值相等。如 121 就是回文数， 345 就不是回文数。成功不是偶然而是必然精品文字例 6-12 设计一个数值转换函数，能够将十进制整数转换成16 进制以内的任意进制数。例 6-13 利用递归调用计算n!第二部分：课后习题1 自定义一

3、个与VB 内部函数Abs 功能完全相同的函数过程MyAbs，要求函数过程中不能调用 VB 内部函数Abs。运行结果如下所示：成功不是偶然而是必然精品文字代码录入如下：Private Sub Command1_Click()Dim a!a = InputBox( 请输入函数值 )Print myabs(a)End SubFunction myabs!(ByVal x!)If x = 0 Thenx = xElsex = -xEnd Ifmyabs = xEnd Function3编写函数过程Gdc 求两个数的最大公约数。调用此函数试求1260、 198、72 三个数的最大公约数。运行结果如下所示

4、：代码录入如下：Private Sub Command1_Click()Dim x%, y%, z%成功不是偶然而是必然精品文字x = Val(InputBox(输入第一个数x 为： )y = Val(InputBox(输入第二个数y 为： )z = Val(InputBox(输入第三个数z 为： )z = gys(gys(x, y), z)Print 三个数的最大公约数为： & zEnd SubFunction gys%(ByVal m%, ByVal n%)Dim r%Dor = m Mod nIf r = 0 ThenExit DoElsem = n: n = rEnd IfLoopgy

5、s = nEnd Function7编程输出10000 99999 之间的全部回文式素数。运行结果如下：代码录入如下：Private Sub Command1_Click()Dim i&, n&, x#x = TimerFor i = 10000 To 99999If hws(i) = True ThenIf ss(i) = True ThenPrint i;n = n + 1If n Mod 5 = 0 Then PrintEnd IfEnd IfNext iPrintx = Timer - x成功不是偶然而是必然精品文字Print 过程所需时间为： & Format(x, 0.0000)

6、& 秒 End SubFunction ss(x&) As BooleanDim i&a = Int(Sqr(x)For i = 2 To aIf x / i = x i Then Exit ForNext iss = i = a + 1 End FunctionFunction hws(m&) As BooleanIf Left(m, 1) = Right(m, 1) And Mid(m, 2, 1) = Mid(m, 4, 1) Then hws = TrueElsehws = False End IfEnd Function9思考将本章所有 Sub 过程用 Funtion 过程如何实现，

7、而 Function 过程又如何用 Sub 过程实现呢？运行结果如下：代码录入如下：Private Sub Command1_Click()Dim i%For i = 1 To 20Print Tab(i - 1) Mod 5) * 6); dg(i);Next iPrintPrint 第 20 个数是 & dg(20)End SubFunction dg#(ByVal m%)If m = 3 Thendg = dg(m - 1) + dg(m - 2)Elsedg = 1End IfEnd Function成功不是偶然而是必然精品文字第三部分 :简答题1. Sub 过程和 Function过

8、程的异同点是什么？答：过程是一个具有某种功能的独立程序段， 可供程序多次调用。 对于一个具体问题， 既可以使用 Function 过程，也可以使用 Sub 过程。但 Sub 过程与 Function 过程还是有区别的，Sub 过程的过程名仅标识过程本身；Function 过程的过程名除了标识过程本身以外，还有返回值的作用， 因此，若过程有一个返回值时，则习惯使用Function 过程， 并通过函数名返回函数值； 若过程不需要返回值或返回多个值时， 则使用 Sub 过程；返回值通过实参与形参的结合带回，当然也可通过 Function 过程名带回一个结果，其余通过实参与形参的结合带回。2. 值传递

9、与地址传递特点是什么？如何选择？答： VB 中形参与实参的结合有传值和传地址两种方式。数据传递按照地址方式传递。传值方式只能从调用程序向过程传入初值，但不能将结果传出；而地址传递即可传入又可传出。实现传值和传地址对形参和实参的要求。在定义过程时在形参前加ByVal 关键字或过程调用时变量加圆括号，数据传递按照传值方式；如果在形参前加 ByRef 关键字或省略（默认）或实参是数组、自定义类型、对象变量等，参数传递只能是地址传递。3. 在 VB 中，形参若是数组，问在过程体内如何表示其数组的上、下界？答：传地址是 VB 默认的参数传递方式。在这种方式下，实参传给形参的是存储地址，使得形参与实参共用同一存储单元， 因此，在过程中对形参的任何操作实质都是对相应实参的操作。参数传递时，当实参为变量时， 把实参的地址传递给形参，使实参与形参共享同一存储单元段； 当实参为数组时，把实参数组的存储地址传递给形参数组，使实参数组与形参数组共享同一存储区域。4. 在 Form1 窗体通用声明部分声明的变量，可否在Form2 窗体中的过程被访问？答：不可以。 窗体（模块） 级变量的作用域限制在声明它的窗体 （模块） 中，该窗体（模块）中的所有过程均可访问该变量，其它窗体（模块）则不能。5. 为了使某变量在所有的窗体中都能使用，应在何处声明该变量？答： public6.