1樓：漫璇珠
private sub timer1_timer()dim i, j
if label1.left = 0 thenfor j = 0 to form1.width - label1.width step 0.1
label1.left = j
next j
else
for i = form1.width - label1.width to 0 step -0.1
label1.left = i
next i
end if
end sub
步長變大點.
2樓：匿名使用者
你的**本身沒問題，是設計的問題。窗體寬度預設的測量單位是緹，佔用半個螢幕的視窗寬度大概是8000個緹，你的step設定為0.01 那麼你一個迴圈下來就是80萬次，兩個就是160萬，你160萬次要是空轉也就算了，偏偏每次還要設定一下label1的left屬性（這個佔**執行的大多數時間），你慢了你卡住了怪誰呢？？
光這幾行**我四核處理器就轉了好長時間。
優化方法：改變步長step的大小。實際step設為小於1或小數沒有必要，應為label的left屬性不帶小數，設定了小數也會約掉。
3樓：紅衣老大之一
嘗試 把0.01 修改為 1 0.01 可能太小了
這個vb是解一元二次方程的，可是執行後不成功
private sub command1 click dim a,b,c as integerdim x1,x2 as double a val text1.text b val text2.text c val text3.text if a 0 then select case b 2 4 a ...
這個程式執行結果是什麼，為什麼？
結果是3，這個程式就是測試字串長度的。先定義了一個字元型陣列，系統預設在串尾新增 0 再把它賦給一個字元型指標p，通過移動指標所指的位置來判斷是否到字串結尾。而s始終都是指向陣列頭的，不能夠改變。指標本身儲存的是所指內容儲存的地址，在計算機中陣列的儲存是連續的，即它們的地址都是相連的。所以當指標指向...
為什麼汽車CD光吐光碟，把光碟放進去，幾秒後就吐出來
1全部汽車cd幾秒後吐光碟主要是因為夾片軸磨損打滑碟片載入不到位引起的，清洗或更換滾軸膠套可以解決問題。如果是碟片問題或光頭不良，cd機要比較久才會吐碟，同時還會顯示碟片錯誤資訊。約好的cd機越挑碟。例如sony和瑪蘭士的cd機，盜版碟一律不讀。但也不排除cd機鐳射頭太髒造成無法識別光碟而導致退碟。...