Question

利用inputbox输入三个数（x、y、z），使它们从大到小显示

用VB语言做、、不好意思没说清楚

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
tm: string;
xv, yv, zv: Integer;
Value3: array[0..2] of Integer;
i, tmv: Integer;
Ok: boolean;
begin
tm := InputBox('等待输入', '请输入三个数值：', 'x=1000y=200z=30');
xv := AnsiPos('x=', tm) + 2;
yv := AnsiPos('y=', tm) + 2;
zv := AnsiPos('z=', tm) + 2;
Value3[0] := StrToIntDef(copy(tm, xv, yv - 2 - xv), 0);
Value3[1] := StrToIntDef(copy(tm, yv, zv - 2 - yv), 0);
Value3[2] := StrToIntDef(copy(tm, zv, 12), 0);
Ok := False;
while Not Ok do
begin
Ok := True;
for I := 0 to 1 do
begin
if Value3[i] > Value3[i + 1] then
begin
tmv := Value3[i];
Value3[i] := Value3[i + 1];
Value3[i + 1] := tmv;
Ok := False;
end;
end;
end;
ShowMessage(IntToStr(Value3[0]) + ',' +IntToStr(Value3[1]) + ',' +IntToStr(Value3[2]));
end;

Answer 2

直接用
a=inputbox(） ’()内是格式，如（”请输入第一个数字”，”输入框”，1）
接下来同样的b，c就行了。

Answer 3

dim max,min,mid
x=inputbox("输入X值：")
y=inputbox("输入Y值：")
z=inputbox("输入Z值：")
max=x
min=x
mid=x
if y>max then max=y
if z>max then max=z
if y<min then min=y
if z<min then min=z
if y>min and y<max then mid=y
if z>min and z<max then mid=z
print max,mid,min