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