Visual Basic 2005 - Anfängerproblem
Hi Com!
Ich möchte ein ganz einfaches Programm schreiben, dass sich mit der Zahlenfolge befasst.
Man hat eine natürliche Anfangszahl. Ist diese gerade, wird sie durch 2 geteilt(n/2). Ist die Zahl ungerade, wird sie mit 3 multipliziert, dann wird 1 addiert(n*3+1). Dies geschieht, bis die Zahl 1 erreicht hat.
Auf meinem Formular habe ich:
-TextBox1 (zur Eingabe der Anfangszahl)
-TextBox3 (Ausgabe; gibt die Anzahl der benötigten Schritte an, bis die Zahl 1 erreicht)
-TextBox2 (mein Problem)
TextBox2 ist mehrzeilig. In ihr möchte ich jeden Rechenschritt des PC untereinandern darstellen lassen.
z.B:
Die Anfangszahl ist 8.
In der TextBox1 ist die Zahl 8 eingetragen.
TextBox3 zeigt an, welches Glied der Folge 1 ist: 4
In TextBox 2 soll stehen
n1=8
n2=4
n3=2
n4=1.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a, b As Long
TextBox2.Text = ""
TextBox3.Text = ""
a = TextBox1.Text
b = 1
Do Until a = 1
If a Mod 2 = 1 Then a = a * 3 + 1 Else a = a / 2
TextBox2.Text = a
b = b + 1
Loop
TextBox3.Text = b
End Sub
Was muss ich angeben, dass die Textbox 2 die oben aufgeführten Folgeglieder auflistet.
Ich hoffe, dass ihr mir helfen könnt.
MfG
SaPass
Hi Com!
Ich möchte ein ganz einfaches Programm schreiben, dass sich mit der Zahlenfolge befasst.
Man hat eine natürliche Anfangszahl. Ist diese gerade, wird sie durch 2 geteilt(n/2). Ist die Zahl ungerade, wird sie mit 3 multipliziert, dann wird 1 addiert(n*3+1). Dies geschieht, bis die Zahl 1 erreicht hat.
Auf meinem Formular habe ich:
-TextBox1 (zur Eingabe der Anfangszahl)
-TextBox3 (Ausgabe; gibt die Anzahl der benötigten Schritte an, bis die Zahl 1 erreicht)
-TextBox2 (mein Problem)
TextBox2 ist mehrzeilig. In ihr möchte ich jeden Rechenschritt des PC untereinandern darstellen lassen.
z.B:
Die Anfangszahl ist 8.
In der TextBox1 ist die Zahl 8 eingetragen.
TextBox3 zeigt an, welches Glied der Folge 1 ist: 4
In TextBox 2 soll stehen
n1=8
n2=4
n3=2
n4=1.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a, b As Long
TextBox2.Text = ""
TextBox3.Text = ""
a = TextBox1.Text
b = 1
Do Until a = 1
If a Mod 2 = 1 Then a = a * 3 + 1 Else a = a / 2
TextBox2.Text = a
b = b + 1
Loop
TextBox3.Text = b
End Sub
Was muss ich angeben, dass die Textbox 2 die oben aufgeführten Folgeglieder auflistet.
Ich hoffe, dass ihr mir helfen könnt.
MfG
SaPass