10.11万花规

笨巧果 发表于: 2010-11-09 20:47 来源: 扑奔PPT网

笨巧果 发表于 2010-11-09 20:48:48

Private Sub CommandButton1_Click()
    Dim x(100000), y(100000)
    Randomize
    Xc = 330
    Yc = 260
    r1 = 200
    r = Int(r1 * Rnd) + 1
    s = Int(r * Rnd) + 1
    a = Int(Rnd * 256)
    b = Int(Rnd * 256)
    c = Int(Rnd * 256)
    ActivePresentation.SlideShowWindow.View.PointerColor = RGB(a, b, c)
    For t = 0 To 99999
        a1 = t * 3.14159265358979 / 180
        a2 = (r1 / r) * a1
        x(t) = Xc + (-(r1 - r) * Cos(a1) - s * Cos(a2 - a1))
        y(t) = Yc + ((r1 - r) * Sin(a1) - s * Sin(a2 - a1))
        If t > 0 Then ActivePresentation.SlideShowWindow.View.DrawLine x(t), y(t), x(t - 1), y(t - 1)
    Next t
End Sub


Private Sub CommandButton2_Click()
    ActivePresentation.SlideShowWindow.View.EraseDrawing
End Sub

[ 本帖最后由 笨巧果 于 2010-11-10 19:37 编辑 ]

火兔 发表于 2010-11-09 21:23:04

笨巧果老师，是不是这样。只做了一个

 

(2010-11-09 21:23:04, Size: 4.36 KB, Downloads: 48)

笨巧果 发表于 2010-11-09 21:56:37

QUOTE:

原帖由 火兔 于 2010-11-9 21:23 发表
笨巧果老师，是不是这样。只做了一个
155526155527

这个不是我想达到的效果。

fishppt 发表于 2010-11-09 22:17:46

怎么做的呀，分享一下！

卑鄙小人 发表于 2010-11-10 21:33:36

(2010-11-10 21:33:36, Size: 12.6 KB, Downloads: 76)

效果很好看，呵呵很喜欢，谢谢老师，请多指导。

chenwenwu 发表于 2010-11-10 21:35:38

请老师看看，是这样的吗

12.9 KB, 下载次数: 57)

冬雪儿 发表于 2010-11-10 21:50:53

好好漂亮呀

图片1.png

图片2.png

图片3.png

图片4.png

图片5.png

12.2 KB, 下载次数: 61)

东方一枝梅 发表于 2010-11-10 22:07:11

老师辛苦了！
在老师的指导下，终于做完了！
谢谢老师

幻灯片1.JPG

幻灯片2.JPG

14.6 KB, 下载次数: 59)

云淡风轻99 发表于 2010-11-10 22:08:37

老师辛苦了，这个真漂亮！

3.jpg

4.jpg

12.9 KB, 下载次数: 46)

晓禾 发表于 2010-11-10 23:18:31

 

 

 

 

 

 

 

 

 

 

(2010-11-10 23:18:31, Size: 11.9 KB, Downloads: 83)

JokerFate 发表于 2010-11-17 16:22:35

这个很有意思