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

2025-03-24 04:09:34
推荐回答(3个)
回答(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 aif aif aif bif bif cprint a,b,c,d

回答(2):

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

回答(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
athen
m=a:a=b:b=m
if
athen
m=a:a=c:c=m
if
athen
m=a:a=d:d=m
if
bthen
m=b:b=c:c=m
if
bthen
m=b:b=d:d=m
if
cthen
m=c:c=d:d=m
print
a,b,c,d