VB课程设-代码.doc

Private Sub Cancel_Click()
Dim i mandButton
NewData
For Each i In cmdNum
= True
Next
= True
= True
End Sub
Private Sub umdCancel_Click()
Dim i mandButton
NewData
For Each i In cmdNum
= True
Next
= True
= True
End Sub
Private Sub cmdNum_Click(Index As Integer)
Dim i mandButton
cmdNum(Index).Enabled = False
Num4 = Num4 & Index
If Len(Num4) = 4 Then
= True
For Each i In cmdNum
= False
Next
End If
= Num4

End Sub
Private Sub OK_click()
Dim i As Long, j As Long, c mandButton
Dim itrp As Long, itrn As Long
itrp = 0
itrn = 0
iCount = iCount + 1
If NumAns = Num4 Then
MsgBox "只用了" & iCount & "次就猜对了,真聪明。单击确定进行下一个数字"
NewData
Else
For i = 1 To 4
If Mid(NumAns, i, 1) = Mid(Num4, i, 1) Then itrp = itrp + 1
For j = 1 To 4
If Mid(NumAns, i, 1) = Mid(Num4, j, 1) Then itrn = itrn + 1
Next
Next
itrn = itrn - itrp
= itrp & "R " & itrn & "F"
Num4 & " " &
= - 1
End If
For Each c In cmdNum
= True
Next
= False
Num4 = ""
Static tar_num As Integer
tar_num = tar_num + 1
= tar_num
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case Asc("0") To Asc("9")
cmdNum_Click (Key