module1.bas

来自「多项式的编程另一种算法」· BAS 代码 · 共 23 行

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