VB题将用户输入的3个数字按照从小到大或从大到小的顺序排列,排列方式可由用户设置

如题所述

Private Sub Option1_Click()
  Frame2.Caption = "升序排列"
  Dim a(1 To 3) As Single
  a(1) = Val(Text1): a(2) = Val(Text2): a(3) = Val(Text3)
  Call sort(a)
  Label4.Caption = a(1): Label5.Caption = a(2): Label6.Caption = a(3)
End Sub

Private Sub Option2_Click()
  Frame2.Caption = "降序排列"
  Dim a(1 To 3) As Single
  a(1) = Val(Text1): a(2) = Val(Text2): a(3) = Val(Text3)
  Call sort(a)
  Label4.Caption = a(3): Label5.Caption = a(2): Label6.Caption = a(1)
End Sub

Private Sub sort(a() As Single)
  Dim i As Integer
  For i = 1 To 2
    For j = i + 1 To 3
      If a(j) < a(i) Then
        t = a(i)
        a(i) = a(j)
        a(j) = t
      End If
    Next j
  Next i
End Sub

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/fm2qpvvmv2fsfsf8477.html