vb点虐 三个数排序 vb三种排序算法

(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三种排序算法
当前URL:http://scjbc.cn/article/ddsocoi.html

其他资讯