能产生国际象棋棋盘的vb代码

 我来答
zdingyun
2017-05-26 · 知道合伙人软件行家
zdingyun
知道合伙人软件行家
采纳数:15429 获赞数:48172
1982年上海业余工业大学化工系毕业 现退休

向TA提问 私信TA
展开全部
  1. Private Sub Form_Load()

  2. Show

  3. Dim I, J   ' 声明变量。

  4. ScaleMode = 6   ' 设置 ScaleMode 为像素。

  5. DrawWidth = 2   ' 设置 DrawWidth。

  6. Me.ForeColor = vbBlue

  7. For I = 1 To 9

  8. Line (20, 20 * I)-(180, 20 * I)

  9. Next

  10. For I = 1 To 9

  11. Line (20 * I, 20)-(20 * I, 180)

  12. Next

  13. For J = 0 To 4

  14. For I = 1 To 4

  15. Line (I * 40, J * 40 + 40)-Step(20, 20), , BF

  16. Next

  17. Next

  18. For I = 0 To 3

  19. Line (20 + I * 40, 60)-Step(20, 20), , BF

  20. Next

  21. For J = 0 To 3

  22. For I = 0 To 3

  23. Line (20 + I * 40, 20 + J * 40)-Step(20, 20), , BF

  24. Next

  25. Next

  26. End Sub

推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式