Module Example
Public Sub Main()
Dim scores() As Tuple(Of String, Nullable(Of Integer)) =
{New Tuple(Of String, Nullable(Of Integer))("A", 78),
New Tuple(Of String, Nullable(Of Integer))("B", 84)}
Dim number As Integer
ComputeMean(scores, number)
End Sub
Private Function ComputeMean(ByVal scores() As Tuple(Of String, Nullable(Of Integer)), ByRef n As Integer) As Double
For Each score In scores
Console.WriteLine(score.Item2.HasValue)
Console.WriteLine(score.Item2.Value)
Next score
Return 0
End Function
End Module