Генератор случайных чисел - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

10   голосов , оценка 3.7 из 5
Похожие ответы