Функция Rnd, только для генерации символов

[begrusse]

Для генерации случайных чисел существует функция Rnd, а есть функция для генерации символов? если есть то какая?

[Хакер]

Нет. Напишу такую, будет.

[begrusse]

и что никак нельзя генерировать символы?

[Хакер]

Можно. Я же говорю, напиши функцию.

[begrusse]

эээ... а как её написать?

[Mikle]

begrusse

Код: Выделить всё

chr$((rnd*96)+32)


Это для первой страницы ASCII кроме служебных.

[ANMAT]

Код: Выделить всё

Dim randomChar As String
randomChar = RandomSymb
Function RandomSymb() As String
   Dim numSymb As Byte
   Randomize
   numSymb = Int(256 * Rnd)
   RandomSymb = chr$(numSymb)
End Function

[Kiryusha]

непонятно что имеется ввиду под символами, если буквы, то проще сделать вроде следующего:

const table as strng ="abcdefghijkl...xyz"

public function rnd_sym() as string
rnd_sym = mid(table, round(rnd*(len(table)-1))+1, 1)
end function[/code]