runform.frm

神经网络的样本值对整个网络能否正常运行及误差的大小非常重要

         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   240
         TabIndex        =   1
         Top             =   720
         Width           =   735
      End
   End
End
Attribute VB_Name = "RunForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
  Dim out1 As Double
  Dim out2 As Double
  Dim out3 As Double
  Dim out4 As Double
  
  If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Then
    MsgBox "分数框不能为空", vbOKOnly + vbCritical + vbApplicationModal + vbDefaultButton1, "信息提示"
    Text1.Text = "": Text2.Text = "": Text3.Text = "": Text4.Text = ""
    Text1.SetFocus
    Exit Sub
  End If
  
  inin(0) = 150
  inin(1) = Val(Text1.Text)
  inin(2) = Val(Text2.Text)
  inin(3) = Val(Text3.Text)
  inin(4) = Val(Text4.Text)
  
  Call Run
  out1 = out(0)
  out2 = out(1)
  out3 = out(2)
  out4 = out(3)
  
  If flag = False Then
      If out1 < 0.5 Then
         If out2 < 0.5 Then
            If out3 < 0.5 Then
               If out4 < 0.5 Then
                   MsgBox "没有适合该考生的学科门类", vbOKOnly + vbInformation + vbApplicationModal + vbDefaultButton1, "运行结果"           '0000
               Else
                   MsgBox "该考生适合选择文学/历史学科", vbOKOnly + vbInformation + vbApplicationModal + vbDefaultButton1, "运行结果"        '0001
               End If
            Else
               If out4 < 0.5 Then
                   MsgBox "该考生适合选择教育学科", vbOKOnly + vbInformation + vbApplicationModal + vbDefaultButton1, "运行结果"             '0010
               Else
                   MsgBox "该考生适合选择文学/历史学科、教育学科", vbOKOnly + vbInformation + vbApplicationModal + vbDefaultButton1, "运行结果"  '0011
               End If
           End If
         Else
            If out3 < 0.5 Then
                If out4 < 0.5 Then
                   MsgBox "该考生适合选择经济学科", vbOKOnly + vbInformation + vbApplicationModal + vbDefaultButton1, "运行结果"               '0100
                Else
                   MsgBox "该考生适合选择文学/历史学科、经济学科", vbOKOnly + vbInformation + vbApplicationModal + vbDefaultButton1, "运行结果"  '0101
                End If
            Else
                If out4 < 0.5 Then
                   MsgBox "该考生适合选择教育学科、经济学科", vbOKOnly + vbInformation + vbApplicationModal + vbDefaultButton1, "运行结果"       '0110
                Else
                   MsgBox "该考生适合选择文学/历史学科、教育学科、经济学科", vbOKOnly + vbInformation + vbApplicationModal + vbDefaultButton1, "运行结果" '0111
                End If
           End If
         End If
      Else
         If out2 < 0.5 Then
            If out3 < 0.5 Then
               If out4 < 0.5 Then
                   MsgBox "该考生适合选择哲学/法学学科", vbOKOnly + vbInformation + vbApplicationModal + vbDefaultButton1, "运行结果"              '1000
               Else
                   MsgBox "该考生适合选择文学/历史学科、哲学/法学学科", vbOKOnly + vbInformation + vbApplicationModal + vbDefaultButton1, "运行结果"  '1001
               End If
            Else
               If out4 < 0.5 Then
                   MsgBox "该考生适合选择教育学科、哲学/法学学科", vbOKOnly + vbInformation + vbApplicationModal + vbDefaultButton1, "运行结果"       '1010
               Else
                   MsgBox "该考生适合选择文学/历史学科、教育学科、哲学/法学学科", vbOKOnly + vbInformation + vbApplicationModal + vbDefaultButton1, "运行结果"      '1011
               End If
           End If
         Else
            If out3 < 0.5 Then
                If out4 < 0.5 Then
                   MsgBox "该考生适合选择经济学科、哲学/法学学科", vbOKOnly + vbInformation + vbApplicationModal + vbDefaultButton1, "运行结果"             '1100
                Else
                   MsgBox "该考生适合选择文学/历史学科、经济学科、哲学/法学学科", vbOKOnly + vbInformation + vbApplicationModal + vbDefaultButton1, "运行结果"        '1101
                End If
            Else
                If out4 < 0.5 Then
                   MsgBox "该考生适合选择教育学科、经济学科、哲学/法学学科", vbOKOnly + vbInformation + vbApplicationModal + vbDefaultButton1, "运行结果"            '1110
                Else
                   MsgBox "该考生适合选择文学/历史学科、教育学科、经济学科、哲学/法学学科", vbOKOnly + vbInformation + vbApplicationModal + vbDefaultButton1, "运行结果"      '1111
                End If
           End If
         End If
      End If
    
    Else
       If out1 < 0.5 Then
         If out2 < 0.5 Then
            If out3 < 0.5 Then
               If out4 < 0.5 Then
                   MsgBox "没有适合该考生的学科门类", vbOKOnly + vbInformation + vbApplicationModal + vbDefaultButton1, "运行结果"
               Else
                   MsgBox "该考生适合选择医学学科", vbOKOnly + vbInformation + vbApplicationModal + vbDefaultButton1, "运行结果"
               End If
            Else
               If out4 < 0.5 Then
                   MsgBox "该考生适合选择农学学科", vbOKOnly + vbInformation + vbApplicationModal + vbDefaultButton1, "运行结果"
               Else
                   MsgBox "该考生适合选择农学学科、医学学科", vbOKOnly + vbInformation + vbApplicationModal + vbDefaultButton1, "运行结果"
               End If
           End If
         Else
            If out3 < 0.5 Then
                If out4 < 0.5 Then
                   MsgBox "该考生适合选择工学学科", vbOKOnly + vbInformation + vbApplicationModal + vbDefaultButton1, "运行结果"
                Else
                   MsgBox "该考生适合选择工学学科、医学学科", vbOKOnly + vbInformation + vbApplicationModal + vbDefaultButton1, "运行结果"
                End If
            Else
                If out4 < 0.5 Then
                   MsgBox "该考生适合选择工学学科、农学学科", vbOKOnly + vbInformation + vbApplicationModal + vbDefaultButton1, "运行结果"
                Else
                   MsgBox "该考生适合选择工学学科、农学学科、医学学科", vbOKOnly + vbInformation + vbApplicationModal + vbDefaultButton1, "运行结果"
                End If
           End If
         End If
      Else
         If out2 < 0.5 Then
            If out3 < 0.5 Then
               If out4 < 0.5 Then
                   MsgBox "该考生适合选择理学学科", vbOKOnly + vbInformation + vbApplicationModal + vbDefaultButton1, "运行结果"
               Else
                   MsgBox "该考生适合选择理学学科、医学学科", vbOKOnly + vbInformation + vbApplicationModal + vbDefaultButton1, "运行结果"
               End If
            Else
               If out4 < 0.5 Then
                   MsgBox "该考生适合选择理学学科、农学学科", vbOKOnly + vbInformation + vbApplicationModal + vbDefaultButton1, "运行结果"
               Else
                   MsgBox "该考生适合选择理学学科、农学学科、医学学科", vbOKOnly + vbInformation + vbApplicationModal + vbDefaultButton1, "运行结果"
               End If
           End If
         Else
            If out3 < 0.5 Then
                If out4 < 0.5 Then
                   MsgBox "该考生适合选择理学学科、工学学科", vbOKOnly + vbInformation + vbApplicationModal + vbDefaultButton1, "运行结果"
                Else
                   MsgBox "该考生适合选择理学学科、工学学科、医学学科", vbOKOnly + vbInformation + vbApplicationModal + vbDefaultButton1, "运行结果"
                End If
            Else
                If out4 < 0.5 Then
                   MsgBox "该考生适合选择理学学科、工学学科、农学学科", vbOKOnly + vbInformation + vbApplicationModal + vbDefaultButton1, "运行结果"
                Else
                   MsgBox "该考生适合选择理学学科、工学学科、农学学科、医学学科", vbOKOnly + vbInformation + vbApplicationModal + vbDefaultButton1, "运行结果"
                End If
           End If
         End If
      End If
   End If
    
End Sub

Private Sub Command2_Click()
  Text1.Text = "": Text2.Text = "": Text3.Text = "": Text4.Text = ""
  Text1.SetFocus

End Sub

Private Sub Command3_Click()
  Unload Me
End Sub

Private Sub Form_Activate()
  Me.Text1.SetFocus
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
  Call Enter(KeyAscii)
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
  Call Enter(KeyAscii)
End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)
  Call Enter(KeyAscii)
End Sub


Private Sub Text4_KeyPress(KeyAscii As Integer)
  Call Enter(KeyAscii)
End Sub