有无vb大佬解答迷津?

m0_57872887 2021-05-02 06:30:44
有无vb大佬解答迷津?
...全文
2576 2 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
笨狗先飞 2021-05-03
  • 打赏
  • 举报
回复

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
m0_57872887 2021-05-02
  • 打赏
  • 举报
回复
在线等。急急急

1,502

社区成员

发帖
与我相关
我的任务
社区描述
VB 网络编程
社区管理员
  • 网络编程
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧