Private Sub Form_Load()
Wert = 7.75
Ergebnis = ""
Do
minus = GetRnd(Wert)
If minus > 0 Then
If minus < Wert Then
Wert = Wert - minus
Ergebnis = Ergebnis & minus & "+"
Else
Ergebnis = Ergebnis & Wert & "+"
Wert = Wert - Wert
End If
End If
DoEvents
Loop While Wert > 0
MsgBox (Ergebnis)
End Sub
Private Function GetRnd(ByVal Max As Double)
Randomize Timer
Value = CInt(Rnd * Max)
Select Case CInt(Rnd * 3) + 1
Case 1
Value = Value + 0.25
Case 2
Value = Value + 0.5
Case 3
Value = Value + 0.75
Case 4
Value = Value + 0
End Select
GetRnd = Value
End Function