-1

関数 getArea が NULL/Nothing を返すのはなぜですか?

  Module Module3
  Dim noOfTriangles As Integer = (3 / 2)
  Sub main()
    Dim l As Single
    Dim n As Integer
    l = Console.ReadLine()
    n = Console.ReadLine()
    Console.WriteLine(getArea(l, n))
    Console.ReadKey()
  End Sub

  Function getArea(ByVal l As Single, ByVal n As Integer)
    Dim area As Single = 1
    If n = 0 Then
      Return Nothing
    Else
      noOfTriangles = noOfTriangles * 2
      Return (((3 ^ (1 / 2)) / 4) * (l ^ 2) + (noOfTriangles * getArea((l / 3), (n - 1))))
    End If
  End Function
End Module
4

1 に答える 1

0

これを試して、探しているものに近づくかどうかを確認してください。

    Module Module3
  Dim noOfTriangles As double = (3 / 2)
  Sub main()
    Dim l As Single
    Dim n As Integer
    l = Single.Parse(Console.ReadLine())
    n = Integer.Parse(Console.ReadLine())
    Console.WriteLine(getArea(l, n))
    Console.ReadKey()
  End Sub

  Function getArea(ByVal l As Single, ByVal n As Integer) as Double
    Dim area As Single = 1
    If n = 0 Then
      Return Nothing
    Else
      noOfTriangles = noOfTriangles * 2
      Return (((3 ^ (1 / 2)) / 4) * (l ^ 2) + (noOfTriangles * getArea((l / 3), (n - 1))))
    End If
  End Function
End Module
于 2012-10-06T08:06:00.740 に答える