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

UptoLike

ВУЗ: 

ПГУ | Пенза

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

Рубрика: 

82
Листинг программы
VERSION 5.00
Begin VB.Form
Forml
Caption =
"Forml"
CHentHeight =
555
ClientLeft =
60
ClientTop =
345
ClientWidth =
1560
LinkTopic =
"Forml"
ScaleHeight =
555
ScaleWidth =
1560
StartUpPosition= 3‘ Windows Default
Begin VB.CommandButton Comand1
Caption =
"Command 1"
Height =
375
Left =
240
Tablndex =
0
Top =
120
Width =
975
End
End
Attribute VB_Name = "Forml"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VBPredeclaredld =True
Attribute VB_Exposed = False
Private Sub Command 1_Click()
tmp$ = InputBox("Введите число переменных (не больше 5)")
If tmp < "1" Or tmp > "5" Then tmp = "0"
var = Clnt(tmp)
If var < 1 Or var > 5 Then
MsgBox ("Вы должны ввести целое число от 1 до 5")
Exit Sub
End If
ReDim value(var), variable$(var), mini(var), maxi(var), varflag(var),
rulevalue(var)
For I = 1 To var
variable$(I) = InputBox( "Переменная я "& I, "введите имена этих переменных:") 
    Листинг программы
    VERSION 5.00
    Begin VB.Form
Forml


          Caption            =        "Forml"
          CHentHeight        =        555
          ClientLeft      =           60
          ClientTop       =           345
         ClientWidth      =           1560
         LinkTopic        =           "Forml"
          ScaleHeight     =           555
          ScaleWidth      =           1560


          StartUpPosition= 3‘ Windows Default
          Begin VB.CommandButton Comand1
          Caption          =             "Command 1"
          Height           =          375
         Left              =          240
       Tablndex           =            0
          Top             =           120
      Width              =             975


     End
     End
     Attribute VB_Name = "Forml"
      Attribute VB_GlobalNameSpace = False
      Attribute VB_Creatable = False
     Attribute VBPredeclaredld =True
     Attribute VB_Exposed = False
     Private Sub Command 1_Click()
     tmp$ = InputBox("Введите число переменных (не больше 5)")
      If tmp < "1" Or tmp > "5" Then tmp = "0"
      var = Clnt(tmp)
     If var < 1 Or var > 5 Then
     MsgBox ("Вы должны ввести целое число от 1 до 5")
     Exit Sub
     End If
     ReDim value(var), variable$(var), mini(var), maxi(var), varflag(var),
rulevalue(var)
     For I = 1 To var
     variable$(I) = InputBox( "Переменная я "& I, "введите имена этих переменных:")


                                             82

Страницы