lhs1420 发表于 2012-7-15 00:29:18

if……then不明白的地方，请教！

本帖最后由 lhs1420 于 2012-7-15 14:10 编辑

Dim $s
$s=InputBox("学生成绩","请输入学生的成绩")
If @error=1 Or $s="" Then (如果把下面一行的exit放在这行运行会出错，搞不明白！)
exit
endif
If $s>=0 And $s<=100 then
        If $s>90 then
                MsgBox(0,"学生成绩",$s&"分，优秀！")
        ElseIf $s>80 then
                MsgBox(0,"学生成绩",$s&"分，良好！")
    ElseIf $s>60 then
                MsgBox(0,"学生成绩",$s&"分，及格！")
        else
                MsgBox(0,"学生成绩",$s&"分，不及格！")
    endif
else
        MsgBox(0+16,"学生成绩","学生成绩输入错误！")
endif

还有，给楼下减分的人是不是菊花痒了？就算我发贴标题违规你扣我分就算了，还扣解答人的分，叫别人不要解答不明标题的贴，你想让这论坛都没人来你才爽吗？国家有你这种人存在还有救吗？

xlj310 发表于 2012-7-15 02:05:10

这个看帮助就可以解决。
if 表达式 then 表达式
上面就是一条完整的语句，可以不用写endif　当然如果你在下面再写个endif就会出错。因为这个if表示在一行内可以写完。
如果then后面有多个语句，可以用&连接或者使之换行输入。这时要在语句后面加个endif使if语句结束
if 表达式then
    表达式1
    表达式2
endif

ooxxgod 发表于 2012-7-15 10:20:39

3000评分 你是不是多管闲事 什么鸟事你都插一手 最近看了看都是你的动作 做好你自己

kedoo 发表于 2012-7-15 11:07:02

我是新来的，有没有最基础的教程啊？

afan 发表于 2012-7-15 22:24:39

本来所有修改后符合版规的都会重新打开，并撤销扣分、解除相关屏蔽回复及扣分。
但LZ的话太伤人且具攻击性，为你的大红字只回复一句，让不遵守论坛规章制度的人远离论坛，是论坛之大幸。

user3000，一位热心的坛友，不但长期在线帮助他人，且经常帮助维护论坛的秩序，想不到这样的人竟然遭受他人的围攻。不觉得寒心吗？
页: [1]
查看完整版本: if……then不明白的地方，请教！