guess

This was the public transportation inquiry system software engineering design documents, including t

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "猜数字"
   ClientHeight    =   3375
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4785
   LinkTopic       =   "Form1"
   ScaleHeight     =   3375
   ScaleWidth      =   4785
   StartUpPosition =   3  '窗口缺省
   Begin VB.HScrollBar HScroll1 
      Height          =   255
      Left            =   960
      Max             =   7
      TabIndex        =   7
      Top             =   2280
      Width           =   2655
   End
   Begin VB.TextBox Text1 
      Height          =   495
      Index           =   3
      Left            =   3600
      MaxLength       =   1
      TabIndex        =   4
      Top             =   840
      Width           =   615
   End
   Begin VB.TextBox Text1 
      Height          =   495
      Index           =   2
      Left            =   2520
      MaxLength       =   1
      TabIndex        =   3
      Top             =   840
      Width           =   615
   End
   Begin VB.CommandButton Command3 
      Caption         =   "我猜不出来"
      Height          =   495
      Left            =   2760
      TabIndex        =   6
      Top             =   2640
      Width           =   1215
   End
   Begin VB.TextBox Text1 
      Height          =   495
      Index           =   1
      Left            =   1560
      MaxLength       =   1
      TabIndex        =   2
      Top             =   840
      Width           =   615
   End
   Begin VB.TextBox Text1 
      Height          =   495
      Index           =   0
      Left            =   480
      MaxLength       =   1
      TabIndex        =   1
      Top             =   840
      Width           =   615
   End
   Begin VB.CommandButton Command1 
      Caption         =   "我猜"
      Height          =   495
      Left            =   720
      TabIndex        =   0
      Top             =   2640
      Width           =   1215
   End
   Begin VB.Label Label2 
      Caption         =   "     请输入四个不相同的数字"
      Height          =   255
      Left            =   840
      TabIndex        =   8
      Top             =   360
      Width           =   3015
   End
   Begin VB.Label Label1 
      Height          =   495
      Left            =   1080
      TabIndex        =   5
      Top             =   1680
      Width           =   2415
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public intnum As Integer
Private Sub Command1_Click()
 intwhole = 0: intright = 0: intwrong = 0
 For i = 0 To 3
  intguess(i) = Val(Text1(i).Text)
 Next
 For m = 0 To 3
  For n = 0 To 3
   If intguess(n) = intrand(m) Then
    intwhole = intwhole + 1
     If m = n Then
      intright = intright + 1
     Else
      intwrong = intwrong + 1
     End If
   End If
  Next n
 Next m
 If intright = 4 Then
  MsgBox "你真聪明耶，猜对了！！！"
  Form_Load
  Text1(0).Text = "": Text1(1).Text = "": Text1(2).Text = "": Text1(3).Text = ""
  Label1.Caption = ""
  For k = 0 To 7
   strrecord(k) = ""
  Next
  intnum = -1
 End If
 If intnum < 7 And intright <> 4 Then
   Label1.Caption = intguess(0) & intguess(1) & intguess(2) & intguess(3) & "共猜对了" & intwhole & "个数" & intright & "A" & intwrong & "B"
   strrecord(intnum) = intguess(0) & intguess(1) & intguess(2) & intguess(3) & "共猜对了" & intwhole & "个数" & intright & "A" & intwrong & "B"
   HScroll1.Value = intnum
 ElseIf intnum >= 7 Then
  strrecord(7) = intguess(0) & intguess(1) & intguess(2) & intguess(3) & "共猜对了" & intwhole & "个数" & intright & "A" & intwrong & "B"
  Label1.Caption = intrand(0) & intrand(1) & intrand(2) & intrand(3)
  MsgBox "你输啦~~~"
  Form_Load
  Text1(0).Text = "": Text1(1).Text = "": Text1(2).Text = "": Text1(3).Text = ""
  Label1.Caption = ""
  For k = 0 To 7
   strrecord(k) = ""
  Next
  intnum = -1
 End If
 intnum = intnum + 1
 Text1(0).Text = "": Text1(1).Text = "": Text1(2).Text = "": Text1(3).Text = ""
End Sub

Private Sub Command1_KeyPress(KeyAscii As Integer)
 If KeyAscii = 13 Then
  Command1_Click
 End If
End Sub

Private Sub Command3_Click()
   Label1.Caption = intrand(0) & intrand(1) & intrand(2) & intrand(3)
   MsgBox "大笨蛋！！！"
   Form_Load
   Text1(0).Text = "": Text1(1).Text = "": Text1(2).Text = "": Text1(3).Text = ""
   Label1.Caption = ""
   For k = 0 To 7
    strrecord(k) = ""
   Next
   intnum = 0
End Sub
Private Sub Form_Load()
 For i = 0 To 3
  Randomize
  intrand(i) = Int(Rnd(1) * 9)
 Next
R:
  For m = 0 To 2
   For n = m + 1 To 3
    If intrand(n) = intrand(m) Then
    Randomize
    intrand(m) = Int(Rnd(1) * 9): GoTo R
    End If
   Next n
  Next m
End Sub

Private Sub HScroll1_Change()
 Label1.Caption = strrecord(HScroll1.Value)
End Sub

Private Sub Text1_Change(Index As Integer)
 For i = 0 To 2
  If Index = i Then
    Text1(i + 1).SetFocus
  End If
 Next
  For j = 0 To 3
   If j <> Index Then
     If Text1(j).Text = Text1(Index).Text Then
      Text1(Index).Text = "": Text1(Index).SetFocus
     End If
   End If
  Next
End Sub
Private Sub Text1_GotFocus(Index As Integer)
 Text1(Index).SelStart = 0
 Text1(Index).SelLength = 1
End Sub
Private Sub Text1_Click(Index As Integer)
 Text1(Index).SelStart = 0
 Text1(Index).SelLength = 1
End Sub

Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
 If KeyAscii = 13 Then
  Command1_Click
  Text1(0).SetFocus
 End If
End Sub