如何将多行合并为一个？

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`

由于

Answer 1

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

典型例子：

Class Test
     Inherits BaseClass

相当于：

Class Test : Inherits BaseClass

当然，只要在没有显式初始化表达式的情况下在单个类型上声明变量，就可以在一个Dim语句中执行此操作：

Dim a, b as Integer

Answer 2

Return (radius * radius) * Math.PI

Answer 3

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

Private Function CalcAreaFromRadius(ByVal radius As Double) As Double

    Return radius * radius * Math.PI

End Function