Форумы HiProg.com - MS ACCESS, VBA, VB

 

Ответить на сообщение

Вернуться к теме

Вы отвечаете на сообщение:

ник: Силblч
Function rnd16()
Randomize
rnd16 = Int((16 * Rnd))
End Function

Function g()
Dim i%, r%
s = "|"
For i = 0 To 15
    r = rnd16()
    'Do While s Like "*|" & r & "|*" And s <> "|": r = rnd16(): Loop
dodo:
    If s Like "*|" & r & "|*" And s <> "|" Then r = rnd16(): GoTo dodo
    s = s & r & "|"
Next i
g = s
End Function

?


Ваше имя:

Пароль:
Цитировать: [quote][/quote] Код: [code][/code]
Жирный: [b][/b] Наклонный: [i][/i]
URL: [url][/url] 

Сообщение:

 Размер файла не более 50 Кбт. Большие файлы можно размещать на www.slil.ru

Прикрепить:

 

Для вставки смайлов в текст щелкните по значку.