Генератор случайных чисел - VB (62524)
Формулировка задачи:
Здравствуйте люди!!! Может ли кто нить из вас помочь мне? Нужно создать генератор случайных чисел который мог бы из заданого промежутка выбрасывать случайные числа записывая их в 4 столбика.
1 2 3 4
5 6 7 8
9 10 11 12
где (1,2,3,4) - номер числа, а не его значене
Ну или хотя бы привидите примеры кодов анологичных генераторов.
Всех заранее благодарю!!!
Решение задачи: «Генератор случайных чисел»
textual
Листинг программы
Private Sub Command1_Click() Dim paramA As Double Dim paramB As Double Dim i%, r% paramA = Text1.Text paramB = Text2.Text Label1 = "" Randomize (Timer) For i = 1 To paramA r = CInt(Int((paramB - Val(Text3) + 1) * Rnd() + Val(Text3))) Label1 = Label1 & r & " " If i Mod 4 = 0 Then Label1 = Label1 & vbCrLf Next i End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д