如何將多條線合併爲一條？

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