UC知道如何用VB程序制作一个五角形
来源：百度知道 编辑：UC知道 时间：2024/05/15 08:02:15
详细的问题说明，有助于回答者给出准确的答案
新建窗体，画个PictureBox
粘贴下面代码 然后单机窗体就能出现五角星。
Private Sub Form_Click()
Dim l As Long, a As Long, b As Long, du As Double
du = 3.1415926 / 10 '18度
a = 600
b = 600
l = 600
Picture1.Line (a, b)-(a + l * Sin(du), b + l * Cos(du))
Picture1.Line (a + l * Sin(du), b + l * Cos(du))-(a - l / 2, b + l / 2 * Tan(2 * du))
Picture1.Line (a - l / 2, b + l / 2 * Tan(2 * du))-(a + l / 2, b + l / 2 * Tan(2 * du))
Picture1.Line (a + l / 2, b + l / 2 * Tan(2 * du))-(a - l * Sin(du), b + l * Cos(du))
Picture1.Line (a - l * Sin(du), b + l * Cos(du))-(a, b)
End Sub