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

1: tmp$ = InputBox(Ee минимальное значение=")
If tnip = "" Then Exit Sub
If tmp < "0" Or tmp > "9" Then tmp = "a"
If tmp = "a" Then
MsgBox ("Число должно быть от 0 до 1000") GoTo 1
End If
mini(I) = Clnt(tmp) 2: tmp$ = InputBox("Ee максимальное значение=")
If tmp = '"* Then Exit Sub
If tmp < "0" Or tmp > "9" Then tmp = "a"
If tmp = "a" Then
MsgBox ("число должно быть от 0 до 1000") GoTo 2
End If
maxi(I) = Clnt(tmp) Next
outcomes = InputВох("Введите число допустимых исходов")
ReDim myoutcomes$(outcomes), rules(var, outcomes),
 decisions(outcomes), outflag(outcomes), possible (outcomes)
For I = 1 To outcomes
11: tmp$ = InputBox(Иcxoд " & I, "Каковы значения этих исходов?")
If tmp = "" Then Exit Sub
If tmp < "0" Or tmp > "9" Then tmp = "a"
If tmp = "a" Then
MsgBox ("Число должно быть целым и не больше 1000") GoTo 11
End If
myoutcomesS(I) = Clnt(tmp)
 Next
Dim vyvod$
Vyvod$ = ""
Rem подробное описание переменных:
vyvod = "Переменная" & "Мин. значение, макс, значение" & vbCrLf
For I = 1 То var
vyvod = vyvod & variable$(I) &" "& mini(I) &" "& maxi(I) & vbCrLf
Next
 MsgBox vyvod



                                           83