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

     tmp = tmp & I & " " & myoutcomes$(i)& " "
      Next
     MsgBox "Возможные исходы:" & vbCrLF& vbCrLf & tmp 33: tmp$ -
InputBox("Какой исход возможен?")
     If tmp = "" Then tmp = "a"
     If tmp < "0" Or tmp > "9" Then tmp = ―a‖
     If tmp = "a" Then
     MsgBox ("Число должно быть целым и не больше 1000")
      GoTo 33
          EndIf
     correct=Clnt(tmp)
     Rem Спроси про любую, не известную на данный момент переменную; For J =
1 То var
     If varflag(J) - 0 Then GoTo 920
     44: tmp$= InputBox("число равно значение переменной " & J & " (" & variable$(J) & ") ?")
     If tmp = "" Then tmp = "a"
     If tmp < "0" Or tmp > '9" Then tmp = "a"
     If tmp = "a" Then
     MsgBox ("Число должно быть целым и не больше 1000")
      GoTo АА
     End If
     value(J) = Clnt(tmp)
     varflag(J) = 0 920: Next
     Rem Коррекция массива rules
For I = 1 To outcomes
     If I = correct Or decisions(I) < decisions(correct) Then GoTo 990
     For J = 1 To var
    Rules(J, I) = rules(J, I) - value(J)
    Next
    Next
    For J = 1
To var
    rules(J, correct) = ruIes(J, correct) + value(J)
      Next
     990:
     Rem Отображение текущего массива правил vyvod$=‖‖
     vyvod = "Текущий массив правил:" + vbCrLf + vbCrLf
     For J = 1 To outcomes




                                                       86