标题:求各位大神指出错误
取消只看楼主
lookjun111
Rank: 1
来 自:湖南
等 级:新手上路
帖 子:2
专家分:0
注 册:2012-11-2
结帖率:100%
已结贴  问题点数:10 回复次数:0 
求各位大神指出错误
Dim sum, a, b, c, d, f As Single
        a = TextBox2.Text
        b = TextBox3.Text
        c = TextBox4.Text
        d = TextBox5.Text
        f = TextBox6.Text
        sum = a + b + c + d + f
        If sum > 450 Then
            MsgBox("学生" + TextBox1.Text + "的成绩为优秀!!")
            Else If a >=88,b>=88,c>=88,b>=88,c>=88,d>=88,f>=88 then
            MsgBox("学生" + TextBox1.Text + "的成绩为优秀!!")
            Else If a >=95,b>=95,c>=95 and d>=80,f>=80 then
            MsgBox("学生" + TextBox1.Text + "的成绩为优秀!!")
        Else
            MsgBox("学生" + TextBox1.Text + "的成绩不是优秀!!")
        End If
这个选择结构错在哪里啊
2013-06-25 16:12



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




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 1.295932 second(s), 8 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved