Private Sub Form_Load()
   MsgBox Cubic(125)
End Sub

Public Function Cubic(Cval&) As Long
   '开4次方 1/4 ，开5次方 1/5 ....类推
   Cubic = Cval ^ (1 / 3)
End Function
  

发表于 @ 2008年02月25日 17:46:00|评论(loading...)|编辑