main.frm

ｖｂ做的银行家算法

VERSION 5.00
Begin VB.Form Text24 
   Caption         =   "计算24程序"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   WindowState     =   2  'Maximized
   Begin VB.Frame Frame1 
      Caption         =   "输入4个数求出计算24的结果"
      Height          =   2775
      Left            =   180
      TabIndex        =   0
      Top             =   135
      Width           =   4215
      Begin VB.CommandButton Command1 
         Caption         =   "确定<&E>"
         Height          =   360
         Left            =   2880
         TabIndex        =   9
         Top             =   2205
         Width           =   1080
      End
      Begin VB.TextBox Text4 
         Height          =   270
         Left            =   1815
         TabIndex        =   8
         Text            =   "1"
         Top             =   1590
         Width           =   1335
      End
      Begin VB.TextBox Text3 
         Height          =   270
         Left            =   1830
         TabIndex        =   6
         Text            =   "1"
         Top             =   1200
         Width           =   1335
      End
      Begin VB.TextBox Text2 
         Height          =   270
         Left            =   1830
         TabIndex        =   4
         Text            =   "1"
         Top             =   810
         Width           =   1335
      End
      Begin VB.TextBox Text1 
         Height          =   270
         Left            =   1830
         TabIndex        =   2
         Text            =   "1"
         Top             =   420
         Width           =   1335
      End
      Begin VB.Label Label5 
         Caption         =   "计算结果："
         Height          =   255
         Left            =   330
         TabIndex        =   10
         Top             =   2220
         Width           =   2265
      End
      Begin VB.Label Label4 
         Caption         =   "请输入第四个数："
         Height          =   255
         Left            =   360
         TabIndex        =   7
         Top             =   1620
         Width           =   1695
      End
      Begin VB.Label Label3 
         Caption         =   "请输入第三个数："
         Height          =   255
         Left            =   375
         TabIndex        =   5
         Top             =   1260
         Width           =   1695
      End
      Begin VB.Label Label2 
         Caption         =   "请输入第二个数："
         Height          =   255
         Left            =   375
         TabIndex        =   3
         Top             =   885
         Width           =   1695
      End
      Begin VB.Label Label1 
         Caption         =   "请输入第一个数："
         Height          =   255
         Left            =   375
         TabIndex        =   1
         Top             =   480
         Width           =   1440
      End
   End
End
Attribute VB_Name = "Text24"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Private Sub Command1_Click()
Call Text

End Sub

Private Sub Text1_Change()

Text1.Text = Val(Text1.Text)
If Text1.Text > 13 Or Text1.Text <= 0 Then
Call MsgBox("对不起，输入的值非法,系统自动纠正！", vbOKOnly, "错误信息")
  Text1.Text = 5
End If
End Sub

Private Sub Text2_Change()
Text2.Text = Val(Text2.Text)
If Text2.Text > 13 Or Text2.Text <= 0 Then
Call MsgBox("对不起，输入的值非法,系统自动纠正！", vbOKOnly, "错误信息")
  Text2.Text = 5
End If
End Sub

Private Sub Text3_Change()
Text3.Text = Val(Text3.Text)
If Text3.Text > 13 Or Text3.Text <= 0 Then
Call MsgBox("对不起，输入的值非法,系统自动纠正！", vbOKOnly, "错误信息")
  Text3.Text = 5
End If
End Sub

Private Sub Text4_Change()
Text4.Text = Val(Text4.Text)
If Text4.Text > 13 Or Text4.Text <= 0 Then
Call MsgBox("对不起，输入的值非法,系统自动纠正！", vbOKOnly, "错误信息")
  Text4.Text = 5
End If
End Sub
Private Sub Text()
   Dim Num(5), n1, n2, n3, n4 As Integer
   Dim tt As String
   
   n1 = 1
   n2 = 1
   n3 = 1
   n4 = 1
   
   Num(1) = Val(Text1.Text)
   Num(2) = Val(Text2.Text)
   Num(3) = Val(Text3.Text)
   Num(4) = Val(Text4.Text)
  '    MsgBox Num(3)
   For n1 = 1 To 4
      For n2 = 1 To 4
         For n3 = 1 To 4
             For n4 = 1 To 4
Next1:
      If n1 = n2 Or n2 = n3 Or n3 = n4 Or n1 = n3 Or n1 = n4 Or n2 = n4 Then
        '  df
          Else
          
          If Num(n1) + Num(n2) + Num(n3) + Num(n4) = 24 Then
           '  MsgBox n1 & n2 & n3 & n4
             tt = Str(Num(n1)) & "+" & Str(Num(n2)) & "+" & Num(n3) & "+" & Str(Num(n4)) & "=24"
              GoTo right:
           End If
          If Num(n1) + Num(n2) + Num(n3) - Num(n4) = 24 Then
              tt = Num(n1) & "+" & Num(n2) & "+" & Num(n3) & "-" & Num(n4) & "=24"
              GoTo right:
           End If
         If Num(n1) + Num(n2) + Num(n3) * Num(n4) = 24 Then
              tt = Num(n1) & "+" & Num(n2) & "+" & Num(n3) & "*" & Num(n4) & "=24"
               GoTo right:
           End If
         If Num(n1) + Num(n2) + Num(n3) / Num(n4) = 24 Then
             tt = Num(n1) & "+" & Num(n2) & "+" & Num(n3) & "/" & Num(n4) & "=24"
              GoTo right:
           End If
         If Num(n1) + Num(n2) - Num(n3) + Num(n4) = 24 Then
             tt = Num(n1) & "+" & Num(n2) & "-" & Num(n3) & "+" & Num(n4) & "=24"
               GoTo right:
           End If
           
           
            If Num(n1) + Num(n2) * Num(n3) + Num(n4) = 24 Then
              tt = Num(n1) & "+" & Num(n2) & "*" & Num(n3) & "+" & Num(n4) & "=24"
               GoTo right:
           End If
            If Num(n1) + Num(n2) / Num(n3) + Num(n4) = 24 Then
               tt = Num(n1) & "+" & Num(n2) & "/" & Num(n3) & "+" & Num(n4) & "=24"
              GoTo right:
           End If
   
            If Num(n1) - Num(n2) + Num(n3) + Num(n4) = 24 Then
               tt = Num(n1) & "-" & Num(n2) & "+" & Num(n3) & "+" & Num(n4) & "=24"
              GoTo right:
           End If
         If Num(n1) * Num(n2) - Num(n3) + Num(n4) = 24 Then
               tt = Num(n1) & "*" & Num(n2) & "-" & Num(n3) & "+" & Num(n4) & "=24"
              GoTo right:
           End If
         If Num(n1) / Num(n2) - Num(n3) + Num(n4) = 24 Then
              tt = Num(n1) & "/" & Num(n2) & "-" & Num(n3) & "+" & Num(n4) & "=24"
              GoTo right:
           End If
          If Num(n1) / Num(n2) + Num(n3) + Num(n4) = 24 Then
              tt = Num(n1) & "/" & Num(n2) & "-" & Num(n3) & "+" & Num(n4) & "=24"
              GoTo right:
           End If
         If Num(n1) / Num(n2) - Num(n3) - Num(n4) = 24 Then
              tt = Num(n1) & "/" & Num(n2) & "-" & Num(n3) & "-" & Num(n4) & "=24"
              GoTo right:
           End If
        
         If Num(n1) / Num(n2) - Num(n3) * Num(n4) = 24 Then
              tt = Num(n1) & "/" & Num(n2) & "-" & Num(n3) & "*" & Num(n4) & "=24"
              GoTo right:
           End If
         If Num(n1) / (Num(n2) - Num(n3) / Num(n4)) = 24 Then
              tt = Num(n1) & "/(" & Num(n2) & "-" & Num(n3) & "+" & Num(n4) & ")=24"
              GoTo right:
           End If
        
        
           
   End If
   
             Next
         Next
         
      Next
   Next
   GoTo ex1:
Exit Sub
right:
    'MsgBox Num(n1), Num(n2)
    
    Label5.Caption = "结果是：" & tt
  '  MsgBox ("Next")
  '  GoTo Next1:
    
   
   Exit Sub
ex1:
     Label5.Caption = "对不起，找不到信息"
     
     
   
End Sub