N皇后的回溯算法
公司主營業(yè)務(wù)：成都網(wǎng)站設(shè)計、成都網(wǎng)站建設(shè)、移動網(wǎng)站開發(fā)等業(yè)務(wù)。幫助企業(yè)客戶真正實現(xiàn)互聯(lián)網(wǎng)宣傳，提高企業(yè)的競爭能力。成都創(chuàng)新互聯(lián)是一支青春激揚、勤奮敬業(yè)、活力青春激揚、勤奮敬業(yè)、活力澎湃、和諧高效的團隊。公司秉承以“開放、自由、嚴(yán)謹(jǐn)、自律”為核心的企業(yè)文化，感謝他們對我們的高要求，感謝他們從不同領(lǐng)域給我們帶來的挑戰(zhàn)，讓我們激情的團隊有機會用頭腦與智慧不斷的給客戶帶來驚喜。成都創(chuàng)新互聯(lián)推出青陽免費做網(wǎng)站回饋大家。
會員推薦 閱讀1次 2006-1-24
Option Explicit
''N皇后互不攻擊問題的回溯算法
Private Sub Command1_Click()
Dim n As Long
Dim i As Long, j As Long
Dim a() As Long
n = CLng(Text1.Text)
ReDim a(1 To n)
For i = 1 To n
a(i) = 1
Next
'*算法實現(xiàn)
'設(shè)i－1個皇后已經(jīng)放好，判斷第i個皇后的位置，如果和前面i－1個中的任意一個有攻擊，則該皇后向前走一步．
'直到放好為止，如果該行沒有位置可放，則表示前i－1個皇后的位置有問題，先將該第i個皇后回到第一列，
'再回溯到第i－1個皇后，將該皇后向前走一步，直到放好為止，如果不行，先將該皇后回一列，再回溯到第i－2個皇后．
'如此，直到所有皇后放好為止．
'---------------------------------------------------------------------------------------------
For i = 2 To n
10:
If a(i) = n Then
For j = 1 To i - 1
If a(j) = a(i) Or Abs(a(i) - a(j)) = i - j Then a(i) = a(i) + 1: GoTo 10
Next
If i = n Then MsgBox "有解" ''要求多解的話，可以再繼續(xù)
Else
a(i) = 1
i = i - 1
a(i) = a(i) + 1
If i = 1 Then
If a(i) n Then MsgBox "無解": Exit Sub
i = 2
End If
GoTo 10
End If
Next
'---------------------------------------------------------------------------------------------
grd.Rows = 0
grd.Cols = 0
grd.Rows = n + 1
grd.Cols = n + 1
For i = 0 To n
grd.TextMatrix(0, i) = i
grd.TextMatrix(i, 0) = i
grd.ColWidth(i) = 225
Next
For i = 1 To n
grd.TextMatrix(i, a(i)) = "*"
Next
End Sub
1、vb.net ?完全符合面向?qū)ο蟮木幊陶Z言抽象、封裝、繼承的四大特性，而vb不支持繼承。
2、錯誤處理不同。
vb中只是On Error.....goto和On Errer Resume Next ，這些錯誤稱為非結(jié)構(gòu)化異常處理。而在vb.net中采用的結(jié)構(gòu)化異常處理機制，try...catch....finally控制。
3、兩者產(chǎn)生的窗體不同。
vb.net 允許創(chuàng)建不同類型的應(yīng)用程序，例如，創(chuàng)建ASP.NET和ASP.NET Web 服務(wù)應(yīng)用程序，還允許創(chuàng)建控制臺應(yīng)用程序和作為桌面服務(wù)運行的應(yīng)用程序。但是vb 只能創(chuàng)建Windows窗體。
4、數(shù)據(jù)庫訪問的差別。
vb6.0是通過ADO（Active X Data Objext）來實現(xiàn)對數(shù)據(jù)庫訪問。而vb.net 是通過ADO.NET來訪問數(shù)據(jù)庫。
擴展資料
Visual Basic（簡稱VB）是Microsoft公司開發(fā)的一種通用的基于對象的程序設(shè)計語言，為結(jié)構(gòu)化的、模塊化的、面向?qū)ο蟮摹瑓f(xié)助開發(fā)環(huán)境的事件驅(qū)動為機制的可視化程序設(shè)計語言。是一種可用于微軟自家產(chǎn)品開發(fā)的語言。
“Visual” 指的是開發(fā)圖形用戶界面 (GUI) 的方法——不需編寫大量代碼去描述界面元素的外觀和位置，而只要把預(yù)先建立的對象add到屏幕上的一點即可。
“Basic”指的是 BASIC (Beginners All-Purpose Symbolic Instruction Code) 語言，是一種在計算技術(shù)發(fā)展歷史上應(yīng)用得最為廣泛的語言。
Visual Basic源自于BASIC編程語言。VB擁有圖形用戶界面（GUI）和快速應(yīng)用程序開發(fā)（RAD）系統(tǒng)，可以輕易的使用DAO、RDO、ADO連接數(shù)據(jù)庫，或者輕松的創(chuàng)建Active?X控件，用于高效生成類型安全和面向?qū)ο蟮膽?yīng)用程序 。
參考資料：百度百科-Visual Basic
人工智能也就是所謂的AI(Artificial Intelligence) 是一門很抽象的技術(shù) AI程序的編寫不需要依據(jù)任何既定的思考模式或者規(guī)則 尤其是游戲中的AI可以完全依程序設(shè)計者本身的思考邏輯制作 我個人認(rèn)為人工智能的核心應(yīng)該是使計算機具有自動的處理事件的能力 而我們的所有的研究也應(yīng)該圍繞著這一方向 主體是策略類的人工智能
策略類人工智能可以說是AI中比較復(fù)雜的一種 最常見的策略類AI游戲就是棋盤式游戲 在這類游戲中 通常的策略類AI程序都是使計算機判斷目前狀況下所有可走的棋與可能的獲勝狀況 并計算當(dāng)前計算機可走棋步的獲勝分?jǐn)?shù)或者玩家可走棋步的獲勝分?jǐn)?shù) 然后再決定出一個最佳走法 下面先介紹一下五子棋的AI構(gòu)想
五子棋的AI構(gòu)想
有句話叫 當(dāng)局者迷 旁觀者清 但這句話在由AI所控制的計算機玩家上是不成立的 因為計算機必須知道有那些獲勝方式 并計算出每下一步棋到棋盤上任一格子的獲勝幾率 也就是說 一個完整的五子棋的AI構(gòu)想必須 能夠知道所有的獲勝組合
建立和使用獲勝表
設(shè)定獲勝的分?jǐn)?shù)
使電腦具有攻擊和防守的能力
一 求五子棋的獲勝組合
在一場五子棋的游戲中 計算機必須要知道有那些的獲勝組合 因此我們必須求得獲勝組合的總數(shù) 我們假定當(dāng)前的棋盤為 *
（ ）計算水平方向的獲勝組合數(shù) 每一列的獲勝組合是 共 列 所以水平方向的獲勝組合數(shù)為 * =
（ ）計算垂直方向的獲勝組合總數(shù) 每一行的獲勝組合是 共 行 則垂直方向的獲勝組合數(shù)為 * =
（ ）計算正對角線方向的獲勝組合總數(shù) 正對角線上的獲勝組合總數(shù)為
+（ + + + + ）* =
（ ）計算反對角線方向的獲勝組合總數(shù) 反對角線上的獲勝組合總數(shù)為?? +（ + + + + ）* = 這樣所有的獲勝組合數(shù)為 + + + =
二 建立和使用獲勝表
我們已經(jīng)計算出了一個 * 的五子棋盤會有 種獲勝方式 這樣我們可以利用數(shù)組建立獲勝表 獲勝表的主要作用是 判斷當(dāng)前的獲勝方式是否有效 判斷當(dāng)前的獲勝方式中到底有多少子落入該獲勝組合中 詳細(xì)的使用您將在后面的程序中可以看出
三 分?jǐn)?shù)的設(shè)定
在游戲中為了讓計算機能夠決定下一步最佳的走法 必須先計算出計算機下到棋盤上任一空格的分?jǐn)?shù) 而其中最高分?jǐn)?shù)便是計算機下一步的最佳走法
原理 我們判定當(dāng)前討論的空格與當(dāng)前討論的點有幾種獲勝的方式 有幾種該空格就加幾分 這種原理初聽起來似乎是無法入手 沒關(guān)系 當(dāng)您了解我們后面的程序后您就會明白這種決策原理了
這種決策有一些缺陷 因為如果只根據(jù)這個模型設(shè)計 就有可能出現(xiàn)電腦或玩家有三個子連成一線的時候 計算機卻判斷不出 它認(rèn)為其他某些空格是當(dāng)前的獲勝的最佳位置而不去攻擊或防守 沒關(guān)系我們完全可以通過一個加強算法來改變當(dāng)前的分值情況 也就是說當(dāng)電腦或玩家有三個子或四個子連成一線時 我們通過加強算法將當(dāng)前與三個子或四個子有關(guān)的空格的分值提高 從而可以彌補這一缺憾
四 攻擊與防守
以上的方式 事實上計算機只是計算出了最佳的攻擊位置 為了防守我們還應(yīng)計算當(dāng)前玩家的最佳的攻擊位置 這樣有什么用呢？道理很簡單 如果玩家最佳攻擊位置的分?jǐn)?shù)大于計算機最佳攻擊位置上的分?jǐn)?shù) 那么計算機就將下一步的棋子擺在玩家的最佳攻擊位上以阻止玩家的進攻 否則計算機便將棋子下在自己的最佳攻擊位置上進行攻擊
事實上 這個AI構(gòu)想是很強大的如果你不是很厲害的五子棋高手的話 可能很快會被計算機打敗 我在聯(lián)眾上可是中級棋手啊 跟這種構(gòu)想打的時候勝率也不是很高
使用編寫五子棋
一 編寫前的準(zhǔn)備
用計算機的思想描述整個下棋的過程
考慮步驟
（ ）為了簡便我們可以先讓電腦先走第一步棋 電腦每走一步就會封掉許多玩家的獲勝可能情況
（ ）當(dāng)玩家走棋的時候我們首先應(yīng)該考慮玩家走棋的合法性
（ ）如果合法 那么玩家也會封掉許多電腦的獲勝的可能情況
（ ）電腦的思考路徑 首先判斷當(dāng)前玩家和電腦的所有獲勝組合是否需要進行加強賦值 是進行加強賦值 否則進行普通的賦值
（ ）比較當(dāng)前玩家和電腦誰的分值最大 將分值最大的點作為電腦的下一步走法
利用窗體和圖形工具建立五子棋的棋盤界面
（ ）添加一個picturebox控件
作用 使用picturebox控件繪制棋子和棋盤
（ ）添加一個label控件
作用 顯示當(dāng)前的獲勝標(biāo)志 也就是當(dāng)某一方獲勝或和棋時顯示此標(biāo)簽
（ ）添加一個mainmenu控件
作用 控制游戲的開始或結(jié)束
（ ）添加一個mediaplay組件
作用 使程序可以播放音樂
設(shè)置整體框價
我們采取 * 的棋盤 為主要的平臺 利用數(shù)組定義整個棋盤桌面 利用數(shù)組定義獲勝組合以及獲勝標(biāo)志等
二 聲明全局?jǐn)?shù)組和變量
定義虛擬桌面
Dim table( ) As Integer定義當(dāng)前玩家桌面空格的分?jǐn)?shù)
Dim pscore( ) As Integer定義當(dāng)前電腦桌面空格的分?jǐn)?shù)
Dim cscore( ) As Integer定義玩家的獲勝組合
Dim pwin( ) As Boolean定義電腦的獲勝組合
Dim cwin( ) As Boolean定義玩家的獲勝組合標(biāo)志
Dim pflag( ) As Boolean定義電腦的獲勝組合標(biāo)志
Dim cflag( ) As Boolean定義游戲有效標(biāo)志
lishixinzhi/Article/program/ASP/201311/21668
vb.net和python區(qū)別
Python的應(yīng)用面相對廣，跨平臺，而且易于上手，代碼條理清晰，人工智能，自動化任務(wù)，以及Web應(yīng)用都算是Python一展所長的地方。
VB算是比較老的編程語言，是編譯型語言，對Windows的支持比較好?？梢蚤_發(fā)一些小規(guī)模的應(yīng)用程序，（用過VB的都知道復(fù)雜程序一上去，代碼就會很亂），還有一種應(yīng)用叫VBA, 可以在Excel或者Word等軟件當(dāng)中開發(fā)自動化腳本，也算是挺有用的。
● Visual Basic.NET是基于微軟.NET Framework之上的面向?qū)ο蟮木幊陶Z言。
其在調(diào)試時是以解釋型語言方式運作,而輸出為EXE程序時是以編譯型語言方式運作。
可以看作是Visual Basic在.Net Framework平臺上的升級版本，增強了對面向?qū)ο蟮闹С?。大多的VB.Net程序員使用Visual Studio .Net作為IDE（integrated development environment).SharpDevelop是另一種可用的開源的IDE。
VB.Net需要在.Net Framework平臺上才能執(zhí)行。
● Python是一種計算機程序設(shè)計語言。是一種面向?qū)ο蟮膭討B(tài)類型語言，最初被設(shè)計用于編寫自動化腳本(shell)，隨著版本的不斷更新和語言新功能的添加，越來越多被用于獨立的、大型項目的開發(fā)。
相關(guān)推薦：《Python教程》以上就是小編分享的關(guān)于vb.net和python區(qū)別的詳細(xì)內(nèi)容希望對大家有所幫助，更多有關(guān)python教程請關(guān)注環(huán)球青藤其它相關(guān)文章！
VB 是Visual Basic編程語言
1991年，美國微軟公司推出了Visual Basic(可間稱VB），目前的最新版本是.net中文版。
Visual 意即可視的、可見的，指的是開發(fā)像windows操作系統(tǒng)的圖形用戶界面（Graphic User Interface,GUI）的方法，它不需要編寫大量代碼去描述界面元素的外觀和位置，只要把預(yù)先建立好的對象拖放到屏幕上相應(yīng)的位置即可。
Basic指的是Beginners all_purpose symbolic instruction code 初始者通用符號指令代碼語言。
Visual Basic有學(xué)習(xí)版、專業(yè)版和企業(yè)版三種版本，以滿足不同的開發(fā)需要。學(xué)習(xí)版適用于普通學(xué)習(xí)者及大多數(shù)使用Visual Basic開發(fā)一般Windows應(yīng)用程序的人員；專業(yè)版適用于計算機專業(yè)開發(fā)人員，包括了學(xué)習(xí)版的全部內(nèi)容功能以及Internet控件開發(fā)工具之類的高級特性；企業(yè)版除包含專業(yè)版全部的內(nèi)容外，還有自動化構(gòu)件管理器等工具，使得專業(yè)編程人員能夠開發(fā)功能強大的組骨子里分布式應(yīng)用程序。
VB是一種可視化的、面向?qū)ο蠛筒捎檬录?qū)動方式的結(jié)構(gòu)化高級程序設(shè)計語言，可用于開發(fā)Windows環(huán)境下的各類應(yīng)用程序。它簡單易學(xué)、效率高，且功能強大可以與Windowsr專業(yè)開發(fā)工具SDK相媲美。在VisualBasic環(huán)境下，利用事件驅(qū)動的編程機制、新穎易用的可視化設(shè)計工具，使用Windows內(nèi)部的廣泛應(yīng)用程序接口（SPI）函數(shù)，以用動態(tài)鏈接庫（DLL）、對象的鏈接與世隔嵌入（OLE）、開放式數(shù)據(jù)連接（ODBC）等技術(shù)，可以高效、快速地開發(fā)Windows環(huán)境下功能強大、圖形界面豐富的應(yīng)用軟件系統(tǒng)。隨著版本的提高，Visual Basic的功能也越來越強。5.0版以后，Visual Basic推出了中文版，與前個版本相比，其功能有了很大提升。
在二十一世紀(jì)初，microsoft公司推出Visual Studio 2003與Visual Basic之間有了重大變化，Visual Studio為各種編程工具做了一個平臺，Visual Basic.NET可在這種平臺上運行。相對于傳統(tǒng)VB，有很大的不同。VB.Net，首次使用.Net構(gòu)架進行可視化編程，并且能很好地與COM構(gòu)架兼容。2005年Visual Studio 2005則運用了NET 2.0的技術(shù)，更加的方便了程序員的工作?？墒切碌某绦?qū)ο到y(tǒng)配置要求也較高，需要微軟.Net Framework 2.0以上的.Net構(gòu)架支持。
另外VB還有一個意思
維生素B包括維生素B1、維生素B2、維生素B6、維生素B12、煙酸、泛酸、葉酸等。這些B族維生素是推動體內(nèi)代謝，把糖、脂肪、蛋白質(zhì)等轉(zhuǎn)化成熱量時不可缺少的物質(zhì)。如果缺少維生素B，則細(xì)胞功能馬上降低，引起代謝障礙，這時人體會出現(xiàn)怠滯和食欲不振。相反喝酒過多等導(dǎo)致肝臟損害，在許多場合下是和維生素B缺乏癥并行的。
以下是含有豐富維生素B的食品：
①含有豐富維生素B1的食品：小麥胚芽、豬腿肉、大豆、花生、里肌肉、火腿、黑米、雞肝、胚芽米等。
②含有豐富維生素B2的食品：七腮鰻、牛肝、雞肝、香菇、小麥胚芽、雞蛋、奶酪等。
③含有維生素B6、維生素B12、煙酸、泛酸和葉酸等食品： 肝、肉類、牛奶、酵母、魚、豆類、蛋黃、堅果類、菠菜、奶酪等。其中的維生素B1在人體內(nèi)無法貯存，所以應(yīng)每天補充。
B族維生素若想全部攝取比較困難，但是認(rèn)真選擇食物就可以簡單且方便的攝取。上述含有維生素B的食物可以分為①和②③兩組?？纯瓷鲜龇诸惥涂梢悦靼?，②和⑧全都含在大體相同的食物中。因此①作為一組食物，②和③合在一起形成一組食物，組合選擇兩組食物，基本上可以把B族維生素攝取到手。
1.VB是什么？
VB是visual Basic的簡稱，即初學(xué)者通用符號代碼，是很容易入門的語言，從BASIC發(fā)展而來。
2.學(xué)VB有什么用？
VB是一門編程語言，所以能用VB做的很多很多，基本上除了底層開發(fā)(系統(tǒng)軟件)，VB都能做，而且在數(shù)據(jù)庫應(yīng)用方面VB也有他獨到的一面。
3.如何學(xué)好VB（請詳細(xì)說明）
這不是一句兩句可以說清楚的。給你一個學(xué)習(xí)的過程：
3.1.入門，這段時間你應(yīng)該學(xué)會VB的基本語法，基本語句和基本控件等。能夠?qū)懸恍┖唵蔚挠嬎愠绦蚓退憧梢詷贰１热鐚懸粋€解1元2次方程的程序，寫一個求解兩數(shù)的最新公約數(shù)的程序等等。
3.2.開始做VB界面的一些東西，了解控件，窗體的使用，事件，方法、過程和函數(shù)等。
3.3 開始用類設(shè)計VB程序。封裝一個VB類。學(xué)會VB中類的使用方法。
3.4 學(xué)習(xí)使用API增強程序的功能。
3.5 這是轉(zhuǎn)入學(xué)習(xí)C語言，不一定要很強，能懂一些語法就行，當(dāng)然能夠深入的話，就可以轉(zhuǎn)C++樂。
3.6 有樂C的基礎(chǔ)，就可以去學(xué)習(xí)數(shù)據(jù)結(jié)構(gòu)樂。數(shù)據(jù)結(jié)構(gòu)很重要，一定要學(xué)好。
3.7 開始在VB里面嘗試實現(xiàn)數(shù)據(jù)結(jié)構(gòu)，比如做一個鏈表，vb沒有指針，所以不能向c那樣做鏈表，但我想這時候你應(yīng)該知道怎么做樂。
3.8 開始嘗試做游戲，做不同的程序，做自己想做的東西。
3.9 深入VB。 VB到了這個階段，深入是很困難的了。需要API的幫助。做一些窗口回調(diào)，掛鉤等程序。
4.0 你已經(jīng)有相當(dāng)?shù)腣B經(jīng)驗了，這時候要確定一個方向了，比如游戲編程directx,比如大數(shù)據(jù)量的數(shù)學(xué)計算，人工智能等等。。。
4.1 等等等
5.VB可以作什么程序？
VB能做的太多了，除不不能開發(fā)ddk程序，不能開發(fā)sys,vxd其他的基本都能做。（呵呵，開發(fā)OS肯定不行了。） ，而用VB做個圖書管理系統(tǒng)，醫(yī)院管理系統(tǒng)等做畢業(yè)設(shè)計，是再快速和簡便不過的了，功能也可以做的非常強大，現(xiàn)在好多流行軟件也用VB開發(fā)。當(dāng)然Delphi也很好使。
VB學(xué)習(xí)網(wǎng)站太多
如；
中國VB網(wǎng)
打開后下面有友情鏈接，可以找到更多VB學(xué)習(xí)網(wǎng)站。
重慶分公司
重慶分公司
