１．CSVファイルを読み込み構造体の配列に保存する

ファイルに保存との共通部分

'成績のデータ保存用構造体
Private Structure SeisekiDat   
    Dim name As String          '生徒名
    Dim kokugo As Single        '国語の点数
    Dim suugaku As Single       '数学の点数
    Dim eigo As Single          '英語の点数
End Structure
Private sd() As SeisekiDat

'-----------------------------------------------------------

Private Sub Button1_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button1.Click
'CSVファイルを読み込み構造体の配列に保存する
    '名前空間:  Microsoft.VisualBasic   モジュール:  FileSystem
    Dim fileName As String = "../../seiseki.csv"    'ファイルのパス
    Dim fileNo As Integer = FreeFile()              'ファイル番号を取得
    Dim n As Integer
    'ファイルを入力モードで開く
    FileOpen(fileNo, fileName, OpenMode.Input)
    Do Until EOF(fileNo)　　　　　　　 'ファイルの最後までループ
        ReDim Preserve sd(n)
        Input(fileNo, sd(n).name)　　　'ファイルから読み込み
        Input(fileNo, sd(n).kokugo)
        Input(fileNo, sd(n).suugaku)
        Input(fileNo, sd(n).eigo)
        Debug.WriteLine(sd(n).name & vbTab & sd(n).kokugo & vbTab & _
                                      sd(n).suugaku & vbTab & sd(n).eigo)
        n += 1
    Loop
    FileClose(fileNo)               'ファイルを閉じる
    '出力結果
        '浅野  純子 63 69 87
        '足立  由美 77 69 85
        '加藤  愛子 80 91 92
        '斉藤  正樹 79 84 70
End Sub