求VB6.0的函式程式碼

Private Function xinpusen（a As Single， b As Single， e As Single， he As Single） As Singlek = 2s0 = 0h = （b - a） / kya = h...