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

@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?

Новые блоги и статьи Все статьи Все блоги /
Nekobox - outbounds[0].transport: unknown transport type: raw damix 01.10.2026 Фикс ошибки Правым кликом по серверу -> отладочная информация -> edit Заменить "net": "raw", на "net": "tcp", Нажать кнопку reload.	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .
Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .

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

	Генератор случайных чисел 10.03.2011, 19:56. Показов 29148. Ответов 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

Опции темы