1樓：匿名使用者
option explicit
private sub command1_click()
drawc 2000, 2000, 800, 2.5, 3
end sub
'x,y 圓心座標
'r 半徑
'n 大圓與小圓半徑比例
't 外切迴圈次數
private sub drawc(byval x as long, byval y as long, byval r as long, byval n as double, byval t as long)
me.circle (x, y), r
if t > 0 then
drawc x - r - r / n, y, r / n, n, t - 1
drawc x + r + r / n, y, r / n, n, t - 1
drawc x, y + r + r / n, r / n, n, t - 1
drawc x, y - r - r / n, r / n, n, t - 1
end if
end sub
private sub form_load()
me.width = 5000
me.height = 5000
end sub
'零分，太虧了- -!
2樓：匿名使用者
在窗體內新增** 執行後單擊窗體
option explicit
private sub hy(byval x as single, byval y as single, byval r as single, byval cs as integer)
dim a as single, x1 as single, y1 as single
me.circle (x, y), r
for a = 0 to 3
x1 = x + r * 4 * cos(a * 3.1415926 / 2) / 3
y1 = y + r * 4 * sin(a * 3.1415926 / 2) / 3
if cs > 0 then call hy(x1, y1, r / 3, cs - 1)
next
end sub
private sub form_click()
call hy(me.scalewidth / 2, me.scaleheight / 2, 1000, 3)
end sub
3樓：匿名使用者
都是由圓組成的吧 要什麼格式的
4樓：_小三兒
他們的答案我為什麼看不懂啊？好像沒這麼複雜吧？
excel高手，哪位大神能教我一下。下圖中紅圈部分怎麼刪除啊？這是什麼情況
您好！針對您這種現象,可按住crtl鍵一起選中檔案，然後一次性刪除 用left right,mid len 函式bai比如你想刪除 dua列所有資料 zhi的前x位資料 在daob列或其他列輸入回 right a1 len a1 x 並拷貝到該列其他行答。比如你想刪除a列所有資料的後x位資料 在b列...
麻煩哪位高手幫我用通順的中文翻譯一下下面兩句話謝謝
所設立醫院的完美程度，並且權最需要人們無盡關愛的醫院則莫過於精神病院了 這是因為從字面的完整意義來講，這些醫院裡的病人都是我們的門徒，而作為 徒的我們則是他們的天然守護者。1.家是溫bai情和先天關係的根源。2.最能顯du示一個社zhi區真正文明程度的途徑dao，莫過於區內 回不同階層居民的醫院的狀...
希望有哪位數學高手能幫我解一下下。要詳細過程,謝謝
因為103 12 5 6餘1 又因為12 2 1 25 所以12 4 5 6 5 5 12 4 5 11 103因此大盒子4個,小盒子11個 大盒子4個,小盒子11個 請數學高手幫我解一下下面這道題,謝謝了 你看看是這個嗎?http qiujieda.math 123100 希望對你有幫助哈,還有這...