Как объединить несколько строк в один?

Question

Я пытаюсь найти способ комбинировать приведенные ниже инструкции Dim в одной строке и, возможно, также комбинировать Return dblResult. в настоящее время это три строки, и мне сказали, что это возможно, но как-то потеряно, как это сделать - может ли кто-нибудь протянуть руку?

` Private Function CalcAreaFromRadius (ByVal радиус As Double) As Double

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