作者ricetogether (糰~*)
看板Visual_Basic
標題[.NET] 連續輸入
時間Thu Dec 10 20:15:14 2009
請問一下大家!
問題是這樣的，讓使用者連續輸入數值，直到輸入-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
1F：→ MOONRAKER:新手用什麼redim -_- 定個不容易超載的陣列大小就好了 12/10 22:07
2F：→ MOONRAKER:滿的時候再提示user滿了然後執行後面的程式，這樣就好 12/10 22:07
3F：→ MOONRAKER:別提這題根本不需要用到陣列，完全可以on-fly的 12/10 22:08
4F：推 fumizuki:在同一個區塊內重複使用變數a... 12/15 20:49