哪位大神會呀，求答案，急求急求，江湖救急。
uj5u.com熱心網友回復：
turerle庫？是python的作業吧uj5u.com熱心網友回復：
不用海龜作圖，純純的用數學計算畫我就嘚瑟一下，你用這個交作業肯定被揪出來。
Const Pi = 3.14159265
Private Sub Command1_Click()
Me.ScaleMode = 3
Me.Cls
Dim x As Double '圓心
Dim y As Double
Dim D As Double '中心點到圓心的距離
Dim R As Double '圓半徑
Dim C As Double '中心點到焦點的距離
Dim delta As Double '弧線弧度
D = 50
R = 40
'用余弦定理得到中心到交點(花瓣尖端到中心的距離
C = (2 * D * Cos(Pi / 7) + Sqr((2 * D * Cos(Pi / 7)) ^ 2 - 4 * (D ^ 2 - R ^ 2))) / 2
'再用余弦定理得到弧線的弧度
delta = ArcCos((D ^ 2 + R ^ 2 - C ^ 2) / (2 * D * R))
Dim i As Integer
For i = 1 To 7
'畫弧線
Me.Circle (Me.ScaleWidth / 2 + Cos((2 * Pi / 7) * (i - 1)) * D, Me.ScaleHeight / 2 + Sin((2 * Pi / 7) * (i - 1)) * D), R, vbRed, DblMod(((2 * Pi / 7) * (8 - i) + Pi - delta), (2 * Pi)), DblMod(((2 * Pi / 7) * (8 - i) + Pi + delta), (2 * Pi))
Next
End Sub
'浮點取模
Private Function DblMod(dbl1 As Double, dbl2 As Double)
Dim tmp As Double
tmp = Fix(dbl1 / dbl2)
DblMod = dbl1 - dbl2 * tmp
End Function
'反余弦
Function ArcCos(x As Double) As Double
If x >= -1 And x < -0.5 Then ArcCos = Atn(Sqr(1 - x * x) / x) + 4 * Atn(1)
If x >= -0.5 And x <= 0.5 Then ArcCos = -Atn(x / Sqr(1 - x * x)) + 2 * Atn(1)
If x > 0.5 And x <= 1 Then ArcCos = Atn(Sqr(1 - x * x) / x)
End Function
uj5u.com熱心網友回復：
這個是用啥做的，我咋看不懂
uj5u.com熱心網友回復：
嗯嗯是的，你會做嗎兄弟，幫幫忙
uj5u.com熱心網友回復：
你在VB區問的自然是用VB答uj5u.com熱心網友回復：
那應該在哪個區？我看著沒有派森區啊
uj5u.com熱心網友回復：
https://bbs.csdn.net/forums/OL_Script
uj5u.com熱心網友回復：
其實無所謂語言。用兒子玩的scratch，玩海龜作圖模式，只要你事先計算好，一次成型。
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/30191.html
標籤：網絡編程
上一篇：window10開機音效
下一篇：大佬們來幫幫忙看看