习题六
第1，2，6-8题答案可在教材中找到。
3．指出过程说明中的错误
（1）Sub子过程不应该定义类型
（2）函数与形式参数不应该同名
（3）数组作为形式参数时，应使用传地址方式，不可使用传值（ByVal）
（4）形式参数应该是变量或数组名，不可以是一个数组元素
4．指出调用过程语句的错误
（1）无语法错误，但因形参sum所对应的实参是常量3，故计算结果无法传递给主调程序。
（2）实参变量c与形参sum的类型不一致。
（3）类似于（1），形参sum所对应的实参是表达式a+b，故计算结果无法传递给主调程序。
（4）类似于（1）和（2），形参sum所对应的实参是表达式Sqr(c)，故计算结果无法传递给主调程序。另外srq(a)存在语法错误（拼写错）。
（5）与（2）相同，实参c与形参sum的类型不一致。
5．迭代法求平方根
（1）自定义函数的定义及调用
Function FSqr1(a As Single) As Single
Dim x0 As Single, x As Single
x = a
Do
x0 = x
x = (x0 + a / x0) / 2
Loop While Abs(x - x0) > 0.00001
FSqr1 = x
End Function
Private Sub Command1_Click()
Dim x!, y!
x = Val(InputBox("x="))
If x >= 0 Then
y = FSqr1(x)
Print y
End If
End Sub
（2）自定义子过程的定义及调用
Sub FSqr2(a As Single, x As Single)
Dim x0 As Single
x = a
Do
x0 = x
x = (x0 + a / x0) / 2
Loop While Abs(x - x0) > 0.00001
End Sub
Private Sub Command2_Click()
Dim x!, y!
x = Val(InputBox("x="))
If x >= 0 Then
Call FSqr2(x, y)
Print y
End If
End Sub
（3）递归函数及调用 [略]
