Microsoft Excel

Оценка 4.6

Шибеко Марина

Microsoft Excel

Генерация случайных букв

Функция RandLetterRUS() возвращает случайные буквы русского алфавита

view plainprint?

1. Function RandLettersRUS(LenLetter As Integer)

2. Randomize

3. RandLettersRUS = Space(LenLetter)

4. For iCount = 1 To LenLetter

5. Mid(RandLettersRUS, iCount, 1) = Chr((Int(192 + (Rnd() * 64))))

6. Next

7. End Function

Функция RandUpperLetterENG() возвращает случайные прописные буквы английского алфавита

view plainprint?

1. Function RandUpperLettersENG(LenLetter As Integer)

2. Randomize

3. RandUpperLettersENG = Space(LenLetter)

4. For iCount% = 1 To LenLetter

5. Mid(RandUpperLettersENG, iCount%, 1) = Chr((Int(65 + (Rnd() * 26))))

6. Next

7. End Function

Скачано с www.znanio.ru

Microsoft Excel Генерация случайных букв

Материалы на данной страницы взяты из открытых истончиков либо размещены пользователем в соответствии с договором-офертой сайта. Вы можете сообщить о нарушении.

14.05.2020