※ 引述《sshain (飛飛)》之銘言：
: 那些數字事先並不知道
: 是使用者輸入一個數字再按一下button輸入程式中
: 然後程式就會紀錄剛剛所輸入的數字
: ex：11,225,33,48,96,.......
: 然後程式的另一個欄會自動出現到目前為止最大值是什麼
: 那個顯示最大值的程式
: 請問一下要怎麼寫
: 在此先謝謝各位的回答m(_ _)m
Dim Num() As Integer, NumMax As Integer
這兩個放在表單一般宣告，可變陣列Num和記錄陣列上限的變數NumNax
在表單載入時
ReDim Num(NumMax)
(除非你有設定輸入數字的上限，就可以用固定陣列)
---
下面都放在button程序中，intMax用來找最大數字
Dim i As Integer, intMax As Integer
NumMax = NumMax+1
ReDim Preserve Num(NumMax)
Num(NumMax) = 新輸入的數字
For i = 0 To NumMax
If Num(i) >= intMax Then ineMax = Num(i)
Next i
現在intMax就是陣列中(已輸入)的最大數字了
--
┌╤═╮╤╮ ╤╭╤═╮╤ ╭═╭╤═╮╭══╮ 杜
║║ ║║║ ║║║ ║╟═╯ ╟╧═╢╰╤═╮ 姆
└╧═╯╰╧═╯╧╰ ╧╧ ╰═╧ ╧─╧═╯ 卡
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 61.216.80.122