1樓：匿名使用者
private withevents timer1 as timer
dim r&, r1&, t&, a1!, a2!, xb!, yb!, s!, b#
private sub form_load()
'me.width = 5500: me.height = 5500
me.move (screen.width - me.width), (screen.height - me.height)
me.autoredraw = true
me.caption = "萬花筒"
set timer1 = controls.add("vb.timer", "timer1")
timer1.interval = 10
end sub
private sub timer1_timer()
randomize
r = 340 * rnd
if r <> 0 then
r1 = 500
s = r * rnd
b = rgb(256 * rnd, 256 * rnd, 256 * rnd)
for t = 1 to 10000
a1 = t * 3.1415926 / 180
a2 = (r1 / r) * a1
xb = 500 + (-(r1 - r) * cos(a1) - s * cos(a2 - a1) + 420) * 4
yb = 500 + ((r1 - r) * sin(a1) - s * sin(a2 - a1) + 380) * 4
me.pset (xb, yb), b
next t
end if
end sub萬花筒
2樓：匿名使用者
你要留給我一個q呀，告訴我你要什麼樣的？我這好多。可以和你分享。
3樓：匿名使用者
總得說說實現什麼功能吧！！
4樓：匿名使用者
你想要的程式是做什麼的！也就是說你想要這個程式實現什麼樣的功能？
有誰可以幫我設計的個性簽名，有誰可以幫我設計一個免費的個性簽名？？？
天過沒什麼 子若安好，便是晴 琪 天霹靂。 睢鳩秀媚 我叫 孟凡輝 謝謝了。我希望有屬於我的個性簽名，能幫幫忙嗎？是免費的個性簽名哦。 浮沉 陳 人生 與子齊 琪 享 免費個性簽名設計幫我免費設計個性簽名 謝謝！有誰可以幫我設計一個簽名啊 我叫 陳曉琳 謝啦。 心情不心等式 女孩 灬cc果凍 精靈 ...
有誰能幫我網上戒賭，想戒賭，有誰可以幫我嗎？
把銀行卡密碼輸錯三次，鎖了就行 誰也幫不了，靠自己的意志 想戒賭，有誰可以幫我嗎？首先要堅決戒賭，改掉這個足夠摧毀自己整個家庭的心理疾病 1.制定還款計劃，和家人一起面對 2.現金財務狀態對家人公開，最好交給家人 3.樹立正確的價值觀 金錢觀 取之有道，用之有益 4.健康運動，養成一個自律的生活方式...
誰能幫幫我翻譯英文急急急，有誰可以幫我翻譯成英語？急急急！！！！
高麗佳人 你這個這麼專業的翻譯，就是加多200分也不一定會有人給你弄的。這麼多內容翻譯起來大概要半個小時左右，我看你還是去某寶找個專業人士翻譯吧 q是 親，這個比較專業啊，你想翻譯成什麼水平的。 太專業了，自己專心下來慢慢翻譯吧 這個要找翻譯的，誰那麼多時間給你弄這麼多 儒雅的北歐之星 確實也太長了...