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

UptoLike

ВУЗ: 

ПГУ | Пенза

Составители: 

Рубрика: 

58
Код программы
// Модуль главного окна
Option Explicit
Private Sub Command1_Click()
Dim var&, decision&, i&, varl$
Dim outcome1$, outcome2$
f
tmpl$
Dim VALUE() As Integer, RULES() As Integer, variables() As
String
varl = InputBox("Введите число переменных", "ввод данных")
If vari = "" Then GoTo 111 Else var = Clnt(varl)
If var < 1 Or var > 10 Then
If MsgBox("введите число от 1 до 10", vbOKOnly, "ошибка ввода!")
Then GoTo 111
GoTo 111
End If
ReDim VALUE(var) As Integer, RULES(var) As Integer,
variables(var) As String
For i = 1 To var
VALUE(i) = 0
RULES(i) = 0
Next
For i = 1 To var
variables(i) "= Input Box ("Имя переменной" & i, "Назовите эти переменные")
Next
Outcome$ = InputВох("Первый исход:", "Назовите возможные
исходы:")
outcome2$ = InputBox{"Второй исход:", "Назовите возможные исходы:")
Dim ms&
ms = 0 
       Код программы
       // Модуль главного окна
Option Explicit
       Private Sub Command1_Click()
         Dim var&, decision&, i&, varl$
         Dim outcome1$, outcome2$f tmpl$
       Dim VALUE() As Integer, RULES() As Integer, variables() As
       String
       varl = InputBox("Введите число переменных", "ввод данных")
       If vari = "" Then GoTo 111 Else var = Clnt(varl)
       If var < 1 Or var > 10 Then
       If MsgBox("введите число от 1 до 10", vbOKOnly, "ошибка ввода!")
       Then GoTo 111
       GoTo 111
       End If
       ReDim VALUE(var) As Integer, RULES(var) As Integer,
       variables(var) As String
       For i = 1 To var
 VALUE(i) = 0
 RULES(i) = 0
Next
For i = 1 To var
       variables(i) "= Input Box ("Имя переменной" & i, "Назовите эти переменные")
Next
Outcome$ = InputВох("Первый исход:", "Назовите возможные исходы:")
outcome2$ = InputBox{"Второй исход:", "Назовите возможные исходы:")
Dim ms&
ms = 0




                                                   58

Страницы