Бложик Дуни - Страница 2 - Форум о заработке | Seo форум | Кузница вебмастеров

Option Explicit /Даёт обозначение командам

Private Sub Start_Click() /Что будет происходить при клике на кнопку
Call FindTheNumber /Перенаправляет на другой блок
End Sub /Закрывает блок

Private Sub FindTheNumber() /Типа новый простенький блок
Number = Int(Rnd * 6) + 1 /Комп случайно выберет цифру от 1 до 6.
End Sub /Закрывает блок

Option Explicit
Dim Number As Integer, HNumber As Integer, Counter As Integer

Private Sub Start_Click()
Call FindTheNumber
Do
Call FindHumanN
Loop Until HNumber = Number
End Sub

Private Sub FindTheNumber()
Number = Int(Rnd * 6) + 1
End Sub

Private Sub FindHumanN()
HNumber = 0
HNumber = HNumber + 1
End Sub

Option Explicit
Dim Number As Integer, HNumber As Integer, Counter As Integer
Dim Message As String

Private Sub Start_Click()
     Call FindTheNumber
             Do
         For Counter = 1 To 6
     Call FindHumanN
     Call DisplayResult
     Call Prochot
         Next Counter
             Loop Until HNumber = Number
End Sub

Private Sub FindTheNumber()
     Number = Int(Rnd * 6) + 1
End Sub

Private Sub FindHumanN()
     HNumber = 0
     HNumber = HNumber + 1
End Sub

Private Sub Prochot()
     If HNumber = Number Then
         Message = "Âû óáèòû"
     Else
         Message = "Ïîêà æèâû"
     End If
End Sub

Private Sub DisplayResult()
     PicDisplay.Print Message
End Sub