Answer to Question #268008 in Visual Basic for ray

Question

1.      Using implicit sizing, assign the integers 2, 3, 5, 7, 11, and 13 to an array named intPrimeNumbers. 

3.    Rewrite the code below to read each line of a text file into an array named strFordModel.

Answer 1

1.
Dim intPrimeNumbers() As Integer = {2, 3, 5, 7, 11, 13}

2.
Imports System.IO




Module Module1








    Sub Main()
        Dim strFordModel(1000) As String
        Dim intCount As Integer = 0
        Dim objReader As StreamReader
        objReader = New StreamReader("Model.txt")




        Do While objReader.Peek <> -1
            strFordModel(intCount) = objReader.ReadLine()
            intCount += 1
        Loop
        objReader.Close()
        For i As Integer = 0 To intCount - 1
            Console.WriteLine(strFordModel(i))
        Next








        Console.ReadLine()
    End Sub
End Module