Mega Code Archive
Define and loop through double value array
<![CDATA[
Module Tester
Sub Main()
Dim Values() As Integer = {100, 200, 300, 400, 500}
Dim MyValues(5) As Integer
Dim Prices() As Double = {25.5, 4.95, 33.4}
Dim I As Integer
For I = 0 To 4
Console.Write(Values(I) & " ")
Next
Console.WriteLine()
For I = 0 To Prices.GetUpperBound(0)
Console.Write(Prices(I) & " ")
Next
End Sub
End Module
100 200 300 400 500
25.5 4.95 33.4
]]>