Dim a, b, c, d
a = Val(InputBox("a="))
b = Val(InputBox("b="))
c = Val(InputBox("c="))
If a > b Then d = a: a = b: b = d
If b > c Then d = b: b = c: c = d
If a > b Then d = a: a = b: b = d
Print a; b; c
End Sub追问
来个最简单的 刚开始学 写的太牛叉老师怀疑 就是private sub commond 的那种
追答这个最简单了 不用添加控件 直接单击窗体 输入数据 得出结果
VB编程题 输入xyz三个数,按从小到大的次序显示
1. 利用InputBoxb函数输入3个数，存放到数值型变量中，然后对其进行比较。2. 对三个数进行排序，只能通过两两对比，一般可用三条单分支IF语句来实现。3 .要显示多个数据，可以用“；”逐一显示，也可利用“&”字符串连接将多个变量连接显示。解题：先在窗体上画一个按钮，代码如下：Private Sub Comma...
VB6.0三个数排序完全代码
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 & ",...
VB的:输入三个数X、Y、Z,按从小到大的顺序输出这三个数
THEN 后面直接换行！（或加冒号 : ）你的程序太乱！题目中是X、Y、Z，程序中是a、b、c，一会儿又有m、n 这样写：Private Sub Command1_Click()X = Text1.Text: Y = Text2.Text: Z = Text3.Text If X>Y Then m = X : X = Y : Y = m If X>Z Then m = X : X = Z :...
VB 三个数如何排序
Dim a(1 To 3) As Integer Dim i%, j%, d Print "原先的3个数是："For i = 1 To 3 a(i) = Val(InputBox("请输入第" & i & "个数的值："))Print a(i),Next i Print '打印完换行 Print "从大到小排序为："For i = 1 To 2 For j = 2 To 3 If a(j) > a(i)...
用VB排列列表框的数组(从小到大排列)
' 第j 个元素不大于哨兵 ' 则将哨兵(即第i 个元素)插在第j 个元素后 aryPlayer(j ＋ 1) = aryPlayer(0)Next ' 将排序后的数组添加到排序列表中 lstInsSort.Clear For i = 1 To MAXPLAYER lstInsSort.AddItem aryPlayer(i)Next End Sub “插入排序”按钮的参考代码如下，其中，“哨兵”...
...的整数按照从小到大的顺序放在变量abc并输出3个变量值
a:b):c;\/\/找出a,b,c中最小值赋值给min b=a+b+c-max-min;\/\/三个数的和减去最大值和最小值，结果就是中间值 a = min;\/\/最小值赋值给a c = max;\/\/最大值赋值给c System.out.println(a + "-" + b + "-" + c);\/\/输出abc } ...
...54呢 ?而且用电脑试了一试,xyz打乱次序输入这三个值,结果一直_百度...
这个是一个3数值排序程序。输入三个数，依次比较三个数的大小，以从小到大排列输出。
VB中,随机产生10个0~100之间的随机数,按从小到大的顺序排列怎么做...
可用冒泡排序法：代码如下：'不重复随机数排序'添加 Command1 Command2 Command3Option Explicit Dim i&, j&, k&, t&, Trec&, Arr&(), RndVal&, TmpVal&, S Private Sub Form_Load()Command1.Caption = "选随机数"Command2.Caption = "小到大排序"Command3.Caption = "大到小排序"'*...
vb编程:随机产生10个1–100之间的整数,并按从小到大顺序输出,谁能...
Private Sub Command1_Click()Dim a(10), i, j As Integer For i = 0 To 9 a(i) = Int(Rnd * 100) + 1 Print a(i);Next For i = 0 To 8 For j = i To 9 If a(i) > a(j) Then t = a(i)a(i) = a(j)a(j) = t End If Next Next Print For i = 0 To...
如何用vb设计一个程序,可以将输入的10个以上的数字 按大小顺序排列出来...
方法二（叫做冒泡）依次拿第一个数和第二个比，第二个和第三个比，凡是前面的数比后面的数大的话就换位子，当第九个和第十个比完后，第十个位子永远是最大的数。然后再对前9个数再做一次这个事情，那第九个数就变9个里最大的了，直到最后一次第一个数和第二个数比完（此时后面8个数已经...
