怎么用VB画五角星

怎么用VB画五角星，关键那五个点怎么取出来？

热心网友

在窗体上添加一个按钮，在它的单击事件中添加如下代码：Private Sub Command1_Click()Form1。Scale (-100, 100)-(100, -100)Dim i As Integer, p(4, 1) As IntegerFor i = 0 To 4 p(i, 0) = 80 * Cos((90 + i * 144) / 180 * 3。141592653) p(i, 1) = 80 * Sin((90 + i * 144) / 180 * 3。141592653)NextForm1。CurrentX = p(4, 0)Form1。CurrentY = p(4, 1)For i = 0 To 4Form1。Line -(p(i, 0), p(i, 1))NextEnd Sub如果你想将这些代码添加到窗体的Load事件中，则须将窗体的AutoRedraw属性设为True。

热心网友

其实很简单，先求出5个点的极坐标（单位长度为1），再转成笛卡尔坐标（xy坐标），然后按照程序要求的大小按比例乘相当的系数就可以了。