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) < Min Then Min = A(i) Sum = Sum + A(i)NextPrint "陣列最大值為:"; MaxPrint "陣列最小值為:"; MinPrint... 顯示更多 Dim A(4) As Integer Dim B(4) As Integer Dim C(4) 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) < Min Then Min = A(i) Sum = Sum + A(i) Next Print "陣列最大值為:"; Max Print "陣列最小值為:"; Min Print "陣列總和為:"; SumEnd Sub Private Sub Form_Load()A(0) = 77: A(1) = 66: A(2) = 99: A(3) = 44: A(4) = 55: Max = A(0): Min = A(0): Sum = A(0) End Sub

最佳解答:

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) < min Then min = A(i) Sum = Sum + A(i) Next Print "陣列最大值為:"; Str(max) Print "陣列最小值為:"; Str(min) Print "陣列總和為:"; Str(Sum) End Sub Private Sub Form_Load() A(0) = 77: A(1) = 66: A(2) = 99: A(3) = 44: A(4) = 55: max = A(0): min = A(0): Sum = A(0) End Sub

其他解答:

aa.jpg

 

此文章來自奇摩知識+如有不便請留言告知

Sum = A(0) '應設為 Sum = 0, 不然會多加了A(0) 兩次 但這樣看, 抓最小值沒什麼問題...
arrow
arrow
    文章標籤
    更多 二元一次方程 最大值 程式 文章
    全站熱搜

    hzb53jl55v 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄