作者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
→ yinjing:既然一定會有 -1...... 那一開始兩個都設 -1 如何? 11/04 12:53
→ yinjing:沒事,我誤會了 = =" 11/04 12:55
※ 編輯: fjf1980 來自: 218.168.209.133 (11/04 13:09)
→ MOONRAKER:為何不在第一回合設 max = min = a 11/04 13:57
→ fjf1980:剛才有高手指點了, Do loop外面先輸入一次就可以了。^^ 11/04 13:58