Public Class Form1
 
    ' List Of String für Aufgaben
    Private aufgaben As New List(Of String)
 
 
    ''' <summary>
    ''' nächste Aufgabe holen
    ''' </summary>
    ''' <remarks></remarks>
    Private Sub aufgaben_holen()
 
        Dim strResult As String = String.Empty
        Dim strInfo As String = String.Empty
        If aufgaben.Count = 0 Then
            strInfo = "Aufgaben alle..."
        Else
            Dim i As Integer = CInt(Int((aufgaben.Count * Rnd())))
            lblAufgabe.Text = aufgaben(i).ToString
            aufgaben.RemoveAt(i)
            lblInfo.Text = "Rest: " & aufgaben.Count
        End If
 
        tbxEingabe.Text = String.Empty
 
    End Sub
 
    ''' <summary>
    ''' Button: nächste Aufgabe holen
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub btnNexte_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btnNexte.Click
 
        aufgaben_holen()
 
    End Sub
 
 
    ''' <summary>
    ''' Lösung?
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub btnLösung_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btnLösung.Click
 
        Dim strFaktoren() As String = lblAufgabe.Text.Split("x")
        Dim intErg As Integer = Integer.Parse(strFaktoren(0)) * Integer.Parse( _
          strFaktoren(1))
        If intErg <> Integer.Parse(tbxEingabe.Text) Then
            'Falsch
            MsgBox("Fehler")
        Else
            'Richtig, Nexte Aufgabe
            aufgaben_holen()
        End If
 
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        btnLösung.Text = "Lösung"
        btnNexte.Text = "Nächste Aufgabe"
 
        For i As Integer = 1 To 10
            For j As Integer = 1 To 10
                aufgaben.Add(i.ToString & "x" & j.ToString)
            Next
        Next
 
        aufgaben_holen()
 
    End Sub
End Class

Gru?

BernyH