Mit VB 2005 Txt erstellen und in versciedene Zeilen schreib

Imports System.IO


Public Class Form1
    ' Pfad der Ziel-Datei
    Private Const ZielDatei As String = "C:\Auswertung_schueler7_Frage7_.txt"
    ' zu stellende Fragen
    Private ReadOnly Fragen() As String = {"Frage 1", "Frage 2"}
    ' Array fuer die Antworten
    Private Antworten() As Integer
    ' Index der aktuell angezeigten Frage
    ' (beim Start wird aktuelleFrageIndex + 1 angezeigt)
    Private aktuelleFrageIndex As Integer = -1


    ''' <summary>
    ''' Laedt die naechste Frage
    ''' </summary>
    ''' <remarks></remarks>
    Private Sub LadeNaechsteFrage()
        If aktuelleFrageIndex > -1 Then
            ' vorher wurde eine Frage angezeigt, Ergebnis speichern
            Dim Antwort As Integer = 5
            Select Case True
                Case RadioButton1.Checked
                    Antwort = 1
                Case RadioButton2.Checked
                    Antwort = 2
                Case RadioButton3.Checked
                    Antwort = 3
                Case RadioButton4.Checked
                    Antwort = 4
            End Select
            Antworten(aktuelleFrageIndex) = Antwort
        End If


        ' Index erhoehen
        aktuelleFrageIndex += 1


        If aktuelleFrageIndex > Fragen.GetUpperBound(0) Then
            ' keine Fragen mehr, d.h. fertig, speichern
            Dim objStreamWriter As StreamWriter
            objStreamWriter = New StreamWriter(ZielDatei)


            For index As Integer = 0 To Fragen.GetUpperBound(0)
                objStreamWriter.WriteLine(Fragen(index) + ": " _
                    + Antworten(index).ToString())
            Next


            objStreamWriter.Close()


            MessageBox.Show("Ergebnis in Datei gespeichert")
            Me.Close()
        Else
            ' naechste Frage anzeigen
            Label1.Text = Fragen(aktuelleFrageIndex)
            RadioButton3.Checked = True
        End If
    End Sub


    Private Sub Form1_Load(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles MyBase.Load


        ' Antworten-Array auf Groesse des Fragen-Arrays dimensionieren
        ReDim Antworten(Fragen.GetUpperBound(0) + 1)
        ' erste Frage laden
        LadeNaechsteFrage()
    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles Button1.Click


        ' naechste Frage laden
        LadeNaechsteFrage()
    End Sub
End Class