Module Program Sub Main() Dim rand As Func(Of Integer, Integer) = AddressOf New Random(0).Next Dim cols = {"", "X", "Y", "Z"} Dim rows = 3 Dim result = <%= cols.Select(Function(__) ) %> <%= cols.Select(Function(col) ) %> <%= Enumerable.Range(1, rows).Select( Function(r) _ <%= cols.Select( Function(col, key) ) %> ) %>

<%= col %>
<%= If(key > 0, rand(10000), r) %>

Console.WriteLine(result) End Sub End Module