（VB小编程）输入三个数，按照从大到小的顺序排序输出

Private Sub Form_Load()

成都创新互联公司10多年成都企业网站定制服务;为您提供网站建设,网站制作,网页设计及高端网站定制服务,成都企业网站定制及推广,对发电机租赁等多个领域拥有丰富设计经验的网站建设公司。

Dim x As Integer, y As Integer, z As Integer

Dim diyige As Integer

Dim dierge As String, disange As String, disige As String

diyige = InputBox("请输入第一个数据:", "数据输入窗口")

dierge = InputBox("请输入第二个数据", "数据输入窗口")

disange = InputBox("请输入第三个数据", "数据输入窗口")

x = Val(diyige)

y = Val(dierge)

z = Val(disange)

If x y And y z Then

Print z, y, x

ElseIf y z And z x Then

Print x, z, y

ElseIf z x And x y Then

Print y, x, z

End If

Print "你输入的数据按从小到大的顺序是:"

End Sub

VB编程题 输入xyz三个数,按从小到大的次序显示

源程序如下：

1. 利用InputBoxb函数输入3个数，存放到数值型变量中，然后对其进行比较。

2. 对三个数进行排序，只能通过两两对比，一般可用三条单分支IF语句来实现。

3 .要显示多个数据，可以用“；”逐一显示，也可利用“”字符串连接将多个变量连接显示。

解题：

先在窗体上画一个按钮，代码如下：

Private Sub Command1_Click()

Dim x!, y!, z!

x = InputBox("input x")

y = InputBox("input y")

z = InputBox("input z")

Print " 排序前："; x; "  "; y; "  "; z

If x y Then t = x: x = y: y = t

If x z Then t = x: x = z: z = t

If y z Then t = y: y = z: z = t

Print " 排序后："; x; "  "; y; "  "; z

End Sub

运行程序效果图如下：

扩展资料：

其他实现方法：

Private Sub Command1_Click()

Dim tmp, i, j As Integer '定变量

Dim a(2) As Integer '定数组

a(0) = x  

a(1) = y

a(2) = z  'xyz三个数赋值给数组，实际调试中用实际数字代替

For i = 0 To 1

For j = 1 To 2

If a(i)  a(j) Then

tmp = a(i)

a(i) = a(j)

a(j) = tmp

End If

Next j

Next i  '循环由小到大排序，估计这是考点

Print a(0)

Print a(1)

Print a(2) ，由小到大逐一打印

用VB写一下三个数大小排序，谢谢大神！

Dim a As Double

Dim b As Double

Dim c As Double

Dim z As Double

a = Val(Text1.Text)

b = Val(Text2.Text)

c = Val(Text3.Text)

If a  b Then

z = a

a = b

b = z

End If

If b  c Then

z = b

b = c

c = z

End If

If a  b Then

z = a

a = b

b = z

End If

执行后，a最小，c最大，b在中间

vb点虐 的随机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)

a(j) = temp

flag = false

end if

next j

if flag then Exit For

next i

text4.text=a(0):text5.text=a(1):text6.text=a(2)

分享标题：vb点虐 三个数排序 vb三种排序算法
当前网址：http://chengdu.cdxwcx.cn/article/ddsocoi.html