dll 中，maxp 不能申明 TextBox。改为：Public Function xunmaxp(sta() As Single, maxp As Object) xunmaxp = maxp.Text '这是语句例子End Function调用（假设你的函数在 dll 的类模块 Class1 中）：Private Sub Command1_Click() Dim dd As New Class1, sta() As Single, s s = dd.xunmaxp(sta, Text1)End Sub...
