Question

VB编程题：输入4个大小不同的数，将它们从大到小排序

Answer 1

dim a as single,b as single,c as single,d as single
a=val(inputbox("输入a:"))
b=val(inputbox("输入b:"))
c=val(inputbox("输入c:"))
d=val(inputbox("输入d:"))

if a<b then m=a:a=b:b=m
if a<c then m=a:a=c:c=m
if a<d then m=a:a=d:d=m
if b<c then m=b:b=c:c=m
if b<d then m=b:b=d:d=m
if c<d then m=c:c=d:d=m
print a,b,c,d

Answer 2

很简单的问题。利用数组 加循环 比较

Answer 3

dim
a
as
single,b
as
single,c
as
single,d
as
single
a=val(inputbox("输入a:"))
b=val(inputbox("输入b:"))
c=val(inputbox("输入c:"))
d=val(inputbox("输入d:"))
if
a<b
then
m=a:a=b:b=m
if
a<c
then
m=a:a=c:c=m
if
a<d
then
m=a:a=d:d=m
if
b<c
then
m=b:b=c:c=m
if
b<d
then
m=b:b=d:d=m
if
c<d
then
m=c:c=d:d=m
print
a,b,c,d