zufall problem

hi,

Ich hab da ne frage. Ich hab zu verschiedenen variablen einen text zugewiesen. Und möchte das die halt mit einem Klick per zufall angezeigt werden. aber halt nur ein text und nicht alle auf einmal. ne zufallfunktion mit zahlen kann ich ja. ist kein problem aber mit variablen weis ich nicht weiter.

Visual Basic 6 benutze ich

mfg

 

Zufallszahl im Bereich von 1 bis 6 Wert generieren
Wert = Int((6 * Rnd) + 1)
\'Text zuordnen
Select Case Wert
Case 1
ZufallsText = "...."
Case 2
ZufallsText = "...."
.
.
und so weiter...
.
.

Case Else
ZufallsText = "...."
End Select
End Function

 

ein beispiel:
Option explicit
const anz=6
dim lotto()
const max=49

lottozahlen

function zufallszahl()
randomize
zufallszahl=rnd
zufallszahl=round(zufallszahl*100)
end function

sub lottozahlen()
dim zahl, ausgabe,i,j,doppelt
redim lotto(anz-1)
doppelt=false
for i=0 to anz-1
do
zahl=zufallszahl
loop until zahl <=max
for j=0 to i-1
if lotto(j)=zahl then
doppelt=true
exit for
end if
next
if doppelt=true then
i=i-1
doppelt=false
else
lotto(I)=zahl
end if
next
ausgabe="die lotozahlen lauten: " & chr(13)
for i=0 to anz-2
ausgabe=ausgabe & lotto(i) & "/"
next
ausgabe=ausgabe & lotto(anz-1)
msgbox ausgabe
end sub
und ich überlege mir auch gerade wie ich das mache.