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

如题所述

举报该文章

相关建议推荐于2016-06-26

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

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/fqf8qv287.html

其他看法

第1个回答 2009-06-13

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

第2个回答 2019-06-12

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

相似回答

大家正在搜