Ja men lösningen blir otroligt mycket klumpigare. (randomizegenererat tal mellan 0 och 1) * (maxtal-mintal) + mintal HejSv: slumpa bokstav
Du kan tex:
1. Lägga in alla bokstäver du är intresserad av i en array eller collection
2. slumpa fram ett tal som ligger inom intervallet för start och slut
3. Skriva ut aktuell bokstav
med ascii behöver du bara:
1. slumpa fram ett tal mellan stora A (om jag inte minns fel 63) och Z (borde bli 88)
2. Skriva ut aktuell bokstav
//EmmaSv: slumpa bokstav
konvertera till int (avrunda...)
ex: a*90+10 genererar tal mellan 10 och 100 (ungefär)
/mickeSv: slumpa bokstav
Så här skulle man kunna göra
Option Explicit
Private Sub Form_Load()
Randomize
End Sub
Private Sub Command1_Click()
Dim Char As String * 1, b As Long
b = Rnd * 29 + 1
b = b + 64
If b = 91 Then b = 196 ' Ä
If b = 92 Then b = 197 ' Å
If b = 93 Then b = 214 ' Ö
Label1 = Chr$(b)
End Sub
Mvh
Sven