1樓：常山大寶
下面是command1單擊事件**。。
private sub command1_click()on error goto err
dim a as integer
a = me.text1
me.label4.caption = 0for i = 1 to text2
me.label4.caption = me.label4.caption + a + a / 2
a = a / 2
next
me.label6.caption = aexit sub
err:
msgbox err.descriptionend sub
2樓：匿名使用者
過程分析：
1、落地-彈起是乙個週期。
2、落地前高度是該週期的初始引數h，運動距離是s = 1.5h，s是該週期的運動結果。
3、h是變數，需要迭代替換，s則需要累加。
程式實現如下：
private sub command1_click()dim h as double
dim s as double
dim n as integer
'初始化變數
h = 0
n = 0
s = 0
'使用文字前做合法性判斷
if isnumeric(text1.text) then h = text1.text
if isnumeric(text2.text) and cstr(cint(text2.text)) = text2.
text then n = cint(text2.text)
if h > 0 and n > 0 thendim i as integer
for i = 1 to n
s = s + 1.5 * h
h = h / 2
next
label4.caption = s
label6.caption = h
end if
end sub
3樓：匿名使用者
先列好數學公式，再把公式轉換成**即可，關鍵在公式
VB中Exit語句的作用是什麼,VB中的exitdo怎麼理解
退出 跳出 乙個程式或方法，大多用於錯誤處理例如exit for 退出for迴圈 exit do 退出do迴圈 exit sub 退出子程式 exit function 退出函式 要，這是個規則，否則程式報錯 exit for只能說在迴圈的特殊情況，其他時還是要迴圈的.vb 中的exit do 怎麼...
有關VB程式設計的問題，什麼是VB程式設計
用7個文字框 設定為控制項陣列，即連續複製乙個文字框，跳出提示框點是 輸入7個成績。private sub command1 click dim a 7 as single,i as integer,max as single,min as single,s as single,sum as sin...
VB有關image控制項的問題
在form.load裡面 下一張.click裡面 上一張.click裡面 dim tu as integer private sub command1 click 上一張if tu 1 then tu tu 1 image1.picture loadpicture n tu private sub ...