有誰可以幫我設計vb程式簡單點的就可以但

時間 2021-05-07 20:01:08

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是 親,這個比較專業啊,你想翻譯成什麼水平的。 太專業了,自己專心下來慢慢翻譯吧 這個要找翻譯的,誰那麼多時間給你弄這麼多 儒雅的北歐之星 確實也太長了...