? 發問時間: 電腦與網際網路程式設計 · 1 0 年前

VB 鑽石圖 幫我解釋

Private Sub Command1_Click()

Picture1.BackColor = RGB(255, 255, 255)

rd = 3.14159 / 180 \'角度與弧度的轉換

For i = 0 To 14

X1 = 2000 * Cos(i * 22.5 * rd) + 2000 \'正 N 邊形的頂角位置

Y1 = 2000 * Sin(i * 22.5 * rd) + 2000

For j = i + 1 To 21 \'畫線連接所有的頂角

X2 = 2000 * Cos(j * 22.5 * rd) + 2000

Y2 = 2000 * Sin(j * 22.5 * rd) + 2000

Picture1.Line (X1, Y1)-(X2, Y2)

Next j

Next i

End Sub

畫出來是16邊形,但有個疑問

請問下面兩行 14和21是什麼意思呢?

For i = 0 To 14

For j = i + 1 To 21

3 個解答

評分
  • Brian
    Lv 5
    1 0 年前
    最佳解答

    For i = 0 To 14

    取得第1個頂點到第15個頂點

    For j = i + 1 To 21

    這裡應該有點小錯誤, 只需到 15 就可以了(寫到21會重覆畫, 不過畫出來的圖是一樣的)

    取得第i+1個頂點到最後的頂點

    也就是i迴圈是取畫線的起點(1-15頂點)

    j迴圈是取畫線的終點(i以後的頂點, 前面的不用重覆畫線)

    • Commenter avatar登入以對解答發表意見
  • 4 年前

    桃園當舖中壢當舖仁寶當舖、提供借錢、借貸、借款、代辦房屋二胎、汽車融資、房貸等當舖借款服務!

    桃園當舖中壢當舖仁寶當舖汽機車、貨車、重機械、鑽石、珠寶、名錶、精品、不動產皆可當!

    桃園當舖中壢當舖仁寶汽車借款、法定利率!5分鐘可知額度20分鐘快速撥款!

    桃園當舖中壢當舖仁寶汽車借款迅速放款不囉唆、可彈性還款、選擇正確金援管道,才能真正省利!

    歡迎來店(電)洽詢 有專員為您服務

    電話:03-4520077 03-4520077

    地址:桃園縣中壢市中華路二段292號

    仁寶當舖

    • Commenter avatar登入以對解答發表意見
  • 1 0 年前

    謝謝你 我了解了

    • Commenter avatar登入以對解答發表意見
還有問題?馬上發問,尋求解答。