輸入N 就會畫出 7個 N邊形

Question

如題
ex :
輸入 \"5\"
表單上 出現 7個 顏色\"隨機變化\" 的 5 邊形

http://e.blog.xuite.net/e/f/c/3/14398818/blog_206163/txt/6132606/0.jpg
此圖 左邊: 5邊形 右邊: 9邊形

N 的範圍 3 ~20 (包含3)

http://i3.tinypic.com/wiab61.jpg

Answer 1

無法顯示網頁

2006-04-29 01:02:09 補充：
'懶的寫註解,你自己研究吧!XDPrivate Type Point        X As Long        Y As LongEnd TypeConst Pi = 3.14159265358979Dim r%, B(6) As PointPrivate Sub Command1_Click()Dim I%, J%, X%, W#, N%, A() As Point, S$, T%Do  N = Int(Val(InputBox("請輸入邊數3~20")))Loop Until N > 2 And N < 21ReDim A(1 To N)W = 360 / N: S = ",": AutoRedraw = True: ClsFor X = 0 To 6    W = 360 / N    For I = 1 To N        A(I).X = B(X).X - Sin(W / 180 * Pi) * r        A(I).Y = B(X).Y + Cos(W / 180 * Pi) * r        W = W + 360 / N    Next    Randomize       Do      T = Int(Rnd * 16)    Loop Until InStr(S, "," & CStr(T) & ",") = 0    S = S & CStr(T) & ","    Me.ForeColor = QBColor(T)    For I = 1 To N        For J = 1 To N            If I <> J Then Line (A(I).X, A(I).Y)-(A(J).X, A(J).Y)        Next    NextNextAutoRedraw = FalseEnd SubPrivate Sub Form_Load()r = 1000B(0).X = 2000: B(0).Y = 1100B(1).X = 4100: B(1).Y = 1100B(2).X = 1000: B(2).Y = 3100B(3).X = 3100: B(3).Y = 3100B(4).X = 5200: B(4).Y = 3100B(5).X = 2000: B(5).Y = 5100B(6).X = 4100: B(6).Y = 5100End Sub

Answer 2

手機刪除line照片不見真的難過
這家案例夠多，手機記憶體內外都可以，也沒限什麼牌子三星，HTC，SONY都可以，不過要等的比較久才知道原來要分析不是換零件哪麼簡單，心急吃不了熱豆腐，http://www.datahelp.com.tw
htt[://www.data1.com.tw

Answer 3

討論VB的家族：http://tw.club.yahoo.com/clubs/veryhandsomeboy/

Answer 4

我自己有寫一個程式~~裡面有畫N邊形的........ 我呼叫API畫n邊形

要的話再寄信

不過要有點報酬~~~~~~~不用說應該知道吧