; ''''下一步赋值 For k = 1 To 12 BEGINSTATE(k) = G_Next.getid(j * 12 - 12 + k) Next k ''''存入队列之中 G_Save.AddState BEGINSTATE, i, G_State.Level + 1 j = j + 1 Loop i = i + 1 If i Mod 19 = 0 Then DoEvents Loop time2 = Now() i = (time2 - time1) * 3600 * 24 G_Save.GetState G_Save.iCurrentNum If G_State.state(1) = 14 Then MsgBox "行走步数:" & G_Save.iCurrentNum & "用时: " & i, vbOKOnly, "恭喜恭喜,行走成功" Else MsgBox "行走步数:" & G_Save.iCurrentNum & "用时: " & i, vbOKOnly, "抱歉,行走失败" End If i=i+1 End Sub Private Sub Command1_Click() List1.Clear Dim i As Long i = G_Save.iCurrentNum G_Save.GetState i If G_State.state(1) <> 14 Then MsgBox "没有找到合理的解" Exit Sub End If Dim strtemp(1 To 1000) As String Dim k As Long j = 1 Do While G_State.Level > 0 strtemp(j) = "" For k = 1 To 12 strtemp(j) = strtemp(j) & CStr(G_State.state(k)) & "_" Next k strtemp(j) = strtemp(j) & "----" & CStr(G_State.Level) i = G_State.Superid G_Save.GetState i j = j + 1 Loop strtemp(j) = "" For k = 1 To 12 strtemp(j) = strtemp(j) & CStr(G_State.state(k)) & "_" Next k strtemp(j) = strtemp(j) & "----" & CStr(G_State.Level) For k = j To 1 Step -1 List1.AddItem strtemp(k) Next k End Sub Private Sub Form_Load() Set G_Next = New CHRDNext Set G_Save = New CHRDSave End Sub Private Sub mnuAbout_Click() frmAbout.Show End Sub Private Sub mnuExit_Click() End''''退出程序 End Sub
上一页 [1] [2] [3] [4] 没有相关教程
|