Основы построения и функционирования интеллектуальных информационных систем. Былкин В.Д - 59 стр.

150:
ms = ms + 1
If ms > 1 Then If MsgBox("3aкончить проверку?", vbYesNo, "Что делать") - vbYes Then GoTo 1 1 1
For i = 1 To var
       VALUE(i) = 0
If MsgBox(variables(i) & vbCrLf & "Эта переменная есть?", vbYesNo, "да или нет?") = vbYes Then
VALUE(i) = 1 Next


decision = 0
 For i = 1 To var
       decision = decision + VALUE(i) * RULES(i)
Next
If decision > 0 Then tmpl = outсome1 Else tmp1 = outcome2
If MsgBox("Boзможный исход: " & tmpl & vbCrLf & "Это верно?",
vbYesNo, "скажите...") = vbYes Then GoTo 150
If decision > 0 Then
 For i = 1 To var
       RULES(i) = RULES(i) - VALUE(i)
        Next
        Else
       For i = 1 To var
       RULES(i) = RULES(i) + VALUE(i)
        Next
        End If
       111:
End sub
Private Sub Command2_Click()
Unload Me
End Sub




                                                 59