在窗体上画五角星,如图11-4所示。 图11-4 在窗体上画五角星 【解答】 以五角星的左下角为起点,依次向上、右下、左上、右上画线,最后回到左下角。注意:每个角的角度值转换为弧度值后为2p/10。利用三角函数可以得到顶点的相对坐标。 将画五角星的过程定义为子过程,可以反复调用。 首先在窗体的通用段声明符号常量: Const pi = 3.14159 自定义的画五角星子过程代码: Private Sub star(X As Single) 1 n = Int(Rnd * 16) colr = QBColor(n) Line -Step(X * Sin(pi / 10), -X * Cos(pi / 10)), colr Line -Step(X * Sin(pi / 10), X * Cos(pi / 10)), colr Line -Step(–X * Cos(2 * pi / 10), –X * Sin(2 * pi / 10)), colr Line -Step(X, 0), colr 2 (–X * Cos(2 * pi / 10), X * Sin(2 * pi / 10)), colr End Sub 窗体事件代码: Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) 3 (Rnd * 3000, Rnd * 3000) 4 (Rnd * 2000) End Sub 运行程序,单击窗体可以得到随机大小、颜色的五角星,如图11-8所示。