VB课程设-代码.docVIP

Dim iCount As Long, NumAns As String, Num4 As String Private Sub Cancel_Click() Dim i As CommandButton NewData For Each i In cmdNum i.Enabled = True Next mnuAns.Enabled = True Cancel.Enabled = True End Sub Private Sub umdCancel_Click() Dim i As CommandButton NewData For Each i In cmdNum i.Enabled = True Next mnuAns.Enabled = True Cancel.Enabled = True End Sub Private Sub cmdNum_Click(Index As Integer) Dim i As CommandButton cmdNum(Index).Enabled = False Num4 = Num4 Index If Len(Num4) = 4 Then OK.Enabled = True For Each i In cmdNum i.Enabled = False Next End If Label3.Caption = Num4 End Sub Private Sub OK_click() Dim i As Long, j As Long, c As CommandButton 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 Label1.Caption = itrp R itrn F list.AddItem Num4 Label1.Caption list.ListIndex = list.ListCount - 1 End If For Each c In cmdNum c.Enabled = True Next OK.Enabled = False Num4 = Static tar_num As Integer tar_num = tar_num + 1 Text1.Text = tar_num End Sub Private Sub Form_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case Asc(0) To Asc(9) cmdNum_Click (KeyAscii - Asc(0)) Case 13 If OK.Enabled = True Then OK_click Case 27 If cmdcalcel = True Then Cancel_Click End Select End Sub Private Sub Form_Load() Dim i As CommandButton For Each i In cmdNum i.Enabled = False i.Caption = i.Index Next Randomize End Sub Private Sub mnuAns_Click() MsgBox 答案是 NumAns ，你猜对了么, vbCritical End Sub Private Sub mnuExit_Click() Unload Me End Sub Sub NewData() Num4 = iCount = 0 list.Clear Dim s As String * 10, i As Long, r As Long s =