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) Then
d = a(i)
a(i) = a(j)
a(j) = d
End If
Next j
Next i
For i = 1 To 3
Print a(i),
Next i
End Sub
如果是从小到大排序则把“If a(j) > a(i) Then”改成“If a(j) < a(i) Then”即可！
如果想用VB的过程则为：
Private Sub PaiXu(a() As Integer) '小到大
Dim U%, L%, d%
U = UBound(a): L = LBound(a) '数组的上下界
Dim i%, j%
For i = L To U - 1
For j = L + 1 To U
If a(j) < a(i) Then
d = a(i)
a(i) = a(j)
a(j) = d
End If
Next
Next
For i = L To U
Print a(i),
Next
End Sub
很简单的
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任意输入3个整数,按照由小到大排序输出。
用户的这一行 If a > b > c Then是错误的，任何一门语言都是按照运算符优先级从左至右依次计算得出结果的，显然两个>运算符优先级是相同的，所以从左至右依次算。可以参考以下代码：Dim a As Single, b As Single, c As Single a = Text1.Text b = Text2.Text c = Text3.Text '无...
VB编程题:从键盘输入三个数,要求按从小到大的顺序输出到窗体上_百度...
可以采取两种方法：'方法一，不是用数组，简单灵活 Private Sub Command1_Click()Dim a As Single, b As Single, c As Single, tmp As Single a = Val(InputBox("请输入第 1 个数！", , 1))b = Val(InputBox("请输入第 2 个数！", , 2))c = Val(InputBox("请输入第 3 个数！
vb怎么将三个数排序并用文本框输出中间的一个数?
你首先找出这三个数据中最大的，然后找到最小的，中间的那个就是排除掉最大最小后，剩余的就是了。
VB三个数的排序
Command1_Click()x = InputBox("xxx")y = InputBox("yyy")z = InputBox("zzz")If x < y Then t = y y = x x = t End If If x < z Then t = z z = x x = t End If If y < z Then t = z z = y y = t End If Print "排序后"; x; y; z End Sub ...
VB中给三个数排序的具体程序
1、启动VB6.0，新建一个标准exe工程。2、在窗体上绘制一个命令按钮，名称为Command1。3、双击命令按钮进入代码窗口。4、编写命令按钮的单击事件。定义一个一维数组A有10个元素（1-10），随机产生一批两位数的随机数，有序地装入A（i）中，输出A(i)，排序完成时方便观察比较。5、编写程序中核心的...
VB中对3个数字进行排列
if val(text2.text)>val(text3.text) then p=text2.text text2.text=text3.text text3.text=p end if label1.caption="text1.text"&"<"&"text2.text"&"<"&"text3.text"就是冒泡排序思想，不过着就三个数,用不着太麻烦的思想..我给了答案.如果你想知道确切的冒泡排序就给我留言吧....
VB编程题 输入xyz三个数,按从小到大的次序显示
源程序如下：1. 利用InputBoxb函数输入3个数，存放到数值型变量中，然后对其进行比较。2. 对三个数进行排序，只能通过两两对比，一般可用三条单分支IF语句来实现。3 .要显示多个数据，可以用“；”逐一显示，也可利用“&”字符串连接将多个变量连接显示。解题：先在窗体上画一个按钮，代码如下：Priva...
vb任意输入3个整数,按照由小到大排序输出。
Private Sub Command1_Click()Dim a As Single, b As Single, c As Single,t as single a = val(Text1.Text)b = Teval(xt2.Text)c = val(Text3.Text)If a > b Then t=b:b=a:a=t If a > c Then t=c:c=a:a=t If b > c Then t=c:c=b:b=t Text1.Text = ...
vb.net的随机3个数字,然后排序一下
给你一个最简单的冒泡排序代码：将三个数放到一个数组中。a(0)=val(text1.text):a(1)=val(text2.text):a(2)=val(text3.text)dim flag as Boolean,temp as Integer for i = 0 to 2 flag = true for j = 2 to 1 if a(j)>a(j-1) then temp = a(j-1)a(j-1) = a(j...
