在vb中编程，

小闲1 发布于 2013-12-21 10:14， 345 次点击

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

2 回复

vbvcr512013-12-21 15:03

错在 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 编辑 ]

a1210fei2013-12-23 20:20

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