jag har en sträng som ser ut så här:

Dim bokstäver As String
bokstäver = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"

och jag vill slumpa ut en bokstav men vet inte hur jag ska göra....
ska jag använda vektorer?
ska jag ge varje bokstav en siffra och sen slumpa siffror?

MVH
/bj

Jag skulle göra såhära:

Randomize Timer

Dim bokstäver As String
Dim iBokstav as Integer
Dim sBokstav as String

bokstäver = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"

iBokstav = Int(Rnd*26)+1
sBokstav = Mid$(bokstäver,iBokstav,1)

Då kommer en slumpad bokstav i strängen sBokstav...
Hoppas det här hjälper nått.

//Micke

För att kunna användas för andra ändamål kan du ju skriva
---
Randomize Timer

Dim bokstäver As String
Dim iBokstav as Integer
Dim sBokstav as String

bokstäver = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"

iBokstav = Int(Rnd*Len(bokstäver))+1
sBokstav = Mid$(bokstäver,iBokstav,1)
---
Fast det går snabbare med

sBokstav=Chr$(Asc("A") + 26*Rnd)

Då kan du ju visserligen inte ta med andra bokstäver, men det är lättare.

/Niklas Jansson

eller så kan du ju slumpa ut ascii nr.

Private Sub Form_Load()
Dim ascii As Integer, bokstäver As String, bokstav As String, a As Integer
bokstäver = "ABCDEFGHIJKLMNOPQRSTUVXYZÅÄÖ"
20 Randomize Timer
ascii = Int(Rnd * 222) + 33
For a = 1 To Len(bokstäver)
If ascii > highest Then highest = ascii
If ascii < lowest Then lowest = ascii
selascii = Mid$(bokstäver, a, 1)
If selascii = Chr$(ascii) Then Let bokstav = Chr$(ascii): GoTo 10
Next a
GoTo 20
10 Label1.Caption = "Bokstaven blev " & bokstav
End Sub


vad som nu skulle vara fördelen med detta framför det andra
det vet jag inte men jag fick iallafall nåt att programmera :D

detta sättet är bara alldeles otroligt långsamt.....

mvh
John

Hej
Ett litet tillägg ang. Randomize Timer

Timer är onödigt,det blir med automatik Timer om du
bara skriver Randomize

mvh
Sven

Om du vill slumpa mellan fler bostöver så kan du göra såhär istället..

Randomize

Dim bokstäver As String
Dim iBokstav as Integer
Dim sBokstav as String

bokstäver = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuwxyzåäö1234567890"

iBokstav = Int(Rnd*Len(bokstäver))+1
sBokstav = Mid$(bokstäver,iBokstav,1)

Hade bara lust att säga det :P