Непонятие Логики

Тема в разделе "Visual Basic", создана пользователем Mr-Sergio, 22 дек 2012.

Статус темы:
Закрыта.
  1. Mr-Sergio

    Mr-Sergio Гость

    Здравствуйте.
    Создавал программу (по учебнику) и наткнулся на не понимание логикив фразе
    Код (Text):
    Randomize
    mem = Fix(Rnd * 100)
    . Зачем rnd * 100? подскажите плиз. Вот код полностью
    Код (Text):
    Dim mem As Integer
    Dim mem2 As Integer
    Dim symb As String
    Private Sub Command2_Click()
    Randomize
    mem = Fix(Rnd * 100)
    mem2 = 0
    Text1.Text = ""
    End Sub
    Private Sub Command1_Click()
    mem2 = mem2 + 1
    If mem2 <= 3 Then
    symb = "Chempion"
    End If
    If mem2 >= 5 Then
    symb = "Pro"
    End If
    If mem2 >= 7 Then
    symb = "Lamer"
    End If
    If mem2 >= 10 Then
    symb = "Chmo"
    End If
    If Val(Text1.Text) = mem Then
    MsgBox "you press on button for " & mem2 & " times" + symb, 32
    End If
    If Val(Text1.Text) < mem Then
    MsgBox "Too little", 32
    End If
    If Val(Text1.Text) > mem Then
    MsgBox "Too much", 32
    End If

    End Sub



    Private Sub Command3_Click()
    MsgBox " " & mem & " ", 64, "Help"
    End Sub

    Private Sub Form_Load()
    Form1.Caption = "Choose the number"
    End Sub
     
  2. JoraVoenyjHaker

    JoraVoenyjHaker New Member

    Регистрация:
    13 окт 2013
    Сообщения:
    1
    Симпатии:
    0
    Функция Rnd возвращает псевдо-случайное число в диапазоне от 0 до 1
    Пример:

    0.0912309786
    0.1293876234
    0.9867182736

    При умножении диапазон увеличивается
    Rnd * 100 >> возвращаемый диапазон будет от 0 до 100

    Randomize сбрасывает генератор случайных чисел на указанное значение
    например Randomize (Timer) - значение текущего времени

    если не указать это значение то серия сл. чисел будет одинаковой при последущих запусках
     
Загрузка...
Похожие Темы - Непонятие Логики
  1. lionk
    Ответов:
    13
    Просмотров:
    589
Статус темы:
Закрыта.

Поделиться этой страницей