expdev.txt

来自「VB常用数值算法集 内含有解线性代数方程组」· 文本 代码 · 共 7 行

TXT
7
字号
Function EXPDEV(IDUM&)
    DUM = 0!
    While DUM = 0!
        DUM = RAN1(IDUM&)
    Wend
    EXPDEV = -Log(DUM)
End Function

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?