da ich nun ziemlich alle Aufgaben lösen konnte, fehlen mir noch 2 Sachen (1x wichtig, 1x nicht so wichtig ;) ) zum abschließen der Übung.
1) Ich möchte folgendes Ergebnis haben:
1 7 usw..
3 9
5 11
1 ist fix vorgegeben, danach wird die nächste Zahl aus der vorherigen + 2 errechnet.
Mein Code:
Sub test(n, k)
Dim A()
ReDim A(n, n)
For i = 1 To n
For j = 1 To n
A(1, 1) = 1
A(i, j) = A(i - 1, j) + k
Next j
Next i
Call arrayPrint(A)
End Sub
Damit schaffe ich es zwar1
3
5
zu errechnen, aber ab der zweiten Reihe funktioniert das natürlich nicht mehr.
Für Tipps hierfür wäre ich sehr dankbar (wenn möglich nicht gleich die ganze Lösung posten)
2) Wie funktioniert denn Runden in VBA?
Das Ergebnis dieses Codes möchte ich gerne gerundet haben.
Sub test2(x, n)
Dim A()
ReDim A(n)
For i = 1 To n
A(i) = x ^ ((1 / (i + 1)))
Next i
Call arrayPrint(A)
End Sub
Vielen Dank im Voraus und noch schönes Wochenende!