看板 Visual_Basic 關於我們 聯絡資訊
有一個題目: 寫一個程式讓使用者連續輸入數值資料,直到輸入-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