画特殊的五角星

vbee

dongdonggege 发表于 2023-9-21 07:45
老师，你好，我按照你的程序，得到的图形怎么不全啊？
我的程序哪里错了？

下面2句多+了 36

    For i = 0 To 9
        ARR(2, 1) = A + l * Cos((36 * i + 18) * pi / 180)
        ARR(2, 2) = B - l * Sin((36 * i + 18) * pi / 180)

dongdonggege

vbee 发表于 2023-9-21 08:37
下面2句多+了 36

    For i = 0 To 9

谢谢，老师。

dongdonggege

vbee 发表于 2023-9-21 08:37
下面2句多+了 36

    For i = 0 To 9

我又改了下。

1. Sub drawstar5()
   
2.     Dim ARR(1 To 4, 1 To 2) As Single
   
3.     pi = 3.1415926
   
4.     ActiveDocument.Shapes.SelectAll
   
5.     Selection.Delete
   
6.     A = 300: B = 200
   
7.     ARR(1, 1) = A: ARR(1, 2) = B
   
8.     ARR(4, 1) = ARR(1, 1): ARR(4, 2) = ARR(1, 2)
   
9.    
   
10.     l = 150
    
11.     For i = 0 To 9
    
12.         ARR(2, 1) = A + l * Cos((36 * i + 18) * pi / 180)
    
13.         ARR(2, 2) = B - l * Sin((36 * i + 18) * pi / 180)
    
14.         ARR(3, 1) = A + l * 0.5 * Cos((36 * i + 36 + 18) * pi / 180)
    
15.         ARR(3, 2) = B - l * 0.5 * Sin((36 * i + 36 + 18) * pi / 180)
    
16.         If i Mod 2 = 1 Then
    
17.             ARR(2, 1) = x: ARR(2, 2) = Y
    
18.             ARR(3, 1) = A + l * Cos((36 * i + 36 + 18) * pi / 180)
    
19.             ARR(3, 2) = B - l * Sin((36 * i + 36 + 18) * pi / 180)
    
20.         End If
    
21.         Set shp = ActiveDocument.Shapes.AddPolyline(ARR)
    
22.         shp.Fill.ForeColor.RGB = RGB(255, 0, 0)
    
23.         x = ARR(3, 1): Y = ARR(3, 2)
    
24.     Next
    
25. End Sub

复制代码

这样能添加颜色，虽然不是渐进色。

vbee

填充颜色大致效果如下

lss001

dongdonggege 发表于 2023-9-21 07:39
感谢老师，很牛，感觉那个渐变色，做的很好。

参考楼下页面绘制代码！

dongdonggege

lss001 发表于 2023-9-21 15:28
参考8楼更新附件，增加页面绘制代码！

老师，我看了你更新的程序是空的，只有Call polya，没有polya子程序，我是低版本的2003。

dongdonggege

lss001 发表于 2023-9-21 15:28
参考8楼更新附件，增加页面绘制代码！

老师，看我的图片。

lss001

可参考楼下代码

dongdonggege

lss001 发表于 2023-9-21 15:54
重新下载试试，代码在Normal的模块1

是不是我的版本低，还是没有。

dongdonggege

lss001 发表于 2023-9-21 15:54
重新下载试试，代码在Normal的模块1

请老师把polya子程序用记事本，另外发下。