当前位置:首页 » VB程序题 » 正文

VB程序题:用Line方法在窗体上绘制艺术图案,构造图案的算法为:把一个半径为r的圆周等分为n份,然后用直线将这些点两两相连,如下图I. 5所示。龚沛曾

VB程序题:用Line方法在窗体上绘制艺术图案,构造图案的算法为:把一个半径为r的圆周等分为n份,然后用直线将这些点两两相连,如下图I. 5所示。龚沛曾

解题,在窗体建1个文本框,代码如下:
 Private Sub Form_Click()
    Dim r, xi, yi, xj, yj, x0, y0, aif As Single
    Me.Cls
    r = Form1.ScaleHeight / 2                  ' 圆的半径
    x0 = Form1.ScaleWidth / 2                  ' 圆心
    y0 = Form1.ScaleHeight / 2
    n = Val(Text1)                             ' 等分圆周n份
    aif = 3.1415926 * 2 / n                    ' 等分角
    For i = 1 To n - 1                         ' 选择(xi, yi)点
        xi = r * Cos(i * aif) + x0
        yi = r * Sin(i * aif) + y0
        For j = i + 1 To n                      ' 选择(xj, yj)点
            xj = r * Cos(j * aif) + x0
            yj = r * Sin(j * aif) + y0
            Line (xi, yi)-(xj, yj), QBColor(15)  ' 等分点相连
        Next j
    Next i
End Sub

Visual Basic程序设计教程(第3版) (龚沛曾等编)课后实验源码

打赏 支付宝打赏 微信打赏

来源:济亨网

本文链接:http://wb98.com/post/118.html

    << 上一篇 下一篇 >>

    湘公网安备 43011102000514号 - 湘ICP备08100508号