VERSION 5.00
Begin VB.Form frm1 
   BackColor       =   &H00404000&
   Caption         =   "Экспертная система"
   ClientHeight    =   2484
   ClientLeft      =   3984
   ClientTop       =   2832
   ClientWidth     =   2604
   LinkTopic       =   "Form1"
   ScaleHeight     =   2484
   ScaleWidth      =   2604
   Begin VB.ListBox lst1 
      Height          =   1392
      ItemData        =   "frm1.frx":0000
      Left            =   360
      List            =   "frm1.frx":0002
      TabIndex        =   1
      Top             =   120
      Width           =   1812
   End
   Begin VB.CommandButton cmd1 
      BackColor       =   &H00FFFFFF&
      Caption         =   "Распознавание"
      Height          =   372
      Left            =   480
      TabIndex        =   0
      Top             =   1800
      Width           =   1572
   End
End
Attribute VB_Name = "frm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Sub Щелочь()
bytA = MsgBox("При взаимодействии со щелочью ощущается запах аммиака?", 36, "Второй вопрос")
If bytA = 6 Then lst1.AddItem "1.Аммиачная селитра" Else lst1.AddItem "2.Натриевая селитра"
End Sub
Sub Соль()
bytA = MsgBox("При взаимодействии с солью выпадает белый осадок?", 36, "Второй вопрос")
If bytA = 6 Then Щелочь1 Else Внешний_вид
End Sub
Sub Щелочь1()
bytA = MsgBox("При взаимодействии со щелочью ощущается запах аммиака?", 36, "Третий вопрос")
If bytA = 6 Then lst1.AddItem "3. Сульфат аммония" Else lst1.AddItem "4. Суперфосфат"
End Sub
Sub Внешний_вид()
bytA = MsgBox("Розовые кристаллы?", 36, "Третий вопрос")
If bytA = 6 Then lst1.AddItem "5. Сильвинит" Else lst1.AddItem "6. Калийная соль"
End Sub
Private Sub cmd1_Click()
bytA = MsgBox("При взаимодействии с серной кислотой выделяется бурый газ?", 36, "Первый вопрос")
If bytA = 6 Then Щелочь Else Соль
End Sub
