在vb中编程， - VB6论坛 - 编程论坛档案馆

编程论坛 → 开发语言 → 『 VB6论坛』 → 在vb中编程，

标题：在vb中编程，

只看楼主

小闲1

等　级：新手上路
帖　子：3
专家分：0
注　册：2013-12-21
结帖率：50%

楼主

已结贴√ 问题点数：20 回复次数：2

在vb中编程，

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

2013-12-21 10:14

vbvcr51

等　级：贵宾
威　望：18
帖　子：364
专家分：1724
注　册：2013-11-3

第 2 楼

得分:10

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

2013-12-21 15:03

a1210fei

等　级：论坛游民
帖　子：6
专家分：10
注　册：2013-12-19

第 3 楼

得分:10

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

2013-12-23 20:20

参与讨论请移步原网站贴子：https://bbs.bccn.net/thread-425478-1-1.html