判斷尺寸編程

Dim a！，b！c！，w！

a=Val(Text1)

b=Val(文本2)

c=Val(文本3)

如果a & ltb那麽

w=a

a=b

b=w

如果…就會結束

如果a & lt那麽c

w=a

a=c

c=w

如果…就會結束

如果b & lt那麽c

w=b

b=c

c=w

如果…就會結束

標簽4。Caption= "從最大到最小:" &；Str(a)和ampStr(b)和ampStr(c)

末端接頭

完全正確！