程序代码：

Private Sub Command2_Click(Index As Integer)
Dim a As Double
Dim y As Double
Dim s As Double
a = (Val(Combo1(0)) - 1) / Val(Text1(0)) '(n-1)/f
y = Val(Text1(1))
s = a - Sqr(a ^ 2 - y ^ 2)
Label3(0) = s + Val(Text1(4))
End Sub

[此贴子已经被作者于2016-8-14 00:11编辑过]