vb的两段代码初学者求翻译...

11 |

1 | 2013-6-13 13:16:41 | 显示全部楼层 |阅读模式

Private Sub Hongqi(ByVal X As Single, ByVal Y As Single) '插红旗X = Int(X)
‘取X、Y的整数部分Y = Int(Y)If X9 Or Y9 Then Exit Sub
’若X、Y不在9*9的区域内就不作处理If B(X, Y) = 0 Then
‘B数组用来标记有没有插上红旗，如未插
B(X, Y) = 1
’标记已插上
Picture1.PaintPicture Picture4.Picture, X, Y, 1,...

使用道具举报

返回列表发新帖

千问

主题	0 回帖	4882万积分

论坛元老

Rank: 8 Rank: 8

积分: 48824836

加好友
发消息

回复楼主返回列表

问答

热门排行