VB6.0三个数排序完全代码

Question

三个数按从小到大的顺序进行排序

Answer 1

Private Sub Command1_Click()

a = Val(InputBox("请输入第一个数:"))

b = Val(InputBox("请输入第二个数:"))

c = Val(InputBox("请输入第三个数:"))

s = "输入的三个数为：" & a & ", " & b & ", " & c & vbCrLf

If a > b Then t = a: a = b: b = t

If a > c Then t = a: a = c: c = t

If b > c Then t = b: b = c: c = t

MsgBox s & "三个数从小到大为：" & a & ", " & b & ", " & c

End Sub

扩展资料：

所以往往评价一个排序算法的好坏往往可以从下边几个方面入手：

（1）时间复杂度：即从序列的初始状态到经过排序算法的变换移位等操作变到最终排序好的结果状态的过程所花费的时间度量。

（2）空间复杂度：就是从序列的初始状态经过排序移位变换的过程一直到最终的状态所花费的空间开销。

（3）使用场景：排序算法有很多，不同种类的排序算法适合不同种类的情景，可能有时候需要节省空间对时间要求没那么多，反之，有时候则是希望多考虑一些时间，对空间要求没那么高，总之一般都会必须从某一方面做出抉择。

（4）稳定性：稳定性是不管考虑时间和空间必须要考虑的问题，往往也是非常重要的影响选择的因素。 

参考资料来源：百度百科-排序算法

Answer 2

我用c的格式，然后你改一下就行了。
int max,min; /* max,min为整型变量 */
printf("Please input three numbers:");
scanf("%d,%d,%d",&a,&b,&c);
max=a;
if(max<b) max=b;
if(max<c) max=c;
printf("max=%d\n",max);
min=a;
if(min>b) min=b;
if(min>c) min=c;
printf("min=%d\n",min);
答案补充 思想是一样的啊， 编程玩的就是个思路， 语言函数就是工具，你要你有正确的思路就能在msdn上找到函数，然后根据他的格式编写就ok啦

Answer 3

将上面的正确，但有一部分去掉也可以，不影响结果
Private Sub Form_Click()
Dim a As Integer, b As Integer
Dim c As Integer, d As Integer
a = InputBox("请输入数a：")
b = InputBox("请输入数b：")
c = InputBox("请输入数c：")
If a > b Then
max= a
a = b
b =max
End If
If b > c Then
max= b
b = c
c =max
End If
Print a, b, c
End Sub

这就是冒泡法的一个简单变形^_^

Answer 4

排序一般有选择法和冒泡法两种
不过三个数就随便了
private sub form_click()
dim a as integer, b as integer, c as integer, x as integer
a = inputbox("a=")
b = inputbox("b=")
c = inputbox("c=")
if a > b then x = a : a = b : b = x
if b > c then x = b : b = c : c = x
print a , b , c
end sub本回答被网友采纳

Answer 5

Private Sub Form_Click()
Dim a As Integer, b As Integer
Dim c As Integer, d As Integer
a = InputBox("请输入一个数：")
b = InputBox("请输入一个数：")
c = InputBox("请输入一个数：")
If a > b Then
d = a
a = b
b = d
End If
If a > c Then
d = a
a = c
c = d
End If
If b > c Then
d = b
b = c
c = d
End If
Print a, b, c
End Sub