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

  • Автор темы Mr-Sergio
  • Дата начала
Статус
Закрыто для дальнейших ответов.
M

Mr-Sergio

#1
Здравствуйте.
Создавал программу (по учебнику) и наткнулся на не понимание логикив фразе
Код:
Randomize
mem = Fix(Rnd * 100)
. Зачем rnd * 100? подскажите плиз. Вот код полностью
Код:
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
 
13.10.2013
1
0
#2
Функция Rnd возвращает псевдо-случайное число в диапазоне от 0 до 1
Пример:

0.0912309786
0.1293876234
0.9867182736

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

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

если не указать это значение то серия сл. чисел будет одинаковой при последущих запусках
 
Статус
Закрыто для дальнейших ответов.