实验通用过程与自定义函数过程.docVIP

实验32 通用过程与自定义函数过程 1.编写隶属某窗体的计算偶数序列n的阶乘之和（即Y=2！+4！+6！+8！…+n!）的函数过程，要求：在单击窗体事件过程中，通过InputBox()函数输入任意整数，当判断为偶数后，调用该函数过程，并用MsgBox()函数显示计算结果。 Private Function Fac_odd(ByVal x As Integer) As String Dim i, j As Integer, y, sum_num As Double, s As String = sum_num = 0 For i = 2 To x Step 2 y = 1 For j = 1 To i y = y * j 累乘 Next sum_num = sum_num + y s = s i !+ Next s = Mid(s, 1, Len(s) - 1) = sum_num Return s End Function Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 实验32-1 Dim n As Integer, s As String = n = InputBox(输入偶数) If n Mod 2 = 0 Then s = Fac_odd(n) Else s=你输入的不是偶数，所以不能求解 End If Label1.Text = s End Sub 2． 分别编写隶属某窗体的计算圆面积、圆周长、圆体积的子过程。它们的公式如下： 圆面积=πr^2, 圆周长=2πr, 圆体积=πr^3h 其中，r是半径，h是高度。要求：可以在该窗体单击事件中通过InputBox()函数输入任意数，调用函数过程，并用MsgBox()函数显示计算结果。 Sub Lenarea(ByVal RR As Single, ByVal HH As Single) Const Pi As Single = 3.14159265358979 Dim A As Single Dim V As Single A = 2 * Pi * RR * HH + 2 * Pi * RR ^ 2 圆柱的表面积 V = Pi * RR ^ 2 * HH 圆柱的体积 Label1.Text = 圆柱的表面积是： Str(A) Label2.Text = 圆柱的体积是： Str(V) End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim R As String Dim H As String R = InputBox(输入圆柱半径, 圆柱半径) H = InputBox(输入圆柱高度, 圆柱高度) R = Val(R) H = Val(H) Lenarea(R, H) 调用通用过程Lenarea End Sub 3. 编写将一个字符串颠倒顺序的函数过程，它隶属于某标准模块。然后在一个窗体中输入任一字符串，调用该函数过程，并用MsgBox()函数显示结果。 Module Module1 Public Sub strsub(ByVal s As String) Dim x As String x = StrReverse(s) MsgBox(s 字符串的颠倒顺序为： x) End Sub End Module Private Sub Button3_Click(ByVal sender As System.O