有无vb大佬解答迷津？

[m0_57872887]

有无vb大佬解答迷津？

[m0_57872887]

在线等。急急急

[笨狗先飞]

Private Sub Form_Load()
    MsgBox G(2.5, 3.4)
End Sub

Public Function F(ByVal T As Single) As Single
    F = (1 + Exp(-T)) / (1 + Exp(T))
End Function

Public Function G(ByVal X As Single, ByVal Y As Single) As Single
    If X <= Y Then
        G = F(X + Y) / (F(X) + F(Y))
    Else
        G = F(X - Y) / (F(X) + F(Y))
    End If
End Function