a=thisform.text1.Value
b=thisform.text2.Value
c=thisform.text3.Value
IF a>b>c
  y=b
  ELSE
  IF a>c>b
  y=c
  ELSE
  IF b>a>c
  y=a
  ELSE
  IF b>c>a
  y=c
  ELSE
  IF c>a>b
  y=a
  ELSE
  IF c>b>a
  y=b
  ENDIF
  ENDIF
  ENDIF
  ENDIF
  ENDIF
  ENDIF
  thisform.text4.Value=y
  thisform.text1.SelStart=0
  thisform.text2.SelStart=0
  thisform.text3.SelStart=0
  thisform.text1.SelLength=LEN(thisform.text1.Text)
  thisform.text2.SelLength=LEN(thisform.text2.Text)
  thisform.text3.SelLength=LEN(thisform.text3.Text)
  
  
  
老是运行不了，提示了“操作符/操作数类型不对