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