Question

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

Answer 1

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