VB第六篇实验报告.docxVIP

第六章实习报告 第一部分：书上例题运行结果展示 例6-1求组合数的值，设m=6,n=10。 例6-2一个数组有10个整数元素，将第一个元素与最后一个元素对调，第二个与倒数第二个对调……，输出对调前后数组各元素的值。 例6-3编写求两个整数的最大公约数过程，在主程序中调用该过程求两个数的最大公约数，并根据最大公约数求最小公倍数。 例6-4分别用传地址方式和传值方式编写交换两个整数的过程并调用。 例6-5编写求一组整数平均值的过程，并在主程序中调用。 例6-6编写能获得一组整数的平均值、最大值和最小值的过程并调用。 例6-7求组合数的值，设m=6,n=10。 例6-8窗体级变量的作用范围示例 例6-9变量的作用范围综合示例。 例6-10编程对键盘上输入的任意个数排序。 例6-11判断一个整数是否是回文数。所谓回文数是这样的数，将这个数从左向右读和从右向左读值相等。如121就是回文数，345就不是回文数。 例6-12设计一个数值转换函数，能够将十进制整数转换成16进制以内的任意进制数。 例6-13利用递归调用计算n! 第二部分：课后习题 自定义一个与VB内部函数Abs功能完全相同的函数过程MyAbs，要求函数过程中不能调用VB内部函数Abs。 运行结果如下所示： 代码录入如下： Private Sub Command1_Click() Dim a! a = InputBox(请输入函数值) Print myabs(a) End Sub Function myabs!(ByVal x!) If x = 0 Then x = x Else x = -x End If myabs = x End Function 3．编写函数过程Gdc求两个数的最大公约数。调用此函数试求1260、198、72三个数的最大公约数。 运行结果如下所示： 代码录入如下： 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 三个数的最大公约数为： z End Sub Function gys%(ByVal m%, ByVal n%) Dim r% Do r = m Mod n If r = 0 Then Exit Do Else m = n: n = r End If Loop gys = n End Function 7．编程输出10000～99999之间的全部回文式素数。 运行结果如下： 代码录入如下： Private Sub Command1_Click() Dim i, n, x# x = Timer For i = 10000 To 99999 If hws(i) = True Then If ss(i) = True Then Print i; n = n + 1 If n Mod 5 = 0 Then Print End If End If Next i Print x = Timer - x Print 过程所需时间为： Format(x, 0.0000) 秒 End Sub Function ss(x) As Boolean Dim i a = Int(Sqr(x)) For i = 2 To a If x / i = x \ i Then Exit For Next i ss = i = a + 1 End Function Function hws(m) As Boolean If Left(m, 1) = Right(m, 1) And Mid(m, 2, 1) = Mid(m, 4, 1) Then hws = True Else hws = False End If End Function 9．思考将本章所有Sub过程用Funtion过程如何实现，而Function过程又如何用Sub过程实现呢？ 运行结果