Вывод рандомного числа

@Max D · Регистрация: 02.09.2015

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

Вообщем нужна кнопка, которая будет выводить рандомное число от 1 до 12, но с большим шансом выпадения чисел 5 и 6. Помогите, кто чем сможет)))

@Апострофф · 03.09.2015, 06:51

Сообщение от Max D

с большим шансом выпадения чисел 5 и 6

насколько больше - отрегулируйте в четвертой строке кода

Visual Basic    
        
            
                
                
                
                
            
        
    Скопировано
1
2
3
4
5
6
Private Sub Command1_Click()
Dim r As Byte
r = Int(Rnd * 12 + 1)
If Rnd < 0.5 Then r = Int(Rnd * 2 + 5)
MsgBox r
End Sub

@Pro_grammer · 03.09.2015, 06:58

Сообщение от Max D

но с большим шансом выпадения чисел 5 и 6

Насколько бОльшим, чем остальные?
Например такой вариант пойдет?

Visual Basic    
        
            
                
                
                
                
            
        
    Скопировано
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Command1_Click()
Dim value As Integer, i As Integer
For i = 1 To 20
value = Int((30 * Rnd()) + 1)
Select Case value
Case 13 To 20
value = 6
Case 21 To 30
value = 5
End Select
 
Print value
Next
 
End Sub

Новые блоги и статьи Все статьи Все блоги /
Работа с объемным DOM в javascript Htext 04.04.2025 Сегодня прочитал статью тут о расходах памяти в JS, ее утечках и т. п. И вот что вспомнил из своей недавней практики. Может, кому пригодится. Хотя, в той статье об этом тоже есть. Дело в том, что я. . .	Оптимизация производительности Node.js с помощью кластеризации run.dev 04.04.2025 Масштабирование приложений для обработки тысяч и миллионов запросов — обыденная задача для многих команд. Node. js, благодаря своей асинхронной событийно-ориентированной архитектуре, стал популярной. . .	Управление зависимостями в Python с Poetry py-thonny 04.04.2025 Стандартный инструмент для установки пакетов в Python - pip - прекрасно справляется с базовыми сценариями: установил пакет командой pip install и используешь его. Но что произойдёт, когда разные. . .	Мониторинг с Prometheus в PHP Jason-Webb 04.04.2025 Prometheus выделяется среди других систем мониторинга своим подходом к сбору и хранению метрик. В отличие от New Relic, который использует агентный подход и отправляет данные во внешнее хранилище,. . .	Пакет Context в Golang: Управление потоками и ресурсами golander 04.04.2025 Работа с горутинами в Go часто напоминает управление непослушными детьми - они разбегаются кто куда, делают что хотят и не всегда завершаются вовремя. К счастью, в Go 1. 7 появился пакет context,. . .
Контейнеризация React приложений с Docker Reangularity 03.04.2025 Контейнеризация позволяет упаковать приложение со всеми его зависимостями в автономный контейнер, который можно запустить на любой платформе с установленным Docker. Это существенно упрощает процессы. . .	Свой попап в SwiftUI mobDevWorks 03.04.2025 SwiftUI, как декларативный фреймворк от Apple, предоставляет множество инструментов для создания пользовательских интерфейсов. В нашем распоряжении есть такие API как alerts, popovers, action sheets. . .	Антипаттерны микросервисной архитектуры ArchitectMsa 03.04.2025 Хорошо спроектированная микросервисная система может выдержать испытание временем, оставаясь гибкой, масштабируемой и устойчивой к большинству проблем. Такая архитектура обладает высоким уровнем. . .	std::mutex в C++: Советы и примеры использования bytestream 03.04.2025 std::mutex - это механизм взаимного исключения, который гарантирует, что критический участок кода выполняется только одним потоком в каждый момент времени. Это простое, но могущественное средство. . .	Не удержался от оценки концепции двигателя Стирлинга. Hrethgir 03.04.2025 Сколько не пытался - она выдавала правильные схемы, причём случайно рисовала горячие области в середине, холодные по краям, трубки с краёв в низ и магнит в соединяющей, но при этой выдавала описание. . .

@Max D 0 / 0 / 0 Регистрация: 02.09.2015 Сообщений: 17

	Вывод рандомного числа 02.09.2015, 22:39. Показов 2697. Ответов 2 Метки нет (Все метки) Вообщем нужна кнопка, которая будет выводить рандомное число от 1 до 12, но с большим шансом выпадения чисел 5 и 6. Помогите, кто чем сможет))) 0

Вывод рандомного числа

Решение