module1.bas

多项式的编程另一种算法

Attribute VB_Name = "Module1"
'email: [e-mail]
'for more source code visit
'http://www.geocities.com/takisfmf/index.html





Global A_PolynomialOrder, B_PolynomialOrder As Integer



Public Function GetValue(StringValue)
  Position = InStr(1, StringValue, ",")
  If Position <> 0 Then
    GetValue = Val(Left(StringValue, Position - 1) + "." + Right(StringValue, Len(StringValue) - Position))
  Else
    GetValue = Val(StringValue)
  End If
End Function