1樓：匿名使用者
你看看這個可以吧！看附件好了。
2樓：匿名使用者
dif f as boolean
private sub form_click()timer1.enabled = trueend sub
private sub timer1_timer()if f then
shape1.fillcolor = qbcolor(int(13*rnd+1))
shape1.top = 0
f = false
else
shape1.top = shape1.top + 100if shape1.top + shape1.height >= line1.top then f = true
end if
end sub
private sub shape1_click()if timer1.enable = false then exit sub '小球
bai沒有
du下落時
zhi，點
dao擊回shape1不退出答
unload me
end sub
通過vb編寫程式，單擊開始，實現一個小球從高處落下，碰到地面後彈起到原來高度的一半，再次落下...... 20
3樓：聽不清啊
dim h as integer, h0 as integer, d as integer, n as integer
private sub command1_click()
timer1.enabled = true
command1.enabled = false
end sub
private sub form_load()
shape1.shape = 3
shape1.fillstyle = 0
shape1.fillcolor = vbyellow
d = 1
timer1.interval = 50
timer1.enabled = false
h = shape1.top
h0 = h
end sub
private sub timer1_timer()
if d = 1 then
if shape1.top < form1.height - 1500 then
shape1.top = shape1.top + 50
else
d = 0
h = form1.height - 1500 - (form1.height - 1500 - h) / 2
end if
else
if shape1.top > h then
shape1.top = shape1.top - 50
else
d = 1
n = n + 1
if n > 10 then timer1.enabled = false
end if
end if
end sub
製作一個跳動的小球,加速下落,減速彈起用vb怎麼回事
採用vb程式設計：一個小球從100m高處自由落下，每次落地後**回原高度的一半再落下，求它在第10次落
4樓：甜甜
dim i as integer , h ,s as object
s = 0
h = 100
for i = 1 to 10
s = s + h
h = h / 2
next i
textbox1.text = s
textbox2.text = h
VB設計跳動的小球，VB設計跳動的小球
我可以讓form在螢幕上四處亂撞，你可以在在form上貼個球的 然後用api把form透明化，只留下 透明化 我也有。public a,b private sub command1 click 停止移動timer1.interval 0 end sub private sub command2 cl...
VB6程式條怎麼實現，VB6如何讓程式只執行一個程式例項
實現方法很多呀。如果自帶進度條。可以用自帶的做。太久不用vb6了。放了是否自帶了。這種做法就是設定一個總值。比如100，然後把你程式要做的工作分成若干個任務，比如10個。這樣每次一個任務執行完，更新進度條的值。10,20,30.還有更靈活的。不如利用picture box。在flash裡面做一個動畫...
用小棍擋下落的小球,這是什麼遊戲
有叫打磚塊的，有叫彈力球的，有叫彈射的！撣珠臺 或者是打磚塊 用一個小橫棍兒接住小球,再 回去消除方塊叫什麼遊戲?5 一種單機遊戲有一個小球來回撞下面有類似一個小棍子的東西接住他他就會彈起 打磚塊，彈珠駭客之類的，很古老的遊戲啊。一個小球往下落在下面畫一橫接住它是什麼遊戲?樓主說的遊戲是 打磚塊 或...