Anonymous user
Sum and product of an array: Difference between revisions
→{{header|Visual Basic .NET}}: Added VB.NET
(→{{header|Visual Basic .NET}}: Added VB.NET) |
|||
Line 2,637:
=={{header|VBScript}}==
<lang vb>Function sum_and_product(arr)
sum = 0
product = 1
Line 2,660 ⟶ 2,659:
Product: 720
</pre>
=={{header|Visual Basic .NET}}==
{{trans|C#}}
<lang vbnet>Module Program
Sub Main()
Dim arg As Integer() = {1, 2, 3, 4, 5}
Dim sum = arg.Sum()
Dim prod = arg.Aggregate(Function(runningProduct, nextFactor) runningProduct * nextFactor)
End Sub
End Module</lang>
=={{header|Wart}}==
| |||