Visual Basic 中的 lg 函数

Question

这是个很奇怪的问题。

我有一个客户，需要他的程序的更新版本。他给了我所有的旧文件，告诉我这是一个 Visual Basic 程序，从 1995 年开始。

我是2002年出生的，当时还不知道Visual Basic还不存在

反正语法好像一样

VERSION 2.00
Begin Form REDACTED 
   BackColor       =   &H00C0C0C0&

...

Dim ja
Dim lwi1(6) As Double
Dim lwaa(6) As Double
Dim lwa(6) As Double
Dim rr(6) As Double

然后我看到了下面一行

zwert1 = lg(1# - x) / lg(1# - xcr)

并试图找到 lg() 的文档。

搜索了大约一个小时后我放弃了。我认为它是 log()，但我不确定，而且我很困惑这是用哪种语言编写的，有一些 PowerPascal (??) 文件的日期是 1989 年，引用代码的文件类型是'.frm'.

我觉得我在博物馆里，没有文件或指南。

谁能帮我弄清楚这是什么语言，以及 lg() 实现了什么？

Answer 1

大概是Visual Basic 4的log10：Logarithm(log, lg, ln)

这是 VBA 的替代品：

Public Function Log10( _
    ByVal Value As Double) _
    As Double

' Returns Log 10 of Value.
' 2015-08-17. Gustav Brock, Cactus Data ApS, CPH.

    Const Base10    As Double = 10

    ' No error handling as this should be handled
    ' outside this function.
    '
    ' Example:
    '
    '     If MyValue > 0 then
    '         LogMyValue = Log10(MyValue)
    '     Else
    '         ' Do something else ...
    '     End If
    
    Log10 = Log(Value) / Log(Base10)

End Function

Visual Basic 中的 lg 函数

lg Function in Visual Basic

vba

basic