close
標題:
幫幫忙我不知味啥程式寫出來最小值沒辦法顯示出來
發問:
Dim A(4) As IntegerDim B(4) As IntegerDim C(4) As IntegerPrivate Sub Form_Activate()For Each i In A Print iNextFor i = 0 To 4 If A(i) > Max Then Max = A(i) If A(i) Max Then Max = A(i) If A(i)
最佳解答:
Dim A(4) As Integer Dim B(4) As Integer Dim C(4) As Integer Dim max, min As Integer Private Sub Form_Activate() For Each i In A Print i Next For i = 0 To 4 If A(i) > max Then max = A(i) If A(i)
其他解答:
此文章來自奇摩知識+如有不便請留言告知
Sum = A(0) '應設為 Sum = 0, 不然會多加了A(0) 兩次 但這樣看, 抓最小值沒什麼問題...
文章標籤
全站熱搜
留言列表
