vb.net - 如何将多行合并为一条？

Question

我试图找出一种将下面的 Dim 语句组合成一行的方法，也可能将 Return dblResult 组合到那里。目前它是三行，我被告知这是可能的，但有点迷失了如何做到这一点 - 任何人都可以帮忙吗？

` 私有函数 CalcAreaFromRadius(ByVal radius As Double) As Double

    Dim dblRadiusSquared As Double = radius * radius
    Dim dblResult As Double = dblRadiusSquared * Math.PI

    Return dblResult

End Function`

谢谢

score 2 · Accepted Answer

虽然将大量内容放在一行中并不是一个好主意，但您始终可以:在 VB 中将两行代码放在一行中：

典型例子：

Class Test
     Inherits BaseClass

相当于：

Class Test : Inherits BaseClass

当然，只要您在没有显式初始化表达式的情况下声明单一类型的变量，您就可以在一个Dim语句中做到这一点：

Dim a, b as Integer

score 2 · Accepted Answer

2

Return (radius * radius) * Math.PI

于 2010-11-04T23:28:15.177 回答

score 2 · Accepted Answer

鉴于这是一个相对简单的计算，没有理由不能像这样将其简化为一行：

Private Function CalcAreaFromRadius(ByVal radius As Double) As Double

    Return radius * radius * Math.PI

End Function

3 回答 3