VB找最大值

時間 2022-03-12 01:30:25

1樓:匿名使用者

用物件陣列要簡單多了;建議你以後在此類問題上;有多個物件陣列就用陣列!

private sub command1_click()dim max as single

max = val(text1(0).text)for i = 0 to 9

if max <= val(text1(i).text) then max = val(text1(i).text)

next

msgbox max

end sub

2樓:匿名使用者

private sub command1_click()

dim a as double

a = val(text1)

if val(text2) > a then a = val(text2)

if val(text3) > a then a = val(text3)

if val(text4) > a then a = val(text4)

if val(text5) > a then a = val(text5)

if val(text6) > a then a = val(text6)

if val(text7) > a then a = val(text7)

if val(text8) > a then a = val(text8)

if val(text9) > a then a = val(text9)

if val(text10) > a then a = val(text10)

msgbox a

end sub

用vb程式設計任意輸入數輸出其中最大值

桖卉 private sub command1 click a val inputbox 請輸入第一個數 b val inputbox 請輸入第二個數 print 你輸入的數分別是 a 和 bprint 其中較大數是 if a b then print a else print b end if e...

求a 4 a 最大值,求a 2a 4 a 最大值

令4 a t t 0 則a 4 t 原式 6 t 8 t 想要得到原式的最大值,則需要求得 t 8 t 的最小值在t大於0時,最小值為4根號2,原式最大值為6 4根號2t小於0時,最小值為負無窮,無最大值 求a 2a 4 a 最大值 解 y a 2a 4 a a 2a a 4 令dy da 1 2 ...

函式最大值最小值問題 20,求函式最大值最小值

1.函式y x 3為偶函式 根據 x 3 x 3 關於x 0對稱,當x 0時,y x 3,單調遞增,所以函式在 負無窮,0 單調遞減,當x 1,y x 3能取得最小值1 2.最大值與最小值相等,說明y f x 影象為一平行於x軸的直線 根據導數的幾何意義 函式上某點切線的斜率 可知f x 0 y f...