能产生国际象棋棋盘的vb代码
1个回答
展开全部
Private Sub Form_Load()
Show
Dim I, J ' 声明变量。
ScaleMode = 6 ' 设置 ScaleMode 为像素。
DrawWidth = 2 ' 设置 DrawWidth。
Me.ForeColor = vbBlue
For I = 1 To 9
Line (20, 20 * I)-(180, 20 * I)
Next
For I = 1 To 9
Line (20 * I, 20)-(20 * I, 180)
Next
For J = 0 To 4
For I = 1 To 4
Line (I * 40, J * 40 + 40)-Step(20, 20), , BF
Next
Next
For I = 0 To 3
Line (20 + I * 40, 60)-Step(20, 20), , BF
Next
For J = 0 To 3
For I = 0 To 3
Line (20 + I * 40, 20 + J * 40)-Step(20, 20), , BF
Next
Next
End Sub
上海华然企业咨询
2024-10-21 广告
2024-10-21 广告
上海华然企业咨询有限公司专注于AI与数据合规咨询服务。我们的核心团队来自头部互联网企业、红圈律所和专业安全服务机构。凭借深刻的AI产品理解、上百个AI产品的合规咨询和算法备案经验,为客户提供专业的算法备案、AI安全评估、数据出境等合规服务,...
点击进入详情页
本回答由上海华然企业咨询提供
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询