Question

用inputbox函数输入三个任意整数,按从大到小的顺序输出.VB过程怎么设计？

Answer 1

dim a(2) as integer
dim i,t as integer
for i=0 to 2
a(i)=inputbox("请输入数据：")
next i
for i=0 to 1
for j=1 to 2
if a(i)<a(j)
t=a(i)
a(i)=a(j)
a(j)=t
end if
next j,i
for i=0 to 2
print a(i);

Answer 2

dim a(2) as integer
dim i as integer
for i=0 to 2
a(i)=inputbox("请输入任意整数"," ")
next i
for i=0 to 2
（比较大小）
next i
for 循环
输出……