文件名称：VB 绘制规则的圆形线条图案.rar
文件大小：2KB
文件格式：RAR
更新时间：2022-07-30 04:49:19
VB源码-算法相关
VB 绘制规则的圆形线条图案，根据用户输入的数据，生成嵌套的圆形图案： Const pi = 3.1415926 '常量声明 Private Sub Text1_KeyPress(KeyAscii As Integer) Dim r, x, y, a, b As Single If KeyAscii = 13 Then '回车绘图 Cls n = Val(Text1) '取用户输入值 r = Form1.ScaleHeight / 4 '设置圆半径 a = Form1.ScaleWidth / 2 '设置圆心 b = Form1.ScaleHeight / 2 st = pi / n ' 等分圆周为2*n份 For i = 0 To 2 * pi Step st ' 循环绘制圆 x = r * Cos(i) a y = r * Sin(i) b '取圆周等分点 Circle (x, y), r * 0.9 '绘圆 Next i End If End Sub
【文件预览】：
srcfans.com
----绘制艺术图案()
--------E323.vbp(578B)
--------MSSCCPRJ.SCC(189B)
--------E323.vbw(50B)
--------Form1.frm(2KB)