Office: Multi-, Divi und Divi-, Multi Generator ?

Hallo, ich schon wieder :-)

Schaffe es wieder nicht :-( ein Script zu schreiben der mir folgendes generiert :-(



Mit einstellbaren Ergebnissen.
Danke im Voraus... Paffy

 

Hallo!

Für beide Beispiele brauchst du drei Zufallszahlen:
a, b, c (von links nach rechts)
In beiden Fällen sind b und c völlig frei wählbar, während a jeweils bestimmte Bedingungen erfüllen muss (für ganzzahlige Ergebnisse).
Im ersten Beispiel muss a ein Vielfaches von c sein, im zweiten ein Vielfaches von b.

Also in etwa:

Code:

b = Fix(10 * Rnd) + 1
c = Fix(10 * Rnd) + 1
a = c * (Fix(10 * Rnd) + 1) 'Für Beispiel 1
a = b * (Fix(10 * Rnd) + 1) 'Für Beispiel 2

 

stelle mich wieder mal zu dumm an :-(
wie sage ich dem script das er zufällig * oder : generieren soll?

Paffy

 

Hallo!

Am einfachsten über eine Zusatzvariable:
x = Rnd
If x > 0.5 Then
'Beispiel 1
Else
'Beispiel 2
End If

 

mh.... böhmische dörfer..

Wollte das Teil in das Superscript mal einbauen, bekomme das nicht hin :-(
warum kann ich das nicht...
es wäre doch zu einfach, alles mal in einem Script zu bekommen...
Man, normalerweise lerne ich schnell, aber diese Scriptsprache ist mir irgendwie zu hoch :-( *heul* :-?

Paffy

 

So, ich habe mir mühe gegeben,
aber ich komme immer noch auf Kommazahlen,
kann eigendlich die Größe des Ergebnisses nicht einstellen,
und sie werden auch nicht selbst generiert die aufgaben,
sondern ich schreibe es vor :-(

Wie kann ih es besser machen?

Paffy

 

Hallo!

Eine Variable kann immer nur einen Wert zur Zeit annehmen, daher die Probleme mit a.
Teste mal sowas:

Code:

Sub test()
Const Y = 10
Dim a As Integer, b As Integer, c As Integer, i As Integer, x As Double
For i = 1 To 19 Step 2
b = Fix(Y * Rnd) + 1
c = Fix(Y * Rnd) + 1
x = Rnd
If x > 0.5 Then
'Anfang Fall 1
a = c * (Fix(Y * Rnd) + 1)
Cells(i, 7) = a * b / c
Cells(i, 2) = "·"
Cells(i, 4) = ":"
'Ende Fall 1
Else
'Anfang Fall 2
a = b * (Fix(Y * Rnd) + 1)
Cells(i, 7) = c / b * a
Cells(i, 2) = ":"
Cells(i, 4) = "*"
'Ende Fall 2
End If
Cells(i, 1) = a
Cells(i, 3) = b
Cells(i, 5) = c
Cells(i, 6) = "="
Next i
End Sub

 

Super, klappt...

nur eine Frage noch, woher weiss er das er 10 Aufgaben machen soll...?
Kann er auch mehr, und evtl. eine Spalte weiter, ab J usw.

Paffy

 

Hallo!

Code:

For i = 1 To 19 Step 2
...
Next i

Die Variable i läuft von 1 bis 19 in Zweierschritten, also 1, 3, 5, ... , 17, 19.
Durch die Anweisung

Code:

Cells(Zeile, Spalte) = irgendwas

werden die Werte in die entsprechenden Zellen geschrieben.

Mehr zu For...Next-Schleifen steht in der VBA-Hilfe.