[VB6 ] 新手不知道哪裡出問題

看板Visual_Basic作者gsmgsm (小雞)時間17年前 (2008/12/05 02:32)推噓2(2推 0噓 3→)

留言5則, 2人參與討論串1/2 (看更多)

可以請哪位好心人幫我看看下面這段程式碼錯在哪裡嘛? 我是個新手，輸入這些東西後卻沒有跑出想要的圖案 Private Sub CMD2_2_5_1_Click() Dim PI As Double PI = Atn(1) * 4 n = 7 K = 5 r = 90 R1 = 100 cx = 360 cy = 240 Dim MX(300), MY(300) GoSub GET_DATA For I = 1 To POS Circle (MX(I), MY(I)), R1 Next Exit Sub GET_DATA L = 2 * r * Sin(PI / n): D = L / K POS = 0 For TH = 0 To 2 * PI Step 2 * PI / n A1 = TH + PI / n x = cx + r * Sin(A1) y = cy + r * Cos(A1) For I = 0 To K - 1 POS = POS + 1 MX(POS) = x + I * D * Sin(A1 + PI / 2 + PI / n) MY(POS) = y + I * D * Cos(A1 + PI / 2 + PI / n) Next Next Return End Sub 感激不盡。 -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 59.113.51.9

→

MOONRAKER

12/05 02:58, , 1^F

12/05 02:58, 1^F

→

MOONRAKER

12/05 03:02, , 2^F

12/05 03:02, 2^F

推

fumizuki

12/05 19:41, , 3^F

12/05 19:41, 3^F