vb 四數比大小 急需!!

最近有個作業

需要判斷上下左右的大小

所以需要四個數字比大小並取出最小的

然後做移動

我想請問有沒有大大可以寫出4數比大小(包含等於)

請VB高手給我解答^^ 感謝~!

已更新項目:

是VB 06的

1 個解答

評分
  • 天使
    Lv 4
    1 0 年前
    最佳解答

    只求最小值:

    Dim a#, b#, c#, d#

    Dim min#

    a = 3 '實際數值請自行修改

    b = 5 '實際數值請自行修改

    c = 4 '實際數值請自行修改

    d = 7 '實際數值請自行修改

    min = a '假定a為最小值

    If b < min Then min = b

    If c < min Then min = c

    If d < min Then min = d

    把a~d存入一陣列並由小到大排序:

    Dim a#, b#, c#, d#

    Dim num#(3), tmp#

    a = 3 '實際數值請自行修改

    b = 5 '實際數值請自行修改

    c = 4 '實際數值請自行修改

    d = 7 '實際數值請自行修改

    num(0) = a

    num(1) = b

    num(2) = c

    num(3) = d

    Dim i%, j%

    For i = 0 To 3

    For j = i + 1 To 4

    If num(i) > num(j) Then

    tmp = num(i)

    num(i) = num(j)

    num(j) = tmp

    End If

    Next j

    Next i

    參考資料: 自己
還有問題?馬上發問,尋求解答。