vb.net 调用大于等于写法，请高手指导，万分感激！-CSDN论坛

⋅https如何跳转到另外一个主机的http二级域名上 ⋅vb.net写的一个小站，有个单选项，相点击扩点击范围 ⋅vb.net 调用大于等于写法，请高手指导，万分感激！ 更多帖子 关注私信空间博客 华北治安军 本版专家分：0 结帖率 33.33%: vb.net 页面中我调用标签 <%=session("分数")%>显示以下数值；
session("分数")=formatnumber((session("1")+session("2")+session("3")+session("4")+session("5")+session("6")+session("7"))/7,2)
   以上分值计算并调用显示正常，但是正常调用显示外，我想在另外单独格外在用标签调用个以上分数的提示显示信息。提示是按分数限制提示如下：

     以上我调用显示的总数值，当其总分小于2.0时显示；单独调用提示，”不及格“；不用显示分数。
    当总分等于2.0 单独调用提示，”刚及格“ 不用显示分数。
    当总分大于2.0分小于等于2.4；单独调用提示，”优秀“不用显示分数。
    当总分大于等于2.5以上；单独调用提示，”很优秀”不用显示分数。

       我是新手，希望哪个高手帮写下以上代码，我可以正确调用显示出来。万分感激！

0 2019-03-21 22:02:31

回复数 8 只看楼主引用举报楼主

⋅https如何跳转到另外一个主机的http二级域名上 ⋅vb.net写的一个小站，有个单选项，相点击扩点击范围 ⋅vb.net 调用大于等于写法，请高手指导，万分感激！ 更多帖子 关注私信空间博客 华北治安军 本版专家分：0: 引用 1 楼 caozhy的回复:
if else或者iif函数都可以。

可以细致些，帮写出来吗，感谢，VB.net我基本一点不懂呀

0 2019-03-22 09:22:05

只看TA 引用举报 #2 得分 0

⋅此用户还没有发表过任何帖子 关注私信空间博客 qq_36944267 本版专家分：0: if session=2.0
begin
     msgbox("刚及格")
end
else if session>2.0 and session<=2.4
begin
     msgbox("优秀")
end
else if session>=2.5
begin
     msgbox("很优秀")
end
'msgbox("XXX")  弹框提示

0 2019-03-23 13:08:19

只看TA 引用举报 #6    得分 0

⋅此用户还没有发表过任何帖子 关注私信空间博客 qq_36944267 本版专家分：0: if session=2.0 Then
     msgbox("刚及格")
end
if session>2.0 and session<=2.4 Then
     msgbox("优秀")
end
if session>=2.5 Then
     msgbox("很优秀")
end
'msgbox("XXX")  弹框提示

1 2019-03-23 13:11:04

只看TA 引用举报 #7    得分 0

⋅用VB.NET到底能不能写安卓应用。 ⋅想做一个漂亮的菜单列表，各位有什么实现方法 ⋅童声语音库 更多帖子 关注私信空间博客 轻鸿万里 本版专家分：2579: if session<2.0 Then
    msgbox("不及格")
else if session=2.0 Then
     msgbox("刚及格")
else if session>2.0 and session<=2.4 Then
     msgbox("优秀")

else if session>=2.5 Then
     msgbox("很优秀")
end if

0 2019-06-10 22:58:20

只看TA 引用举报 #8    得分 0

⋅DataForm绑定后是灰的。 ⋅如何给资源字典内的控件定义事件 ⋅datagrid列操作 更多帖子 关注私信空间博客 jhonsonzhang 本版专家分：1203: <%
                         Dim RoleS = New String() {"刚及格"， "优秀"， "很优秀"}
                              Dim JugNum = CDbl(Session("分数"))
                              Dim lbCaption = ""
                              Select Case JugNum
                                  Case = 2
                                      lbCaption = RoleS(0)
                                  Case 2 To 2.4
                                      lbCaption = RoleS(1)
                                  Case >= 20.5
                                      lbCaption = RoleS(2)
                                  Case Else
                                      lbCaption = Session("分数")
                              End Select
                              Response.Write(lbCaption)
                              %>

========上面代码复制，替换掉<%=session("分数")%> ;就是楼主需要的效果。

0 2019-06-16 00:17:56

只看TA 引用举报 #9    得分 0