Question

用VB编写一个程序， 输入a、b、c三个数，要求按由大到小的顺序显示... 有谁可以帮我做一下。

1028694292@qq.com

Answer 1

Private Sub Command1_Click()
x = InputBox("输入第一个数")
y = InputBox("输入第二个数")
z = InputBox("输入第三个数")
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

Answer 2

dim a,b,c,s as integer
dim ra(1 to 3) as integer
a=text1.text
b=text2.text
c=text3.text
ra(1)=a
ra(2)=b
ra(3)=c
for i = 1 to 2
for j = 1 to 2
if ra(j) < ra(j+1) then
ra(j) = dd
ra(j) = ra(j+1)
ra(j+1) = dd
end if
next
next
text4.text = a(1) & ">" & a(2) & ">" & a(3)