Изображение пользователя Шибеко Марина Николаевна

Microsoft Excel

doc
14.05.2020

Публикация педагогических разработок

Бесплатное участие. Свидетельство автора сразу.
Мгновенные 10 документов в портфолио.

Добавить материал

91. Microsoft Excel.doc

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 Генерация случайных букв

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