這是一個比大小的程式.但在最後印出時我想知道最大數及最小數是第幾次數入的數字.可是我不知道要如何定義max及min的i的不同
Dim a(), g
g = 10
ReDim a(g)
For i = 1 To g
a(i) = Val(InputBox("請輸入第" & i &"數字"))
Next i
Max = a(1)
For i = 2 To g
If Max ＜ a(i) Then Max = a(i)
Next i
Min = a(1)
For i = 2 To g
If Min ＞ a(i) Then Min = a(i)
Next i
Print "最小數字為" & Min & "最大數字為" & Max
Dim a(), g
g = 10
ReDim a(g)
For i = 1 To g
a(i) = Val(InputBox("請輸入第" & i &"數字"))
Next i
Max = a(1)
For i = 2 To g
If Max ＜ a(i) Then Max = a(i)
Next i
Min = a(1)
For i = 2 To g
If Min ＞ a(i) Then Min = a(i)
Next i
Print "最小數字為" & Min & "最大數字為" & Max
文章標籤
全站熱搜
建議 Dim a(), g g = 10 ReDim a(g) For i = 1 To g a(i) = Val(InputBox("請輸入第" & i &"數字")) Next i Max = a(1) For i = 2 To g If Max ＜ a(i) Then Max = a(i):MaxNum=i '''''' Next i Min = a(1) For i = 2 To g If Min ＞ a(i) Then Min = a(i): MinNum=i '''' Next i Print "最小數字為" & Min & "最大數字為" & Max Print "最小數字為第" & MinNum & "次輸入,最大數字為第" & MaxNum & "次輸入"
再加一個變數來記錄哪一個是最大值,最小值也是同樣做法 Dim MaxElement As Integer MaxElement = 1 '假設第一個是最大值 Max = a(1) For i = 2 To g If Max ＜ a(i) Then Max = a(i) MaxElement = i '第i個為最大值 End If Next i