Treebeard's String-Math

[Kernelpanic]

@Jack - Your first version reminds me of the Fibonacci sequence:

Code: (Select All)

'Fibonaccizahl - 29. Juli 2022
'https://de.wikipedia.org/wiki/Fibonacci-Folge
'https://en.wikipedia.org/wiki/Fibonacci_number

Option _Explicit

Dim x, y As Long
Dim i, n As Integer

x = 1: y = 1: i = 1
Cls
Locate 3, 3
Print "Berechnet iterativ die Fibonaccizahl."

Locate 5, 3
Input "Geben Sie eine Zahl ein: ", n

Locate 7, 3
If n > 33 Then
  Print "Nur Eingaben bis 33!"
  GoTo Ende
End If

If n = 0 Then
  Print Using "Die Fibonaccizahl von # ist: #"; n, 1
  GoTo Ende
ElseIf n = 1 Then
  Print Using "Die Fibonaccizahl von # ist: #"; n, 1
  GoTo Ende
ElseIf n = 2 Then
  Print Using "Die Fibonaccizahl von # ist: 1 1 #"; n, n
  GoTo Ende
End If

If n > 2 Then
  Print "0 1 1 ";
  While i < n
    x = x + y: y = x - y: i = i + 1
    Print " "; x;
  Wend
End If

Print: Print
Locate , 3
Print Using "Die Fibonaccizahl von ## ist: ###,#####"; n, x

Ende:
End