Mit ronthattam el a programban? (VBScript)

randomize

vel1 = int( round ( rnd ( ) * 8 ) )

vel2 = int( round ( rnd ( ) * 6 ) )

x=inputbox(""&vel1&" -szer "&vel2&" ?")

eredmeny=vel1*vel2

select case x

case eredmeny msgbox("Jó válasz!")

case else msgbox("Nem jó")

end select

Ez egy olyan program lenne, ami véletlenszerűen kiad 2 számot és össze kell szorozni, de mindig azt írja ki, hogy nem jó.