从键盘上输入一个数,输出该数的平方根: Function SquareRoot(x As Double) As Double Select Case Sgn(x) Case 1 SquareRoot = Sqr(x) Exit Function Case 0 SquareRoot = 0 Case -1 SquareRoot = -1 End Select End Function

Private Sub Form_Click()

Dim Msg, SqrN Dim n As Double n = InputBox("请输入要计算平方根的数:") Msg = n & "的平方根" SqrN = Sqr(n) Select Case SqrN Case 0 Msg = Msg & "是 0" Case -1 Msg = Msg & "是一个虚数" Case Else Msg = Msg & "是" & Sqr(n) End Select MsgBox Msg End Sub 请问代码中SquareRoot过程有什么用呢?? 我看不出在哪调用了??? 请指教!!!

[此贴子已经被作者于2005-6-8 13:26:04编辑过]

SqrN = Sqr(n)改为SqrN = SquareRoot(n)

没有用你从啸弄求这些代码

那个FUNCTION有什么用呢?

不用它也可以啊~~~~

那个Function好像是多余的吧`

没有多余
这个可以不要了
 Select Case SqrN
          Case 0
                Msg = Msg & "是 0"
          Case -1
                Msg = Msg & "是一个虚数"
          Case Else
                Msg = Msg & "是" & Sqr(n)
     End Select
用function的时候，可以在很多地方调用，不改每咨都判断那么多

Dim Msg, SqrN Dim n As Double n = InputBox("请输入要计算平方根的数:") Msg = n & "的平方根" SqrN = Math.Sqrt(n) Select Case SqrN Case 0 Msg = Msg & "是 0" Case -1 Msg = Msg & "是一个虚数" Case Else Msg = Msg & "是" & Math.Sqrt(n)

End Select MsgBox(Msg) End Sub function 是多余的

这段代码里根本没有调用Function