Keskustelu: Ohjelmointikysymykset: QB: Qbasicilla arpominen

Joo tota väännän parhaillaan jotain paskaa tekstiseikkailua ja haluaisin saada siilei randomina laitettua yhen jutun.. esim.
Mitä teet?
1.Lainaat mikolta rahaa

niin tossa lainaus jutussa että miten saan sen arpoon lainaaks se vai ei niinku fifti-fifti.. tiästätsätä??

Helpointa on arpoa luku väliltä 0 - 99, ja sen jälkeen päättää tapahtuma SELECT CASE -rakenteen avulla.

RANDOMIZE TIMER
arpa% = INT(RND * 100)

SELECT CASE arpa%
CASE IS < 20
   PRINT "Tämä tapahtuu 20% varmuudella."
CASE IS < 50
   PRINT "Tämä taas tapahtuu 30% varmuudella."
CASE ELSE
   PRINT "Ja tämä tapahtuu 50% varmuudella."
END SELECT

Katso myös: http://qb.ohjelmointiputka.net/?RND

Vähän itsestäänselvyyksien selittämistä, mutta jos haluat
1-100, laitat

arpa% = INT(RND * 99) + 1

ja prosenttipääte on minusta ruma, loisin sille oman tyypin.