[.NET] 連續輸入
請問一下大家!
問題是這樣的，讓使用者連續輸入數值，直到輸入-1為止，
然後再把所有輸入數值的最大及最小值顯示出來。
我目前的程式是用主控台
Module Module1
Sub Main()
Dim data, x(), min, max As Long
Dim a As Long = 0
Do
Console.Write("請輸入數值,直到輸入-1便會停止:")
data = Console.ReadLine()
If data = "-1" Then Exit Do
ReDim Preserve x(a)
x(a) = data
a = a + 1
For Each a In x
min = x(0)
max = x(0)
If x(a) < min Then min = x(a)
If x(a) > max Then max = x(a)
Next
因為輸入了這個，跑起來就會發生錯誤
"請確定清單索引的最大值必須小於清單的大小"
Loop
Console.WriteLine("最大值" & max)
Console.WriteLine("最小值" & min)
Console.ReadLine()
End Sub
End Module
麻煩了>"<
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 58.114.248.10
→
12/10 22:07, , 1F
12/10 22:07, 1F
→
12/10 22:07, , 2F
12/10 22:07, 2F
→
12/10 22:08, , 3F
12/10 22:08, 3F
推
12/15 20:49, , 4F
12/15 20:49, 4F