VB kiezen tussen 2 opties (soort van random)

[luck7]

Hallo

de vraag is simpel

Ik wel in mijn programma een functie zetten, dat als de user een bepaalde handeling maakt het programma op 2 manieren kan reageren, en dit iedere keer weer anders is.

voorbeeld: user klikt op button,
dan komt er een msgbox, waar de ene keer "hallo" in staat en de andere keer "doei"
maar dan wel als random, dus kan ook 2x hallo zijn en dan weer een paar x doei (alles door elkaar) als het maar niet altijd hetzelfde is.

alvast bedankt voor de moeite:thumb:,
mvg Luck Hermsen

 

[ExcelAmateur]

luck7,

Bedoel je zo iets?

 

[luck7]

exactly!

Hier nog even een code:

Dim Random As New Random
Dim result = Random.Next(3)


Select Case result
Case 0
MsgBox("text1")
Case 1
MsgBox("text2")
Case 2
MsgBox("text3")
End Select

Bedankt
:thumb:

 

[Warme bakkertje]

Of met een oneliner

Sub msbox()
    MsgBox Choose(Int((3 * Rnd) + 1), "Hallo", "Doei", "Kan jij het ook?")
End Sub