Сгенерировать случайное двоичное число типа Long - VB

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

HELP!!! Подскажите пожалуйста, как в VB при помощи датчика случайных чисел сгенерировать случайное двоичное число типа Long?

Решение задачи: «Сгенерировать случайное двоичное число типа Long»

textual
                            Листинг программы 
                        

                            Sub main()
Dim L As Long, i As Long, s As String
L = Rnd * 2 ^ 24
For i = 0 To 31
  s = (L And 1) & s
  L = L \ 2
Next i
Debug.Print s
End Sub
                        

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

8 голосов , оценка 4 из 5

Похожие ответы