飘凌大杂烩计算机科学与技术 → VB 三个数排序 求最大值 最小值 中间值
查看完整版本:VB 三个数排序 求最大值 最小值 中间值
2009/3/28 18:17:07

三个数求最值.rar

Private Sub Command1_Click()
    Dim A, B, C, Max As Integer
    A = Val(Text1.Text)
    B = Val(Text2.Text)
    C = Val(Text3.Text)
   
    'A B C 排序
    If A > B Then
        Max = A
        A = B
        B = Max
    End If
    If A > C Then
        Max = A
        A = C
        C = Max
    End If
    If B > C Then
        Max = B
        B = C
        C = Max
    End If

    Text4.Text = A
    Text5.Text = C
    Text6.Text = B

End Sub

2009/3/28 18:17:35
三个数,冒泡要两趟
第一趟最小数放在最前,要两次判断
第二趟次小数放在次前,要一次判断
Powered by BBSXP 2007 ACCESS © 1998-2025
Processed in 0.00 second(s)