[VBA][求助]如果做交叉递增的圆点?

kevinchan · 发表于 2004-5-18 13:44:00

我现在参照老大们的意思画出了递增的圆点,

kevinchan · 发表于 2004-5-18 13:49:00

我原来的代码做出来的效果如下

登录/注册后可看大图

我希望能在画红处做出圆点

kevinchan · 发表于 2004-5-18 23:33:00

为什么没人帮我呀？

efan2000 · 发表于 2004-5-19 00:12:00

' 记录行
Dim Row As Integer
Row = 1
Do
   Do
   Loop While centerpt(0) <= Length
   ' 增加一行
   Row = Row + 1
   ' 偶数行
   If Row Mod 2 = 0 Then
   centerpt(0) = centerpt(1) + ptdis
   ' 奇数行
   Else
   centerpt(0) = 0
   End If
Loop While centerpt(1) <= (n * p - 1) * ptdis + ptdis / 4
增加一个判断当前行的变量。

kevinchan · 发表于 2004-5-20 02:30:00

谢谢尹凡! 参照您的建议我做

[VBA][求助]如果做交叉递增的圆点?

发表回复

精选推荐

浏览过的版块