vb的宣告部分怎麼是老是隻能寫一行,按回車後就到橫線下面了求指點啊

時間 2022-03-28 03:35:09

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套裝 夏日套裝 等都會贈送節日套裝寵物屬性非常優異。拍賣行內輸入 寵物 或 膠囊...