如何将多条线合并为一条？

Question

我想弄清楚将下面的Dim语句组合成一行的方法，也许还会将dblResult返回到那里。目前它是三条线，我被告知这是可能的，但如何做到这一点已经失去了 - 任何人都可以伸出援手吗？

` 专用功能CalcAreaFromRadius（BYVAL半径为双）为双

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

    Return dblResult 

End Function` 

感谢

Answer 1

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

Private Function CalcAreaFromRadius(ByVal radius As Double) As Double 

    Return radius * radius * Math.PI 

End Function 

Answer 2

虽然这不是一个好主意，把大量的东西在同一行，你可以随时使用:把两行代码在一行中VB：

典型例子：

Class Test 
    Inherits BaseClass 

等同于：

Class Test : Inherits BaseClass 

当然，只要你是在一个单一类型的变量声明没有明确的初始化表达式，你可以做，在一个Dim声明：

Dim a, b as Integer 

Answer 3

Return (radius * radius) * Math.PI