Public Function fh(ByVal h As Single) As Single Dim n As Single n = Val(Text3.Text) A = (b + m * h)

Public Function fh(ByVal h As Single) As Single Dim n As Single n = Val(Text3.Text) A = (b + m * h)

楼主,你的程序代码应该是没问题,不知道你的错误在哪行上?
如果你运行有错误的话,请先检查一下窗体上是否有名称为"Text1"的这样一个TextBox控件
还有就是在窗体上单击才会运行这段代码.