VERSION 5.00
Begin VB.Form frm1 
   BackColor       =   &H00FFFFFF&
   Caption         =   "Игра Баше"
   ClientHeight    =   3195
   ClientLeft      =   5355
   ClientTop       =   4095
   ClientWidth     =   4680
   BeginProperty Font 
      Name            =   "Times New Roman"
      Size            =   12
      Charset         =   204
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   Begin VB.CommandButton cmd1 
      BackColor       =   &H00FFFFFF&
      Caption         =   "Начать игру"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   204
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Left            =   2880
      TabIndex        =   0
      Top             =   2400
      Width           =   1695
   End
End
Attribute VB_Name = "frm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim bytN, bytB, bytK, bytI, bytY As Byte
Private Sub cmd1_Click()
Randomize
bytN = Int(10 + 10 * Rnd)
Print "Первоначальное количество предметов"; bytN
bytB = MsgBox("Количество предметов" + Str(bytN) + "." + "   Начать игру?", 36, "Игра Баше")
If bytB = 7 Then End
Do While bytN > 1
bytI = bytI + 1
For bytK = 0 To 6
Select Case bytN
Case Is = 4 * bytK
bytN = bytN - 3
Print "После"; bytI; "хода осталось предметов"; bytN
Case Is = 4 * bytK + 1
bytN = bytN - Int(1 + 2 * Rnd)
Print "После"; bytI; "хода осталось предметов"; bytN
Case Is = 4 * bytK + 2
bytN = bytN - 1
Print "После"; bytI; "хода осталось предметов"; bytN
Case Is = 4 * bytK + 3
bytN = bytN - 2
Print "После"; bytI; "хода осталось предметов"; bytN
End Select
Next bytK
If bytN = 1 Then MsgBox "После хода компьютера остался 1 предмет.Вы проиграли!", , "Игра Баше": End
strX = InputBox("Какое количество предметов Вы забираете?", "Ваш ход!")
bytN = bytN - Val(strX)
If bytN = 1 Then MsgBox "После Вашего хода остался 1 предмет. Компьютер проиграл!", , "Игра Баше": End
Loop
End Sub
