作者gsmgsm (小鸡)
看板Visual_Basic
标题[VB6 ] 新手不知道哪里出问题
时间Fri Dec 5 02:32:50 2008
可以请哪位好心人帮我看看下面这段程式码错在哪里嘛?
我是个新手，输入这些东西後却没有跑出想要的图案
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
1F：→ MOONRAKER:这段code真正的问题是它过时15年了 12/05 02:58
2F：→ MOONRAKER:circle? gosub?（现在才知道VB6还真的留着GOSUB） 12/05 03:02
3F：推 fumizuki:GET_DATA: ← 必须要有冒号 12/05 19:41
4F：推 fumizuki:程式开头加 Option Explicit ，要求每个变数都必须宣告 12/05 19:43
5F：→ fumizuki:建议每个变数都要宣告其变数型态 12/05 19:43