a=text1.text
if text2.text>a then
a=text2.text
else
b=text2.text
end if
if text3.text>a then
b=a
a=text3.text
text3.text=text2.text
elseif text3.text>b
b=text3.text
end if
if text1.text>text3.text then
Label1.Caption=a &">" & b & ">" & text3.text
else
Label1.Caption=a &">" & b & ">" & text1.text
end if
如果三个文本框以数组控件建立的话用循环方式代码就简洁多
输出用锁定的文本框。