Генератор случайных символов

@Gonchut · Регистрация: 30.01.2013

Студворк — интернет-сервис помощи студентам

Как создать генератор символов: английские буквы (как строчные, так и прописные).
Схема такая:
1) Пользователь выбирает количество генерируемых символов в text1.text (например, 5)
2) нажимаем на кнопку
3) text1.text="GsdIu"

mobile · 01.02.2013, 18:04

Функция сгенерирует случайную последовательность английских строчных и прописных букв.

Visual Basic
1
2
3
4
5
6
7
8
9
10
Function genSimbol(n As Integer) As String
    Dim i As Integer, k1 As Integer, k2 As Integer, s As String
    For i = 1 To n
        k1 = Int(Rnd(Timer) * 26)
        k2 = Rnd(Timer) * 2
        s = Chr(65 + k1)
        If k2 > 1 Then s = LCase(s)
        genSimbol = genSimbol & s
    Next
End Function

@Апострофф · 01.02.2013, 18:07

Visual Basic
1
2
3
4
5
6
7
8
9
Private Sub CommandButton1_Click()
Dim u As Long
u = Val(TextBox1.Text)
TextBox1.Text = ""
Randomize
For i = 1 To u
  TextBox1.Text = TextBox1.Text & Chr$(Int(Rnd * 26) + Int(Rnd * 2) * 32 + 65)
Next i
End Sub

Не по теме:

Не мой сегодня день:wall:

@Gonchut · 01.02.2013, 19:24 **[ТС]**

что-то у меня ничего не работает...
отправьте в виде форму.

SoftIce · 01.02.2013, 20:20

Сообщение от Gonchut

что-то у меня ничего не работает...
отправьте в виде форму.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function genSimbol(n As Integer) As String
    Dim i As Integer, k1 As Integer, k2 As Integer, s As String
    For i = 1 To n
        k1 = Int(Rnd(Timer) * 26)
        k2 = Rnd(Timer) * 2
        s = Chr(65 + k1)
        If k2 > 1 Then s = LCase(s)
        genSimbol = genSimbol & s
    Next
End Function
 
Private Sub Command1_Click()
    Text2.Text = genSimbol(Val(Text1.Text))
End Sub

Randomize забыл воткнуть

@Апострофф · 01.02.2013, 20:25

Gonchut, имена контролов поправь, и всё получится

@antonboom · 01.02.2013, 22:04

Кто-нибудь может на естественном языке объяснить любой из представленных кодов, если не сложно?

@Казанский · 01.02.2013, 22:52

antonboom, Basic и так почти естественный английский

Магические числа: 26 - число букв в англ. алфавите, 65 - код буквы "А", т.е. asc("A")
32 - разность кодов букв "а" и "А", т.е. asc("a")-asc("A")

@Апострофф · 01.02.2013, 23:23

И

Сообщение от Апострофф

Int(Rnd * 2)

это 0 или 1 с почти равной вероятностью

Dragokas · 02.02.2013, 04:03

Я хотел выложить свой ~~более понятный~~ быдлокод, но сдержался.

antonboom, откройте таблицу символов (лист "Chr") - все вопросы должны отпасть.

Новые блоги и статьи Все статьи Все блоги /
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .

Генератор случайных символов

Решение

Решение

Решение

Решение

@Gonchut 0 / 0 / 0 Регистрация: 30.01.2013 Сообщений: 16

	Генератор случайных символов 01.02.2013, 17:41. Показов 10345. Ответов 9 Метки нет (Все метки) Как создать генератор символов: английские буквы (как строчные, так и прописные). Схема такая: 1) Пользователь выбирает количество генерируемых символов в text1.text (например, 5) 2) нажимаем на кнопку 3) text1.text="GsdIu" 0

@Gonchut 0 / 0 / 0 Регистрация: 30.01.2013 Сообщений: 16
	01.02.2013, 19:24 [ТС]
	что-то у меня ничего не работает... отправьте в виде форму. 0

@Апострофф 9908 / 3923 / 742 Регистрация: 11.10.2011 Сообщений: 5,904
	01.02.2013, 20:25
	Gonchut, имена контролов поправь, и всё получится 2

@antonboom bmstu-team 301 / 136 / 91 Регистрация: 10.01.2012 Сообщений: 420 Записей в блоге: 10
	01.02.2013, 22:04
	Кто-нибудь может на естественном языке объяснить любой из представленных кодов, если не сложно? 0

@Казанский 15155 / 6428 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	01.02.2013, 22:52
	Сообщение было отмечено как решение Решение antonboom, Basic и так почти естественный английский Магические числа: 26 - число букв в англ. алфавите, 65 - код буквы "А", т.е. asc("A") 32 - разность кодов букв "а" и "А", т.е. asc("a")-asc("A") 0

Dragokas 18030 / 7733 / 892 Регистрация: 25.12.2011 Сообщений: 11,502 Записей в блоге: 16
	02.02.2013, 04:03
	Я хотел выложить свой ~~более понятный~~ быдлокод, но сдержался. antonboom, откройте таблицу символов (лист "Chr") - все вопросы должны отпасть. 1