Module Module1
Sub Main()
Dim arr() As Integer
arr=New Integer(){1,3,5,7,9} 'initialize arr array
Dim i As Integer
For i=0 to 4 'output arr array
Console.Write("{0}",arr(i)*arr(i) & vbTab)
Next
Console.ReadLine()
End Sub
End Module
Join a community of subject matter experts. Register for FREE to view solutions, replies, and use search function. Request answer by replying!