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
源程序如下：
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) ，由小到大逐一打印
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在中间
给你一个最简单的冒泡排序代码：
将三个数放到一个数组中。
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)