Генератор случайных чисел - VB (170191)

Узнай цену своей работы

Формулировка задачи:

Друзья, не могли бы вы помочь мне? Мне нужно написать генератор случайных чисел (от минус бесконечности до плюс бесконечности). А то мои познания в программировании не столь обширны. Спасибо)

Решение задачи: «Генератор случайных чисел»

textual
Листинг программы
Private Sub Form_Load()
    Dim s$, i&
 
'    Randomize
'    Randomize Timer
 
    For i = 1 To 10
      s = s & "," & Fix(Rnd * 32768 * 2) - 32768
    Next
    MsgBox s
    End
End Sub

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


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

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

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