Private Sub Root(X0, X1, A)
X1 = X0
Do
X0 = X1
X1 = 0.5 * (X0 + A / X0)
Loop Until Abs(X1 - X0) < 0.000001
End Sub
Private Sub Command1_Click()
Print " A "; "A的平方根"
X0 = 3
For A = 1 To 20
Call Root(X0, X1, A)
Print A; Tab(6); X1
Next A
End Sub

Private Sub Command2_Click()
End
End Sub

我把上面红色的部分写在建立的标准模块里运行之后显示函数或子程序未定义
写在窗体的程序通用里就可以用
现在要求的是用标准模块作这个程序
谁能告诉我怎么建模块才能让程序可以正常调用

把Private换成Public

我刚学VB的时候 净问些幼稚问题
不过还是很感谢大家的热心帮助