help

Code:

---



    lbloppgave1 = Fix(randnr)
    lbloppgave2 = Fix(randnr2)
   
    svar = CLng(lbloppgave1) / CLng(lbloppgave2)

Select Case svar
        Case 0
                If txtsvar = "" Then
                    txtsvar = "skriv svaret her"
                Else
                    If CLng(lbloppgave1) / CLng(lbloppgave2)= Fix(txtsvar) Then
                        picSvar = picSmil
                        rett = rett + 1
                        lblpoeng.Caption = rett
           
                    Else
                        picSvar = picSur
                    End If
                End If

++++
End Select

---

the program is should be easy math, so i don't want to get "8/10" or something like that, as it returns a desimal answer... But 4/2 is ok as thats 2.
any idees?

instead, try finding two small factors, say ranged from 1 to 10, and the divide the result with one of them:

Code:

---

'declarations:
private x as long, y as long,r as long

'new excercise:
x = Int(Rnd*10) + 1
y = Int(Rnd*10) + 1
r = x*y
lbloppgave2=r
lbloppgave1=x

'check answer
if isnumeric(txtsvar) then
 if val(txtsvar) = r then
  'correct
 else
  'wrong
 end if
else
 'not numeric
end if

---

Thank you_!
This helped me alot!