VB 编程 编写程序计算：输入三个数A,B,C按从小到大输出

Question

如题所述

Answer 1

自己添加一个command1控件，代码如下：
private
sub
command1_click()
dim
a%,
b%,
c%,
t%
a
=
inputbox("输入第一个值：")
b
=
inputbox("输入第二个值：")
c
=
inputbox("输入第三个值：")
if
a
>
b
then
t
=
a:
a
=
b:
b
=
t
end
if
if
b
>
c
then
t
=
b:
b
=
c:
c
=
t
end
if
if
a
>
c
then
t
=
a:
a
=
c:
c
=
t
end
if
print
a;
"<";
b;
"<";
c
end
sub