1樓：聽不清啊
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程式設計：乙個小球從100m高處自由落下，每次落地後**回原高度的一半再落下，求它在第10次落
2樓：甜甜
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程式實現小球的下落,單擊窗體小球下落,小球接觸到地面時返回頂部
3樓：匿名使用者
你看看這個可以吧！看附件好了。
4樓：匿名使用者
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
用c語言程式設計：乙個球從x公尺高度自由落下，每次落地後**回原高度的一半；再落下，求在第幾次之後**高
5樓：回憶在上輩子
這個x是需要輸入的吧
可以進入乙個迴圈
迴圈一次x/=2只到x小於0.1（是否要計算專等於0.1的情況屬呢，話說c語言浮點數比較好像。。。。）當然需要另乙個變數用來對x彈回的高度做累加的最後就能得到結果了
如果**不想自己寫的話
支付寶2元可以代勞
vb編寫程式，利用Sub過程實現將任意十進位制數n分別轉換成2進製 8進製和16進製制數。要求
private sub command1 click a cint text1.text s dec2n a,2,s print a s 2 dec2n a,8,s print a s 8 dec2n a,16,s print a s 16 end sub sub dec2n byval a,r,s...
用matlab編寫程式實現如下條件
你可以用2個for迴圈，第乙個是從i n第二個是1 i.當你的起點i 1的時候第二個迴圈相當於沒有執行。就可以了。如有疑問再追加吧 如何用matlab編寫如下程式 matlab 程式的檔案 是以.m檔案的形式呈現的。將matlab 編寫進.m檔案內然後執行即可。例子 建立乙個 helloworld....
vb編寫程式利用隨機函式rnd生成
n 10 int 90 rnd st st n forj 2 to n n1 n1 1 exit for text1.text st text2.text n n1 private sub mand1 click dim i as integer,j as integer,n as integer,...