VB实验四 实验报告 - 2018

实验报告四

实验目的

（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 Sub

Private Function jiecheng(a)

t = 1

For i = 1 T o a

t = t * i

Next i

jiecheng = t

End Function

Private Sub Command2_Click()

End

End 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 = t

End Sub

Sub jiecheng(a, t)

t = 1

For j = 1 T o a

t = t * j

Next j

End Sub

Private Sub Command2_Click() End

End Sub

【实验2 典型结果】

【实验3】编写计算n! 的函数过程，调用该过程，计算1!+2!+3!+……+10!之和（5分）掌握使用Function过程简化多重循环的方法，即把具有单一功能的内循环放到函数内部函数的作用是简化程序，不要把双重循环都放到函数内，无法达到简化程序的目的实验结果：

【实验3 代码】

Private Sub Form_Click()

n = Val(InputBox(1))

For j = 1 T o n

b = b + jiecheng(j)

Next j

Print b

End Sub

Function jiecheng(a)

t = 1

For i = 1 T o a

t = t * i

Next i

jiecheng = t

End Function

【实验3 典型结果】

【实验4】编写计算n! 的子过程，调用该过程，计算1!+2!+3!+……+10!之和（5分）掌握使用Sub过程简化多重循环的方法，即把具有单一功能的内循环放到函数内部

函数的作用是简化程序，不要把双重循环都放到函数内，无法达到简化程序的目的实验结果：

【实验4 代码】

Private Sub Form_Click() n = Val(InputBox(1)) For i = 1 T o n

Call jiecheng(i, b)

c = c + b

Next i

Print c

End Sub

Sub jiecheng(a, b)

t = 1

For j = 1 T o a

t = t * j

Next j

b = t

End 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 = 1

For i = 1 T o a

t = t * i

Next i

jiecheng = t

End Function

Private Sub Command1_Click() Dim b As Long

x = Val(T ext1.T ext)

d = 1

Do

i = i + 1

b = jiecheng(i)

c = x ^ i

d = d + c / b

Loop Until c / b < 0.000001 Print d

End Sub

【实验5 典型结果】

【实验6】编写程序输出200~300之间的素数。（10分）

要求：1）利用函数过程编写判断一个数是否是素数的程序，如果是素数则返回1，否则返回0

2）将素数输出到列表框

掌握使用函数过程简化多重循环的方法

实验结果：

【实验6 代码】

Private Sub Command1_Click()

For j = 200 T o 300

If sushu(j) = 1 Then List1.AddItem j Next j

End Sub

Function sushu(n)

For i = 2 T o n - 1

If n Mod i = 0 Then Exit For

Next i

If i > n - 1 Then

flag = 1

Else

flag = 0

End If

sushu = flag

End Function

【实验6 典型结果】