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

UptoLike

87
vyvod = vyvod & myoutcomesS(J) & vbTab
Next
vyvod = vyvod &
vbCrLf
For I = 1 To var
vyvod = vyvod + variable$(I) + vbTab
For J = 1 To outcomes
vyvod = vyvod & rules(I, J) & vbTab
Next
vyvod = vyvod &
vbCrLf Next
MsgBox vyvod
End Sub
Пример
Запустим программу ехе.ехе. Появляется окно
Рис 6.9
Щелкаем по кнопке " Command1 Здесь мы вводим число переменных, названия этих переменных,
их минимальные и максимальные значения. В нашем примере: переменных 2; переменная 1 - крылья,
переменная 2 - клюв; минимальные значения у переменных будут равняться 0, а максимальные
значения будут равняться 1. Также мы вводим число допустимых исходов, вводим 2 исхода: 1 и
Рис. 6.10
    vyvod = vyvod & myoutcomesS(J) & vbTab
     Next
    vyvod = vyvod &
vbCrLf
    For I = 1 To var
    vyvod = vyvod + variable$(I) + vbTab
    For J = 1 To outcomes
    vyvod = vyvod & rules(I, J) & vbTab
    Next
    vyvod = vyvod &
vbCrLf Next
    MsgBox vyvod
    End Sub
    Пример
    Запустим программу ехе.ехе. Появляется окно




                                                 Рис 6.9


    Щелкаем по кнопке " Command1 ‖ Здесь мы вводим число переменных, названия этих переменных,
их минимальные и максимальные значения. В нашем примере: переменных 2; переменная 1 - крылья,
переменная 2 - клюв; минимальные значения у переменных будут равняться 0, а максимальные
значения будут равняться 1. Также мы вводим число допустимых исходов, вводим 2 исхода: 1 и Рис. 6.10




                                                87