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

@Sergey198826 · Регистрация: 10.03.2011

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

Здравствуйте люди!!! Может ли кто нить из вас помочь мне? Нужно создать генератор случайных чисел который мог бы из заданого промежутка выбрасывать случайные числа записывая их в 4 столбика.
1 2 3 4
5 6 7 8
9 10 11 12
где (1,2,3,4) - номер числа, а не его значене
Ну или хотя бы привидите примеры кодов анологичных генераторов.
Всех заранее благодарю!!!

@Sergey198826 · 12.03.2011, 23:21 **[ТС]**

gaw еще раз благодарю за помощь. Успехов вам. Можете ли вы мне порекомендовать на ваш взгляд самый удачный самоучитель по VB, который был бы написан довольно доступным языком? У меня имеются кое-какие издания, однако ваша рекомендация очень мне поможет.

@gaw · 12.03.2011, 23:45

я всегда с большим уважением отношусь к людям, желающим ЗНАТЬ
я бы рекомендовал именно этот форум, тут всегда и с удовольствием помогают тем, кто действительно хочет учиться, а конкретно, так я не могу рекомендовать больше чем гугл
скажу больше, но и выше и тут, - это мое личное мнение, неординарные, интересные, событийные, ситуативные и т.д. вопросы должны найти тут (на форуме) свое решение (убежден не единственное, а в разных вариациях)
думаю, что я неодинок в этом убеждении.
Даже бы открыл голосование по этому вопросу

@Sergey198826 · 12.03.2011, 23:56 **[ТС]**

Благодарю вас gaw! Я никогда не занимался програмированием, но для моего дипломного проекта оно необходимо. Если у меня все получится я обязательно поделюсь с вами результатом. Что же касается вас и тех людей которые готовы отдать свое личное время в помощь другим людям, это вызывает огромное уважение и надежду в лучшее будущее для всех.

@gaw · 13.03.2011, 00:00

спасибо большое, и хочу верить, нет, - убежден, что у вас будущее - есть!
Удачи Вам и успехов.
обращайтесь

@Sergey198826 · 25.03.2011, 21:04 **[ТС]**

Здравствуйте люди. Вот код моего егенератора случайных чисел в VB6

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Option Explicit
 
Private Sub Command1_Click()
Dim paramA As Double
Dim paramB As Double
Dim i%, r1%, t1%, i1%, r2%
paramA = Text1.Text
paramB = Text2.Text
 
Label1 = ""
Label2 = ""
For i = 1 To paramA
r1 = Int(Rnd * paramB) + 1
t1 = -Log(r1 / 100) * 3600 / (paramB + 1)
Label1 = Label1 & r1 & " "
If i Mod 1 = 0 Then Label1 = Label1 & vbCrLf
 
Next i
 
For i1 = 1 To paramA
r2 = Int(Rnd * paramB) + 1
Label2 = Label2 & r2 & " "
If i1 Mod 1 = 0 Then Label2 = Label2 & vbCrLf
Next i1
 
End Sub
 
Private Sub Form_Load()
Randomize
End Sub

Данный генератор выбрасывает два стобика чисел, необходимо сделать так чтоб в зависимости от значений во втором столбике числам первого столбика присваивалась буква?

Куда нужно вставить структуру и как ее изменить

Visual Basic
1
2
3
4
5
6
select case r2
case 1 to 100
Label1 = Label1 & t1 & "T" & vbCrLf 
case 101 to 200
Label1 = Label1 & t1 & "R" & vbCrLf 
End Select

чтобы в зависимости от значения r2 буквы присваивались в 1 стобик, то есть к t1?

Новые блоги и статьи Все статьи Все блоги /
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. 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 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .

@Sergey198826 0 / 0 / 0 Регистрация: 10.03.2011 Сообщений: 22

	Генератор случайных чисел 10.03.2011, 19:56. Показов 28784. Ответов 24 Метки нет (Все метки) Здравствуйте люди!!! Может ли кто нить из вас помочь мне? Нужно создать генератор случайных чисел который мог бы из заданого промежутка выбрасывать случайные числа записывая их в 4 столбика. 1 2 3 4 5 6 7 8 9 10 11 12 где (1,2,3,4) - номер числа, а не его значене Ну или хотя бы привидите примеры кодов анологичных генераторов. Всех заранее благодарю!!! 0

@Sergey198826 0 / 0 / 0 Регистрация: 10.03.2011 Сообщений: 22
	12.03.2011, 23:21 [ТС]
	gaw еще раз благодарю за помощь. Успехов вам. Можете ли вы мне порекомендовать на ваш взгляд самый удачный самоучитель по VB, который был бы написан довольно доступным языком? У меня имеются кое-какие издания, однако ваша рекомендация очень мне поможет. 0

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	12.03.2011, 23:45
	я всегда с большим уважением отношусь к людям, желающим ЗНАТЬ я бы рекомендовал именно этот форум, тут всегда и с удовольствием помогают тем, кто действительно хочет учиться, а конкретно, так я не могу рекомендовать больше чем гугл скажу больше, но и выше и тут, - это мое личное мнение, неординарные, интересные, событийные, ситуативные и т.д. вопросы должны найти тут (на форуме) свое решение (убежден не единственное, а в разных вариациях) думаю, что я неодинок в этом убеждении. Даже бы открыл голосование по этому вопросу 1

@Sergey198826 0 / 0 / 0 Регистрация: 10.03.2011 Сообщений: 22
	12.03.2011, 23:56 [ТС]
	Благодарю вас gaw! Я никогда не занимался програмированием, но для моего дипломного проекта оно необходимо. Если у меня все получится я обязательно поделюсь с вами результатом. Что же касается вас и тех людей которые готовы отдать свое личное время в помощь другим людям, это вызывает огромное уважение и надежду в лучшее будущее для всех. 0

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	13.03.2011, 00:00
	спасибо большое, и хочу верить, нет, - убежден, что у вас будущее - есть! Удачи Вам и успехов. обращайтесь 1