第8章过程的调用.docVIP

实验书1题 1利用下列程序测试参数传送的两种方式：传值调用和传地址调用，从而理解区别。 Private Sub p(ByVal x%, ByVal y%) x = x + 1: y = y + 1 Print x, y End Sub Private Sub Command1_Click() Dim x%, y% x = 1: y = 2 Call p(x, y): Print x, y Call p(x, y): Print x, y Call p(x, y): Print x, y Call p(x, y): Print x, y End Sub 2计算N 的阶乘 Private Sub Form_Click() Dim n As Integer, z As Single n = InputBox(请输入一个正整数) z = fac(n) Print z End Sub Function fac(ByVal x%) Dim i As Integer, p As Single p = 1 For i = 1 To x p = p * i Next fac = p End Function 3按地址传 Sub addtest(ByVal m%, ByVal N%) m = m + 100 N = N * 100 Print m=; m Print n=; N End Sub Private Sub Command1_Click() a% = 10: b% = 20 Call addtest(a, b) Print a=; a Print b=; b End Sub 4求三角形面积 Private Sub area(s As Double, x As Double, y As Double, z As Double) Dim p As Double p = (x + y + z) / 2 s = Sqr((p - x) * (p - y) * (p - z) * p) End Sub Private Sub err() MsgBox 请检查您的数据, vbYesNo + vbInformation, 数据错误 End Sub Private Sub Command1_Click() Dim a As Double, b As Double, c As Double, s As Double Dim intyesorno As Integer a = InputBox(输入A, 计算三角形面积) b = InputBox(输入b, 计算三角形面积) c = InputBox(输入c, 计算三角形面积) If a + b c And b + c a And c + a b Then Call area(s, a, b, c) Print 三条边长为：; a; b; c Print 面积=; s Else err End If End Sub 5编写局部变量范围 Private Sub Command1_Click() Dim n As Integer n = n + 1 Text1.Text = n End Sub Private Sub Command2_Click() Static n As Integer n = n + 1 Text2.Text = n End Sub 6 0-6之间的整数显示星期几 Public day Private Sub myday(m As Integer) Select Case m Case 0 day = 星期日 Case 1 day = 星期一 Case 2 day = 星期二 Case 3 day = 星期三 Case 4 day = 星期四 Case 5 day = 星期五 Case 6 day = 星期六 End Select End Sub Private Sub Command1_Click() Dim n As Integer If Text1.Text = Then MsgBox 请输入0-6之间的整数 Text1.SetFocus Else n = Val(Text1.Text) If n = 0 And n 7 Then Cal