有關VB6 for next語句的問題急急急急急急急急急急好的加分

2021-08-27 20:07:51 字數 1122 閱讀 5370

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 ...