解 VB 编程 ： 比较3个数的大小 切记 是要输出 排序 类 跪求啊！！！

例如这三个数为abc,最大数为maxx,最小数为minx,剩下的中间数为x
Private Sub Command1_Click()
a = 8: b = 16: c = 12
maxx = IIf(a > b, a, b)
maxx = IIf(maxx > c, maxx, c) '最大数
minx = IIf(a < b, a, b)
minx = IIf(minx < c, minx, c) '最小数
x = a + b + c - maxx - minx '剩下的中间数
Print minx, x, maxx '从小到大,你自己决定排列方式
End Sub
其实如果不是非要代码,最简单的就是控件法,比如利用列表框,一步到位,万能无敌

dim a,b,c,t a=数据1 b=数据2 c=数据3 't是临时变量 if a>b then t=a:a=b:b=t '如果a比b大就把ab的数值互换，使ac then t=a:a=c:c=t '如果a比c大就把ac互换，这样之后a就变最小了 if b>c then t=b:b=c:c=t '这样b就变第二小了 print a,b,c '这个是从小到大，把>全改<就是从大到小 '这个方法叫排比法，还有一个叫冒泡法，如果数据大的话可以用数组和for循环来实现，你可以去网上查