乙個用qbasic寫就的21點遊戲，能夠下賭注與ai（美其名曰）玩，字元介面的人機互動。
declare sub yingying (y!, c!, d!) declare sub shushu (y!, c!, d!) declare sub ying (y!, c!, d!) declare sub shu (y!, c!, d!) declare sub prinqian (y!, c!) declare sub prindian (dian!) def fnzhi (qq) if qq <= 10 then zhi = qq else zhi = 10 end if fnzhi = zhi end def cls you = 100: computer = 100 do while not you < 0 and not computer < 0 a = 0: b = 0 do call prinqian(you, computer) ｉｎｐｕｔ "ｉｎｐｕｔ the number of money:"; duzhu loop until duzhu <= 20 and duzhu >= 5 and fix(duzhu) = duzhu nd = 1 for n = 1 to 2 randomize timer aa = int(rnd * 13 + 1) bb = int(rnd * 13 + 1) a = a + fnzhi(aa) b = b + fnzhi(bb) next n '*****b***** do while b <= 16 b = b + fnzhi(int(rnd * 13 + 1)) loop '*****b***** flag = 1 do while flag = 1 and a < 22 call prindian(a) do if nd = 1 then ｉｎｐｕｔ "ｉｎｐｕｔ the number of money again."; duzhu2 end if nd = 0 loop until duzhu2 <= 20 and fix(duzhu2) = duzhu2 and duzhu2 >= 0 duzhu = duzhu + duzhu2 duzhu2 = 0 a: ｉｎｐｕｔ "1 or 0:"; flag if flag = 0 then exit do elseif flag = 1 then aa = int(rnd * 13 + 1) a = a + fnzhi(aa) else goto a end if loop print a, b if a > b and a <= 21 or b > 21 and a <= 21 then print "you win." if a = 21 then call yingying(you, computer, duzhu) else call ying(you, computer, duzhu) end if else print "you fail." if b = 21 then call shushu(you, computer, duzhu) else call shu(you, computer, duzhu) end if end if you = you - 2 loop if you < 0 then print "try again." else print "you are the winner." end if end sub prindian (dian) print "dian:"; dian end sub sub prinqian (y, c) print "you:"; y, "computer:"; c end sub sub shu (y, c, d) y = y - d c = c + d end sub sub shushu (y, c, d) c = c + 2 * d y = y - 2 * d end sub sub ying (y, c, d) y = y + d c = c - d end sub sub yingying (y, c, d) c = c - 2 * d y = y + 2 * d end sub
這段**寫於03年，彼時為了中考加分而準備計算機二級考試，考試內容是qbasic。而我學了點東西，應付考試不在行，總愛瞎鼓搗，這算是當時的「得意之作」。彼時不知物件導向為何物，只知順序，分支，迴圈；只知氣泡排序，樸素的選擇排序，而不知有快速排序。
以我自己今天的眼光來看這段**，亦非全然一塌糊塗——比如把常用的功能寫成子程式，函式，甚至還檢查了使用者輸入的合法性。不足之處在於，整個程式結構欠清晰，毫無可擴充套件性可言。
qbasic帶給我的快樂與成就感縈繞心間，雖歷3年高中生活，未嘗盡忘，後來填志願時便計算機了。
我的第乙個hbulider專案
7月3日實訓第一天 實訓內容 五子棋遊戲 達州的天氣真的不是一般的熱，分分鐘就可以把人熱化，就這樣我們帶著沉重的腳步開始了我們第一天的實訓，老師叫李胤，剛開始我還不知道這個字怎麼讀，很尷尬啊，是乙個比較幽默的老師，希望和老師有乙個愉快的實訓。我們學習h5，說實話我們之前還沒有接觸過h5 學的還是基本...
我的第乙個PyQt專案
環境 python 3.6.0 pyqt5.9.1 pycharm 功能 1.選單欄 有control和help兩個選項 2.狀態列 3.退出詢問 import sys from pyqt5.qtgui import from pyqt5.qtwidgets import class mainwin...
我帶的第乙個專案
esample專案 目標 為以後的精準營銷打下了堅實基礎 專案設計多個部門之間的配合，我們開發部門，搜尋部門，測試，dba，sa，scm 根據專案管理四要素 成本，範圍，質量，時間來說說本次專案管理我學到的經驗吧，當然還有很多其他的東西，如風險.成本 在我們公司，基本上是人力資源成本，在專案開始前，...