1樓:碧血玉葉花
private withevents timer1 as timer 』定義了一個變數
dim r&, r1&, t&, a1!, a2!, xb!, yb!, s!, b# 』定義了一個變數
private sub form_load()
me.width = 4500: me.height = 4500 『定義窗體的寬度和高度
me.move (screen.width - me.width) \ 2, (screen.height - me.height) \ 2
me.autoredraw = true 』讓窗體能適應
me.caption = "cbm666的萬花筒" 『窗體的標題
set timer1 = controls.add("vb.timer", "timer1") 『定義了一個定時器
timer1.interval = 10 』指的時間是0.01秒
end sub
private sub timer1_timer()
randomize 』啟動隨機數
r = 340 * rnd
if r <> 0 then 』判斷r是否等於0
r1 = 500
s = r * rnd 『0到r-1範圍內隨機取任何數
b = rgb(256 * rnd, 256 * rnd, 256 * rnd) 』rgb指的是紅,,藍。他們的顏色的深淺度
for t = 1 to 10000 『迴圈從1 到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 』在座標(xb,yb)畫出隨機圖案用隨機顏色
next t
end if
end sub
2樓:匿名使用者
這個你不用擔心,你在第2行繼續,橫線會自動下移!
3樓:匿名使用者
繼續在下面寫其他宣告就可以了,會自動到橫線上面的
辭職之後公積金是隻能提取自己繳納的那部分嗎
濤聲海韻 辭職後,可以提取住房公積金賬戶內的儲存餘額,但是要符合相關的要求。通常公積金提取方式很多,可以通過住房提取,也可以離職時轉移或者登出賬戶後提取,提取住房公積金的程式和手續各地有所不同規定。一 提取住房公積金申請條件 1 城鎮職工個人與所在單位必須連續繳納住房公積金滿一年。2 借款人購買商品...
vb裡面的步長值應該怎麼算,VB裡的步長是什麼意思
聽不清啊 這樣的話當i 1,4,7,10,13時執行迴圈體,即滿足條件時進入迴圈,然後加一個步長值,再判斷 for i 1 to 15 step 3 迴圈內語句 next 迴圈的原理 第一部分,迴圈必備條件 1 迴圈變數 i 2 迴圈變數的取值範圍 1 to 15 3 步長 3 省略則預設為1 4 ...
DNF寵物是怎麼得來的?只能買嗎
gold閃閃 dnf寵物獲得方式 dnf寵物節日活動贈送以及官網領取分為 時間期限 無限制 dnf地下城掉落的魔盒型別道具有機率獲得dnf寵物,魔盒型別道具需在 購買魔錘進行使用。dnf節日套裝贈送寵物 春節套裝 5.1套裝 夏日套裝 等都會贈送節日套裝寵物屬性非常優異。拍賣行內輸入 寵物 或 膠囊...