Programma moet willekeurig een string kiezen

[HellupUandMe]

Hallo mensen,

Ik wil graag dat als je op een button klikt, dat er dan in een label of een textbox of weet ik veel wat een string komt te staan. Die string dat moet een van deze zijn:
"Nee"
"Ja"
"Misschien"
Hij moet er een uitkiezen. Als je nog een keer op die button klikt moet ie weer een andere kiezen. Kan iemand mij helpen?

 

[That Guy]

randomize
dim rNumber as integer
rNumber = math.round(rnd(2),0)

select case rNumber
case "0"
label1.caption = "ja"
case "1"
label1.caption = "nee"
case "2"
label1.caption = "mischien"
end select

Even uit het hoofdje, maar het zou zo ongeveer moeten werken.


V.:thumb:

 

[HellupUandMe]

Heel erg bedankt. Het enige is dat de string "misschien" niet aan de beurt kom dus hij heeft het alleen over ja en nee. 't Is best vervelend want als ik tien antwoorden wil doen dan zou hij er dus ook maar de eerste 2 van kiezen. Kan je misschien zorgen dat ie ook de string "misschien" kan kiezen? Alvast bedankt!

 

[RonaldGJ]

Private Sub Command1_Click()
Randomize
Dim rNumber As Integer
For a = 0 To 3
rNumber = Fix(Rnd * a)
Next
Select Case rNumber
Case "0"
Label1.Caption = "ja"
Case "1"
Label1.Caption = "nee"
Case "2"
Label1.Caption = "mischien"
End Select
End Sub

Gr. Ronald!

 

[That Guy]

uhm ja, wat hij zegt, haha
wat doet dat "Fix()" precies? iets van afronden?


V.:thumb:

 

[RonaldGJ]

Ja je kunt ook Int( gebruiken, maar er zit een klein verschil tussen. De een rond af en kijkt naar de decimalen: Bijvoorbeeld:

7,43 -> 7
7,67 -> 8

En de andere doet

7,43 -> 7
7,67 -> 7
7,99 -> 7

Ik weet niet precies welke wat doet, maar dit is het verschil. Doe je niet Fix( of Int( bij Rnd * a dan kun je ook komma getallen krijgen en dat moet vaak niet gebeuren!:thumb:

Gr. Ronald!

 

[HellupUandMe]

Heel erg bedankt!

 

[That Guy]

tussendoor: je hebt ook nog "Math.round(*double*, *getallen_achter_de_komma*)
maar dat werkt dus weer iets anders


V.:thumb: