VB实验四 实验报告2018

实验报告四课程VB程序设计实验项目VB过程与函数设计(6学时) 成绩专业班级石油工程2017姓名万佳宁学号201731011301 实验日期 6.6实验目的（1）掌握Function过程和Sub过程的定义与调用（2）理解参数按址传递和按值传递的本质（3）理解变量和过程的作用域（4）能熟练运用Function过程和Sub过程解决实际问题、简化程序实验内容【实验1】编写Function函数程序实现计算n！。

程序界面如下图所示。

（5分）掌握函数过程的定义及使用实验结果：【实验1 代码】Private Sub Command1_Click()n = Val(T ext1.T ext)T ext2.T ext = jiecheng(n)End SubPrivate Function jiecheng(a)t = 1For i = 1 T o at = t * iNext ijiecheng = tEnd FunctionPrivate Sub Command2_Click()EndEnd Sub【实验1 典型结果】【实验2】编写Sub子函数过程实现计算n！。

程序界面同上题。

（5分）掌握Sub子过程的定义及使用实验结果：【实验2 代码】Private Sub Command1_Click()n = Val(T ext1.T ext)Call jiecheng(n, t)T ext2.T ext = tEnd SubSub jiecheng(a, t)t = 1For j = 1 T o at = t * jNext jEnd SubPrivate Sub Command2_Click()EndEnd Sub【实验2 典型结果】【实验3】编写计算n! 的函数过程，调用该过程，计算1!+2!+3!+……+10!之和（5分）掌握使用Function过程简化多重循环的方法，即把具有单一功能的内循环放到函数内部函数的作用是简化程序，不要把双重循环都放到函数内，无法达到简化程序的目的实验结果：【实验3 代码】Private Sub Form_Click()n = Val(InputBox(1))For j = 1 T o nb = b + jiecheng(j)Next jPrint bEnd SubFunction jiecheng(a)t = 1For i = 1 T o at = t * iNext ijiecheng = tEnd Function【实验3 典型结果】【实验4】编写计算n! 的子过程，调用该过程，计算1!+2!+3!+……+10!之和（5分）掌握使用Sub过程简化多重循环的方法，即把具有单一功能的内循环放到函数内部函数的作用是简化程序，不要把双重循环都放到函数内，无法达到简化程序的目的实验结果：【实验4 代码】Private Sub Form_Click()n = Val(InputBox(1))For i = 1 T o nCall jiecheng(i, b)c = c + bNext iPrint cEnd SubSub jiecheng(a, b)t = 1For j = 1 T o at = t * jNext jb = tEnd Sub【实验4 典型结果】【实验5】编写计算x n/n! 的函数过程，调用该过程，计算e x的近似值（10分）e x=1+x/1! +x2/2!+x3/3!+ ……+x n/n!要求：1）x的值用InputBox函数输入2）要求精度：x n/n!<0.000001掌握使用函数过程简化多重循环的方法实验结果：【实验5 代码】Function jiecheng(a)t = 1For i = 1 T o at = t * iNext ijiecheng = tEnd FunctionPrivate Sub Command1_Click() Dim b As Longx = Val(T ext1.T ext)d = 1Doi = i + 1b = jiecheng(i)c = x ^ id = d + c / bLoop Until c / b < 0.000001 Print dEnd Sub【实验5 典型结果】【实验6】编写程序输出200~300之间的素数。

（10分）要求：1）利用函数过程编写判断一个数是否是素数的程序，如果是素数则返回1，否则返回02）将素数输出到列表框掌握使用函数过程简化多重循环的方法实验结果：【实验6 代码】Private Sub Command1_Click()For j = 200 T o 300If sushu(j) = 1 Then List1.AddItem jNext jEnd SubFunction sushu(n)For i = 2 T o n - 1If n Mod i = 0 Then Exit ForNext iIf i > n - 1 Thenflag = 1Elseflag = 0End Ifsushu = flagEnd Function【实验6 典型结果】【实验7】编写程序验证100以内数的哥德巴赫猜想（任意一个大于6的偶数可以表示成两个素数之和），要求素数判断用函数过程实现。

（10分）掌握使用函数过程简化多重循环的方法实验结果：【实验7 代码】Private Sub Command1_Click()List2.ClearList1.Clearn = Val(T ext1)For i = 2 T o n - 2If sushu(i) = 1 And sushu(n - i) = 1 ThenList1.AddItem iList2.AddItem n - iEnd IfNext iEnd SubFunction sushu(a)For j = 2 T o a - 1If a Mod j = 0 Then Exit ForNext jIf j > a - 1 Thensushu = 1Elsesushu = 0End IfEnd Function【实验7 典型结果】【实验8】编写一个通用的Function函数过程，求出数组中的最大值。

已知数组中的数据为（101，52，38，96，182，100，25，78，66，89），程序界面设计如下图所示。

（10分）掌握Function过程中数组作为参数传递的方法实验结果：【实验8 代码】Private Sub Command1_Click()Dim num()num = Array(101, 52, 38, 96, 182, 100, 25, 78, 66, 89)T ext1 = max(num())End SubFunction max(num())t = num(0)For i = 0 T o UBound(num) - 1If num(i) > t Then t = num(i)Next imax = tEnd Function【实验8 典型结果】【实验8 问题】请总结一下哪些情况使用Function过程更加合适、哪些情况使用sub过程更加合适。

需要返回值用function不需要返回值时用sub更合适【实验9】分别编写按地址传递交换、按值传递交换两个数的过程子程序代码swap1（）和swap2（）。

程序界面设计如下图所示。

（10分）掌握Sub过程参数传递方法实验结果：【实验9 代码】Private Sub Command1_Click()a = 10:b = 20huan1 a, bPrint "按址传递前："; "a=10"; "b=20"Print "按址传递后："; "a="; a; "b="; bEnd SubSub huan1(a, b)t = aa = bb = tEnd SubPrivate Sub Command2_Click()a = 10:b = 20huan2 a, bPrint "按值传递前："; "a=10"; "b=20"Print "按值传递后："; "a="; a; "b="; bEnd SubSub huan2(ByVal a, ByVal b)t = aa = bb = tEnd Sub【实验9 典型结果】【实验10】编写程序，利用sub过程，输出由字符组成的菱形，通过三次调用输出三个不同字符组成的菱形。

（10分）灵活运用函数过程和子过程解决实际问题实验结果：【实验10 代码】Sub lingxing(a As String)For i = 1 T o 5Print T ab(10 - i);For j = 1 T o i * 2 - 1Print a;Next jPrintNext iFor i = 4 T o 1 Step -1Print T ab(10 - i);For j = 1 T o i * 2 - 1Print a;Next jPrintNext iPrintEnd SubPrivate Sub Command1_Click() lingxing yuansulingxing yuansulingxing yuansuEnd SubFunction yuansu() As String yuansu = InputBox("字符") End Function【实验10 典型结果】【实验11】编写程序，利用Sub过程实现将任意一个十进制数n分别转换成2进制、8进制和16进制数。

要求：在文本框中得到要转换的十进制数n，在事件过程中调用Sub过程得到转换后的3个结果，在窗体上打印出结果。

（10分）综合案例实验结果：【实验11 代码】【实验11 典型结果】【实验12】编写程序，利用Function函数过程的递归调用方式计算n！。

程序界面如下图所示。

（10分）掌握Function过程的递归调用实验结果：【实验12 代码】Private Sub Command1_Click()n = Val(T ext1)T ext2 = jiecheng(n)End SubFunction jiecheng(a)If a = 1 Thenjiecheng = 1Elsejiecheng = jiecheng(a - 1) * aEnd IfEnd FunctionPrivate Sub Command2_Click()EndEnd Sub【实验12 典型结果】【选做1】编写程序，利用Sub子程序递归调用方式计算两个数M、N的最大公约数，其中M>N，且N≠0。