Переделать код с си++ на Visual basic - VB
Формулировка задачи:
Здравствуйте! У меня есть программа, создающая генератор случайных чисел, но она написана на языке си++. Помогите пожалуйста переделать в Visual Basic!
Решение задачи: «Переделать код с си++ на Visual basic»
textual
Листинг программы
Option Explicit Dim x0 As Long Private Function Random() As Long Dim M As Double, A As Double, C As Double Static x As Double x = x0 M = 429496: A = 214013: C = 25310 x = rMod(((A * x) + C), M) x0 = x Random = x End Function Public Function rMod(ByVal Op1 As Double, ByVal Op2 As Double) As Double ' Возвращает остаток от деления одного указанного числа на другое указанное число. rMod = (Abs(Op1) - (Abs(Op2) * (Int(Abs(Op1) / Abs(Op2))))) * Sgn(Op1) End Function Private Sub SRnd(ByVal Seed As Long) x0 = Seed End Sub Private Sub Form_Load() Dim M As Long x0 = 1 SRnd (Timer) M = Random() Mod 201 - 100 MsgBox M End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д