Генератор случайных чисел - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
