Var blir det fel i denna kod? Felet består i att när variabeln raknesatt blir 4 så blir tecknet / rätt men värdet på rakesatt1 kan förändras i Select Casesatsen till 1,2 eller 3 vilket betyder +, - respektive * och då divideras inte talen tal(1) och tal(2).
<code>

Randomize
raknesatt1 = Int(Rnd * 4) + 1

Select Case raknesatt1

Case 1: tal(4) = tal(1) + tal(2)
lblTecken1.Caption = "+"

Case 2: tal(4) = tal(1) - tal(2)
lblTecken1.Caption = "-"

Case 3: tal(4) = tal(1) * tal(2)
lblTecken1.Caption = "*"

Case 4:
Do Until tal(1) Mod tal(2) = 0
Randomize
tal(1) = Int(Rnd * 10) + 1
tal(2) = Int(Rnd * 10) + 1
Loop
tal(4) = tal(1) / tal(2)
lblTecken1.Caption = "/"

End Select
</code>

rakesatt1 förändras inte! Bara värdet i variabel tal(1) och tal(2).
Kan det vara att du glömt uppdatera dessa med deras nya värden?

Om jag lägger ut en Label som får värdet i raknesatt1 så kan det stå både 1, 2 och tre fast tecknet ändå blir /. Det är som att raknesatt1 får ett nytt värde när den är inne i Case4.<br>
<br>
Här är en större del av koden
<code>

For i = 1 To 3
Randomize
tal(i) = Int(Rnd * 10) + 1

Next i


Randomize
raknesatt1 = Int(Rnd * 4) + 1

Select Case raknesatt1

Case 1: tal(4) = tal(1) + tal(2)
lblTecken1.Caption = "+"

Case 2: tal(4) = tal(1) - tal(2)
lblTecken1.Caption = "-"

Case 3: tal(4) = tal(1) * tal(2)
lblTecken1.Caption = "*"

Case 4:
Do Until tal(1) Mod tal(2) = 0
Randomize
tal(1) = Int(Rnd * 10) + 1
tal(2) = Int(Rnd * 10) + 1
Loop
tal(4) = tal(1) / tal(2)
lblTecken1.Caption = "/"

End Select


Randomize
raknesatt2 = Int(Rnd * 4) + 1
Select Case raknesatt2
Case 1
tal(5) = tal(4) + tal(3)
lblTecken3.Caption = "+"
Case 2
tal(5) = tal(4) - tal(3)
lblTecken3.Caption = "-"
Case 3
tal(5) = tal(4) * tal(3)
lblTecken3.Caption = "*"
Case 4:
Do Until tal(4) Mod tal(3) = 0
Randomize
tal(3) = Int(Rnd * 10) + 1
Loop
tal(5) = tal(4) / tal(3)
lblTecken1.Caption = "/"

End Select

</code>

Tja. Skulle gissa på att lblTecken1.Caption = "/" i den andra Select satsen ställer till det. Ska vara lblTecken3.Caption = "/" om jag inte misstar mig.

Ett sånt här fel borde du kunna lösa själv tycker jag allt.
Du får inte ge upp så tidigt.

Jo jag får skämmas, men man kan stirra sig blind på fel saker idland. Tack för att du i allafall talade om var felet låg.