用VB把圓分割成16份，且每個分割點標記數字

重新修改下，剛才把題理解錯了，更正如下：

Private?Sub?Command1_Click()

Const?PI?=?3.14

Const?a?=?1?/?8

Dim?i?As?Integer

ht.Height?=?6495

ht.Width?=?ht.Height

ht.ScaleMode?=?3

ht.Scale?(-10,?10)-(10,?-10)

ht.Line?(-10,?0)-(10,?0),?vbRed

'ht.Circle?(0,?0),?8,?vbBlue,?0,?2?*?PI,?1

ht.Line?(0,?10)-(0,?-10),?vbRed

ht.DrawWidth?=?2

For?i?=?1?To?16

ht.Circle?(0,?0),?8,?QBColor(i?-?1),?(i?-?1)?*?a?*?PI,?i?*?a?*?PI,?1

ht.PSet?(8?*?Cos(i?*?a?*?PI),?8?*?Sin(i?*?a?*?PI)),?QBColor(i?-?1)

ht.Print?i

Next?i

End?Sub

最終效果如圖所示，特別說明下ht.Height與ht.Width的比例必須和

ht.ScaleHeight?/ht.ScaleWidth?的比例壹致。