Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim a, b, c, temp As Integer
a = InputBox("请输入第一个数字", "输入")
b = InputBox("请输入第二个数字", "输入")
c = InputBox("请输入第三个数字", "输入")
If a < b Then
temp = a
a = b
b = temp
End If
If a > c And c > b Then
temp = b
b = c
c = temp
ElseIf c > a Then
temp = c
c = b
b = a
a = temp
End If
Label1.Text = "从大到小排序为：" & " " & a & " " & b & " " & c
End Sub
End Class
转载于:https://www.cnblogs.com/single-elephant/p/5683674.html
相关资源：vb.net 数字时钟小程序
