Переделать код с си++ на 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

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


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

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

15   голосов , оценка 4.267 из 5