作者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