dim a as integer
    if    a>=60 then
          text1.text="及格"
    else a<60
           text2.text="不及格"
    end if
错在哪？

错在 else a<60，去掉 a<60
或者你可以这样写
dim a as integer
 select case a
  case >=60
   text1="及格"
  case <60
   text2="不及格"
  case else
end select

[ 本帖最后由 vbvcr51 于 2013-12-21 15:06 编辑 ]

dim a as integer
    if    a>=60 then
          text1.text="及格"
    elseif a<60
           text2.text="不及格"
    end if