作者fjf1980 (VAIO才是NB的王道呀！)
看板Visual_Basic
标题[.NET] 请教一个比较数字的问题
时间Tue Nov 4 12:34:37 2008
有一个题目:
写一个程式让使用者连续输入数值资料，直到输入-1为止。然後把所有输入数值中
最大及最小的数值显示出来。
我先把max设定很小，min设定很大，然後比较，如下。
有没有方法可以把一开始输入的数字就设定为max及min?
或是有没有别的比较好的写法呢？ 请高手指教。
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim max As Double = -999999999999999999
Dim min As Double = 999999999999999999
Dim a As Double
Do
a = InputBox("Input below")
If a > max And a <> -1 Then
max = a
End If
If a < min And a <> -1 Then
min = a
End If
Loop Until a = -1
MsgBox("Max :" & max & vbCrLf & "Min :" & min)
End Sub
End Class
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 218.168.209.133
1F：→ yinjing:既然一定会有 -1...... 那一开始两个都设 -1 如何？ 11/04 12:53
2F：→ yinjing:没事，我误会了 = =" 11/04 12:55
※ 编辑: fjf1980 来自: 218.168.209.133 (11/04 13:09)
3F：→ MOONRAKER:为何不在第一回合设 max = min = a 11/04 13:57
4F：→ fjf1980:刚才有高手指点了， Do loop外面先输入一次就可以了。^^ 11/04 13:58