VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 7286|回复: 4

VB3.0写的程序(偶数者胜)

[复制链接]
 楼主| 发表于 2009-1-9 17:29:36 | 显示全部楼层 |阅读模式
当年用VB3.0写的程序(偶数者胜)

“有物二十七,对弈双方轮取一至四,至尽各记所得,偶者胜。”


    注:保证VBRUN300.DLL在当前目录或系统目录里)。
        开始数字25,谁先取谁输,应该从27开始。

[ 本帖最后由 Igawk 于 2009-1-10 10:29 编辑 ]

GAME27.rar

425.29 KB, 下载次数: 1651

发表于 2009-1-9 20:21:37 | 显示全部楼层
3.0就开始用了.果然厉害~
回复 支持 反对

使用道具 举报

 楼主| 发表于 2009-1-10 10:30:57 | 显示全部楼层
有谁赢不了的?
回复 支持 反对

使用道具 举报

 楼主| 发表于 2009-2-20 22:18:55 | 显示全部楼层
截图
784733.png
回复 支持 反对

使用道具 举报

 楼主| 发表于 2012-4-20 10:27:14 | 显示全部楼层
VB6.0版:

以下内容另存为 g27.eml


  1. MIME-Version: 1.0
  2. Content-Type: multipart/mixed;
  3.         boundary="----=_NextPart_000_0018_01CD0393.DB260430"

  4. This is a multi-part message in MIME format.

  5. ------=_NextPart_000_0018_01CD0393.DB260430
  6. Content-Transfer-Encoding: base64
  7. Content-Disposition: attachment;
  8.         filename="=?gb2312?B?xbzK/dXfyqQuUkFS?="

  9. UmFyIRoHAM+QcwAADQAAAAAAAADcHHQgkC8AbxoAAACAAAAC7FJASDZPlEAdMwoAIAAAAEdBTUUy
  10. Ny5leGUA8JBvKBgllRUIjNvFwmM3TQdUB0RFSyRiSQZWSEKCEUj+H11U0QsQdPzbKsQQ3XRRAoaM
  11. GVW7PlbUupJsYz6MtJK20tssj9PC2klawkRkLEiliWLZCSF+hZ8S0YlsPp4+RYrHfvM5m6fhu6cz
  12. ve6G7qP4WWT/qd073e9zOZz8c5zmczNx6/xPOc9zmcznPc5nvnv+95z3veZ3c3u6Cb54qSvdtCPx
  13. L4UDy1agt8Q1qyB7BwOPy2/x5LDG/x7DfJtJfk0woqiIpqel1dPP66IoJ+kpKVjEapdEU9TSRFFf
  14. UjpZmI11LQrouDg8dEpCHg/g+T3OJyfF27vmT5fjbfhj9/l5XkBXY8r8JZiioGB692UrVjdaRM65
  15. 8b0mmld0dyRUmgU0ANY2IhtcJkT9GxPJIxCI+Z0k46mQ+zUyRp/sVoJOjakP7E+8P6bVZyxlmG7p
  16. mxAE/3uMwnSPcSb5hG3ZFsV1UxMKNEkbpa+G9RTuei6GfYz4EPjkkzhqA3wKjLKLp6inoCJICmSC
  17. aYPFXn/RTybyTkrMzmhnJXNRkXI6TSE+n3BSlKUpSlKUof5nqeFJ1Hcqb7jWEpUe6w0dQvyhdVT4
  18. D/9sVlRzSYLqvIkqjnUhe/xhlvxr7LeYH8xuS/EBZ8avZ8VspX+V9ySaTKnL9+pcbqte4PF+GZdm
  19. NpqG52s+2XF8Zyesh8B5oSH3jHGGvud3f8TJGXqqGy5o2XhwZlkTG2Ewfq9RynCwDZa3cmXB/s4P
  20. tBLPfCA74SDwNY3SwefMHz5HObqu7juXA+9cX+PXX39kbIgohiNf2/+G62u6bpd/03Uv7jZc7x3I
  21. cYNOdOVGJn+iSmbVkgEvOoz2A82PL+RSTZZ9HRCNrn1b0Cuvrnp2X124rd6JW816aSSstGXRo+bC
  22. ULSj9pjEV9g17wJBd0iE91LFmDDXL0MIfqyCmhZMseXel64tkXSFsS15duWmLtS5gqgvHKQt2XeF
  23. 0xaotyW4LIlhy3RbYsgVaVSXTl3ZVZYYtqWeLuixJdwW0LCFgi0Zb0sUWwLXF8ksQW8Lvixha0s0
  24. W3Lni7ErArEtmBfDBR19/Xf+WpkjeGMbEgRtfN7flL8bzo+W/Zw+DZcvm6jz0r7GxLMaVjFRH767
  25. 9trG4D1x6VqPbkvXm5fwmmM8ruvL29lTf3+tvbP+7TUbnibjQSngfz+XtOH/TKV+c0v/cd4y/i5D
  26. 90ETyiT3G8MnVHCbHGWtfgH8klS0+ucywaZST+Fjw/l/n7vDriPzreyRaK+o6X1ROxTdlACBox0j
  27. boJ0LYPyIiEdHO3Y0OTIjpZyISbJd6Y6ZJyNvKyQ/iMmSP0f4eiHpZXwdPqH8fUQofR/h6I/TFuP
  28. PAbYgfPNVe81pm+eSVBA4nnXu66veBg/kcAfsSD7a4FAJS7cMNH80hYbh2RoExAh0rw3PHBvcr4F
  29. 57USwQjbeQOhA9cC8jVe9K/nrm+x9WJ4DWL3C6K6Tst4rw1vVTVqyTNegZfd599/X5hctelVXJcY
  30. LHT8ZiyWmNwTqHDyBd2RxE4wcZOQHITlBymJdubdmLe8a17iPU4OcjGDbWUBY6GKrTfeIRo5K44u
  31. G+J61r7+gJKOMJkHGIBxkdbWXRzmBMoJ7Nx/C1SduiJmT/YX3jKDJTr9CuS+tOJ7FPcbEJlSOQNA
  32. AncI0VLrtdP0lDH4MNz+PE/b8eAK6EdVQKj4U2QyBMqmI7KYOVmYiZcJqL8XU9EvyzkF+BvwcxwV
  33. wPK4diCjIIJBh6JMBQ6emh1jM1SscI9MnJmc2KAuQ4kcZFJvDfu9TQsMSGT5dMQ6ERHAcFgXOlS5
  34. DcjREsu736oi6eIW/wBNJP6pdR9wIpxxOH+bjXO++Ph/L+bfjcNhqRuk7BNzlAiTgDn8bdTv2hG1
  35. QCSycyBgLz+b6nLtOI9rKk36gyXFfoVQG+SAxkAghExGiX2DUc8oCwVOc50zyIeg6jykLmA33ihg
  36. FwoejPAY0JmQMeT9fo2HrWfp2n5OjU6nsbXJvxwAEAFoLKxwSNCvX/litu1RAXAM38NIEJGhXm2/
  37. C+IPBXA0GS5yjCBNvH8D8ygn4mMJpaZjRUtI5FgBWejyOW3kQtshek/amEtQhMqi4201LaHZQak4
  38. dY4EnDQioIqDsTB1zIJMGkZBBMeG87jkGHOZCrTi8O6BMITdJwqBD0HxDWPwxNGhR7yCKN9AmmEp
  39. hnfIHWNBEDSexoRMG87PioLlXNptteouQvJB6I8CEdUS1Trsz0TH/EMyqJ1ydB46/IsfpUDIJM/M
  40. 2AZezYWu9fWd9NkOtfs6CygGX6Sro5g0wEKkLM0B1hNGd9/m4rMUHaSlCun6PV1OwiojMxkbmYs7
  41. 1dkyBHiif5NxnIcWFEjZNvSDVrDi8nH37gGRCSAGFZxrb1vh87ocPzPU9382987j/+WfE8v93oel
  42. 7GFl6/n+xweJZ4J376OF9y7H1OJ8nm+ngX+Fi8yh8ZJ8/j+XGFoMleuroLEW8uNjiqO5wCGCR4ew
  43. iRjERB6ZPS430zLGky75f9OPh4XmSNI4DFJbi/H+HgKonLU/CmhVKB3EBcZfqfgXB/Pw+QAnUI/n
  44. 7vsy2TFOGmOIG/u0qfTZFW6OMTmh7jsL3La/VZqgYVEXQ0dGer7V6s2OQYad8NBnJ+7vYxCXYUnx
  45. H6XPIAsMqrCuuEZqi/dMbQu1J0fGj0EqsFvOrbBEZzLdcoRdtYhHJ6jI8FZDlAQgnJTPNl+jIDTz
  46. ysTTpyaAkiTOE04nqiJOkpSU5NaSobEqTYEWj44I6wi4lARihS6sYLvN4f3Fk14ziaYn0+4D/lOz
  47. I3EULCrSOVnabat31w+cp5lZ3fbe36st+CR/ZXe3dU4/uLpkPkR2D1sOjatzGqCYbcU4E12aIi07
  48. J7A7ECBbi0fs5K2jJMT/V4RmjMRvJ462oJ9wnei5xmCduTNC1ZsBxV5kmzJ90afXk2Qts0BjODX9
  49. qTtiZgbDtEBF9zLdB6UTH8v+/5ZT8+7/nt+Ct3uyfYEvl/H7+XWXdPpP0xOTi/VzWbqfblnvNFu5
  50. iuLz/O5/N3jCE/TIKXN8d9vzdFnNOtR2OqSoqNdUaeVoqDA9RSr2MROUVRUz9HETLGpoaKl085oe
  51. 5kB6ZqL0uk0KEGBlEdiisEABjSxjcYDzbarEWm7zvW4cs0lL3cPEi/Pmcvu8YjFc6cOtJmhiPzHw
  52. PiKSnxO5XTuXNu4z93hru5Wh3hFO5vp3gOO8U67m2SfE+EnDn/hCYkjaxO+ODKB0wxN6kz02RkmJ
  53. Jjz7Ut0/QLiZ8TR47+QpFWq7eW1WtghaS78+Ns9Tqy5zVsJzf4P1iYwoKj2t8f/PhQcB/Hwl2rLC
  54. gT3iuSYHvvB7zy9v/nS9yu+9LOxTSeDGTDu+HsTNFTxZEdBtokVBrcxO5WefmTpnBc/xDZN9Gr+L
  55. UOHuU3dkenopiBlnIPBmoOWy32cG0TUd5vTk2JPrC4p2YeWz8PwV0v3cyp1L+yg5qd+11gHIfD1O
  56. aHQZpLZUdTqdfqp9ZSUOH3yS2UpGIcU0pmcOnppiPNzTrl05P05Hzz0lFUMcOjMSNTTNrmWNPOT4
  57. /1HiVegoaENJWl165vekXUmhcjPYzpdVrA1dKyj0YZl4BD36KfYhilpthiJTT09LT6VzTTr6Ol71
  58. vBmRsy+EJHwZeimTwTqKmjY6JguoNa8gZliiht35jVzK5ihIBd44Nu8RgniyPjkmcn2vXPTYLXs1
  59. aFpt+wVvXnx+zC7YDJhIEn7kzAlGSR7UdOrSgZ3v+OTjLsbHmDzfMKhJsqRgpUH224a6YQVv5XXk
  60. h0qc4StCKQzbBN0aGc0ExgZjO2C600M9MEVBloErjQyyJNOc8GIIM3oF2WxbQyyx9rb2fY4iwNnN
  61. RQpSYt0qc5ZoQkIGbtsGdy2hlBkYGZhM2zJ9u3PLMuY3hxKjCY5tndAGZOybW2dMExoZ5QRSAZmb
  62. EJkgzNRYXCAGZnVBIUM2ASHAMzoTsQkC2zDfWNcQYbNs2TeZFvmeAM8wYbsz2oR/DNkEjADMz24S
  63. GDMRGBcgAZme4CZAMsgisAzbtoEgG2bkAzkzDZnDN0YWj5p2+YqNMocxPNoZ7sJjwztwlGaGdaEf
  64. gzdBKo0M94EgwyrzIXtTSubH6x59EvELbl98vxFalghgA+oY7MpEnwTRj44UFzwE45CPzzxz/owa
  65. ifqh8zSB81iG3zsz89kFb/oIDr47qsp/p/uHCz+jFs3nzwNQ2Y+izjnjfNoS7gtgH5Nwb5qjtDfM
  66. ig+bNF2Ifk1xtuQjvnM5WuKDPwfOkZnlG2qPnQ+eu7U2zlm/B7+jiVB5vjkeKmePD21AX9ogH9Ma
  67. 8VN7jjZ0UGF6k4c1+RNfig/Vhgv8YO1yYX+IH9fKBfhg/yhEBaf4dLJh+ieHekxbuBCadIojB+4p
  68. LltpvUf8dkiWVw7sn0Jd09GfJoHnju8py2LfVK29WbcuEu+7MXJoeX1dGLUeOQW1DM2zvNpeKWB9
  69. WbofyHHpbQ1eXP94Kq5mcnatdzOEs5/MhGyZ1KmOsqtZeX1dlui3JbZnATjVopGZe1krdLZdrkh2
  70. M3WTke4jbJxNyrm7dnDmVrWYGW4N1pxDP25+ts4deNfZGjmkvG7BM+Iz1FqtmWsvNbay9z3tkq1k
  71. 0wrhP5MiERhxxN3bka8mFusT4H3wG0s4IShurwHj3QvhQ4ObBTASWzWBbarlbdIwuiJgTKSMjFSq
  72. r1FgczTNZYOg1oeWVBTd5LzAbzqKhg8M4HZ9AqBHh4SAfUZ7Jz7OtZkLyLPKnLttJ0FxuTAI0ToS
  73. 7G3sKXFjJyYLc5gBa4K6IbWz5i9nJZ50Vcr+3TYEVTCplwzs0uaZdWFQOsVsLBIgZrLnWNVrO9Zq
  74. WvhXQhCAax7A/cwsxAThRFQj8iomIA/JCTyBm3C6mEYH72CDx3JeScp7g9BOM8e5O3icOT9zC07A
  75. 1sKTNt1yYl9W5hJOZZu6l5gOHMEP6fps5W91PeR1lQ1cGdyf7TP39R6SgSVXFaI8dKdF394d+vDd
  76. XU5AHBFbNf3MAargbpr6sS70taXcVe22Iv/b904G/txUaqX/f3fZINBc7WB0tbJSvZ6OQXj+YtsM
  77. Aya+D6DVerv9mqX8u362ynVd+r4GAYzWF8rQYfXAcCudzwtYcwRFn1+CUUkwQN5w7062cazL20bn
  78. A4OD3oHJp+jGNLJoD45QWy/RjdgpiVZMSmuepEp4vuYbNy4CKp1z7zIAu/hol4UeYNOwOR4Itpf9
  79. GDyo7axV7bSCs16J9KdL875p+9V4Ptj4M5u73x9SWq/EoRo6zxNifrK2qK5cJZZntq/rFOFbU48R
  80. udOW7UBVwPWdQ2NZN2uFdf+9dU4KzyCpt6gx9brdHRV/RKAXZbS96zBqtOprcHCPEOR3Fq2YwU3A
  81. O0RD0JhvH8lbvK79ZN7hte9W4CsRIrUFrH9rxt8c5xaSvfvUVMu/E7rO95H1BHSCppN8uU5VMpec
  82. ZwDVb0m987WrKAtyrRfOXAcXoo8mDuly61K2LQ13x9aZ/eoInZINZFsaxZnwKuPVytdfVgWzFBna
  83. GpgxrIxbwnACILfWp7jjkdW8mQKr7hW9FI2IpyK7esUDAtZTCshhN8oDw1jVB+jdO4HuFYboHDxP
  84. SUfkAZ5U9vIinjfMBCMfiPFsRg07g2NwHoig/jUBowiolGHceMDOLWthss8L2c90118LTrB6tQbX
  85. wFYjdZaghZryUMlEIQafHaRisQ+pDojEFBBtwViEIh7lcJZzIcqln6m0uU1Ws5+0/t0JyrqVJ0MU
  86. M5uCXs5aSjmt+p6vZXa9/TEv66VMrFB8vgr6uSz2zqRxfMAS2eatMwhjDXYcM70+EROnwncwrzvC
  87. QUyjgxNwLVp6wZIBuFNqlCPXQK7xMHBh0Nz2HjZ8VnoYXrY4HjzgVwQCxStEcS+ENhIM5W81PeYu
  88. qjpkrqHDnMZAPAU5zQ8yBc4dPOFJR/WkHrnkzllpGYbbSMkZxmfMMp1nlGu5xVlyddpO9SYYoOfm
  89. NsUBqQKxV1g3kIH1WefvEhD2ULI+A9X9/s5HSwYyjxjIu8Km6AcoW7CQG1zLN+6XL3BFIrLkkzmV
  90. OrVk5H4TwmnsQZyUmz7g+GUwWiLzPOuNewjKrJYdeniQPYeI5Iy7E7/rzLCBVycr02V9dIkkNGnU
  91. 5IW7DSTxGZ7c8bdZbNkPfXgt4Vojh8ILfK3hl9bBbBhEq0LqJh7SfEvctgyrCkrWhem0TByfu6ZY
  92. xgaawnVDTFt0TaPmFsv3dge1qLhmsuOEsvD4u4vAQncQxbYDjKuBK3jOcVuWqxZZOC2gNzVgCyTg
  93. M8sOMDTpY6bcLxJ2PRq9W6MWbDMZsrLACl5yN18uB1es6vwhLxfl35KYv88GMV2qZDtJoYKkUjfq
  94. 0C31F17tz8dmrqfgdqGuvawt7ddcYK+TBqttxBM57X9Ue/gA/HnhYo9rbH6pC1lVYssnENA4Fa9D
  95. BUY4Y9fwIATN8Ff4y/lj5ySE1lnzXia8GfO5FftPhTOk6QRwvq9nnOQzPHv7ZqfvqXCOFJZxxLk9
  96. 84G1UbJjfvyQGzpKyVdrw7Xu6BkDnv49UgaD9biyROORfj1t0Aq4Hs1aEsd9zbN24ZpjFvtgaIXd
  97. pwdsjcMeLeRuIE/mcX58FsYC/VBNnPvF+z0XLeDzyCaOK/HCro9K/yAc/f6STUsCzstH7MqCXkC6
  98. ZzkeNPml/bWyplNDaXDsEGeTXv1pOYHkQrBxruUIfm02ceSpyzOArKw732XnOEg+aQ0E6054hrkc
  99. shEcteSkx7Za7j3VRvJ0TJKFsbQ33VYZlpMYJ3all2eWxMhRbvUVbDpuP1J0ab47le3fJNSRbQyF
  100. AreSPrqHvIR89B97tmB4dfOX530D9irwT6SecnNEGbW+B39Xo5B1uwZk0Rmu7VFkTg9eLBgzapXe
  101. LZdLILTe8QM8bVe/OgBRSpl+AbZtL3OjfmRdv+3DpuvGV1ZCen5GV5Xs+JhBQjifFpu8Z/JyDu2v
  102. xMM1JAuTH9NSrFRUIudIwMcjT8Rq1e5bzqyW1pg7Ba9yTPZQUd7i/aelG4ExlXqLvCyO0djvVX53
  103. 0lXj8GO9dfn4wiryPSgeHg3dKtsyAQh23yXC42qQlz7kfkRrPJrXIm/Al0Jd76Yd0I13IV6YeVwd
  104. Am22eTl3SMGdzw7U8JjD2I2o/Yw5nYGw6tGX1owroxA0c+TBvaxVau/vK4euGudgHYM4nudn/wM4
  105. +Gcetlx76sy2Ba4u6q/QOxWq22dFrkYHeeGCcj1+dtFXgXDvLVoZb3Vyu9vqxLa1k3uhdfOX65sr
  106. Atm53ra2JO3Pugw4FXYV9gLb+zBCznWK5hLLcOKYJ2A5CyzFmXHKoC2ePHLehxLuYCrvE0HQyY8v
  107. OnvqW9Qnm3d4xvMbbLCz8kF/bcFUyPrGwutx7mhe/fyGJT99DzwcSmKO52cfUw4Ks8Q6qZicRVJ1
  108. YeJPycajqb8b+Tz9dbKARQeHSU4dCRHUMgO+aRz1Q7KCDmqDsZ5MZiyOarRYPzjhN21PxuefAIID
  109. qBi6iVKQ5ZB3C57UFGZQe3OolHVRFtwawFabT+pZXnxPQwnlik7r4V2Q5erCHpyK7+8UJnh2TTpq
  110. TxzWcdu37kFbFsi15d5fTQrKr9CmPp2EWS9zmHnQbl0DUjnf0xO4QW25/QENS6LfmSZ1h/JJwEuH
  111. NyA4TygHpwmHcOPR4jhjuzPOfetpv7A+mQllYWM1wlmKfCUPGTXQxv2MatOq8tQeb6NXza2RgakC
  112. unyH02kUH3niHisqj3USu3vrdl8ku+LaIwCRxNHkH+lgx6yTiFXtkLxLGR8odWbxDKO7LhISFyzP
  113. EcQm5PES1WHD9ZNshgLNEJA47xgIT16s2cm4PIven0YCZ8VG5zD0VNZ4iAoWMhtDQRNvC15bIe+2
  114. GDrGJRXIAFEFaHd2QU1EhlVh6fZ7nvbay2QO3etIQkp2k5/YeLLDDnkcQx3xkvqCPXZrukIrqGH4
  115. 8Zp+08geLyWR/LUZ3WlR3R+Nt+IavnjzjloLrAO1LnirS6ctGVQnIyZGPAMVpbAsuNHZlmWxNNj1
  116. zF0Y+MuNMJ5chO9LVGIIe/rDEWXOFky94VgXal/CXySzwgd+X1jGUbEOYuTHwGCTAKCA68sYVWWa
  117. KvLQkIyYmP+TDQtaX9BfOLZF4ZbcvvF+KYJivraOp0UpQUtQh2z9DrNSvpmM/SPm62cPzfN1JxN1
  118. Z6XuwpLdriA1Q0Wv1OuzUf0jdbiJgwU10a97rF0vdPmIOY7Mm6vVbG5qiegVO7onnd6tFKVFFiKG
  119. c0a10zrQFk4slprUzMpLd1qdBQ0MwuXvm7gon1Poq/vAY4VRrp+oXJLjUfbp2L3Xy9Sup9hKUjG/
  120. V8/QYayVlVgOmYybkyhcdp3tTT6gEFnjRajaaKlxEGxN45QMajpdX0jeAnveCzytnoldI0WK7xof
  121. N4cPVoe7tqfE3pYK3j3vTL3vYh12ktx93jLCco9dU0aIBEHed7hQp11VTPm9UPp7E+n3BSlKUpSl
  122. KUpSlKUpSlKUpSlD9Kh/3oEwCHpgzTAmWPQ94OmUIh7wtMnsJTIdabpFPtw2xtSZbw20fXsd90Rk
  123. oevQ2jfy24F6JfbVOCr0f9n+Y1DZQxMTz24F28V7vhxOPbE4SZJqR6rCTA9soRy9LD5yjckiIf+C
  124. f9BR8PQRQT8gWHf274UIUZuki2pyrPkpxFNESjIuEYpCLyUoVEoWiaJTiDYK1A19/sSUQ1tIiMKX
  125. Vt0I9phNDEQiiLq8UFVkgAjCSA8x4VoT++qYokENPom5riUyBBsCSw/eBUP3NxqZNBIaBuONwogd
  126. IRcJGcBo0LQ4nsECxgiwP6mk4XQkXIVrdVJB/fvIWnHhqihhwnXEn0fZxBno0izmSZtH36Se0oez
  127. mnDak1PJpfQWEnDGHaZnCLhtVQ8KjHEixGI1Dqf5GoGmG6IgfbVitpb2damKAZSII1iG46b0BJUi
  128. wOVZMmILSpKjRGjs40mLWmLGhqkKV49/HExFCDVEbU/T338bKH6Qn0+4KUpSlKUP6T/9xD17AEAH
  129. AA==
  130. ------=_NextPart_000_0018_01CD0393.DB260430--

复制代码
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2020-6-4 00:28

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表