| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 新手求学 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=189470) |
| -- 作者：redpin -- 发布时间：2023/12/4 13:15:00 -- 新手求学 设定一个数，如180，比较大小返回不同的值，如： 小于20，返回1 小于40，返回2 小于60，返回3 ......... 小于180，返回9 代码怎么写？
|
| -- 作者：有点蓝 -- 发布时间：2023/12/4 13:39:00 -- 参考：http://www.foxtable.com/webhelp/topics/0223.htm Dim Mark As Integer = 180 If Mark >= 180 Then OutPut.Show(9) ElseIf Mark >= 160 Then OutPut.Show(8) …… ElseIf Mark >= 40 Then
OutPut.Show(2) Else OutPut.Show(1) End If |
| -- 作者：redpin -- 发布时间：2023/12/4 15:26:00 -- 谢谢版主！按您的代码得到这样的提示：语法错误，<"Mark">运算符猴缺少操作数。不解，恳求赐教，谢谢！ |
| -- 作者：redpin -- 发布时间：2023/12/4 16:31:00 -- 语法错误：<"if Mark">运算符后缺少操作数 |
| -- 作者：redpin -- 发布时间：2023/12/4 16:37:00 -- 如180数值来源于列，是否这样引用（因为在易表里是这样的） Dim Mark As Integer = [KR1] If Mark >= 180 Then OutPut.Show(9) ElseIf Mark >= 160 Then OutPut.Show(8) …… ElseIf Mark >= 40 Then OutPut.Show(2) Else OutPut.Show(1) End If |
| -- 作者：有点蓝 -- 发布时间：2023/12/4 16:53:00 -- 省略号的意思是中间省略了很多代码，自己参考补充完整 |
| -- 作者：redpin -- 发布时间：2023/12/4 17:46:00 -- 补充了 Dim Mark As Integer = 180 If Mark >= 180 Then OutPut.Show(9) ElseIf Mark >= 160 Then OutPut.Show(8) ElseIf Mark >= 140 Then OutPut.Show(7) ElseIf Mark >= 120 Then OutPut.Show(6) ElseIf Mark >= 100 Then OutPut.Show(5) ElseIf Mark >= 80 Then OutPut.Show(4) ElseIf Mark >= 60 Then OutPut.Show(3) ElseIf Mark >= 40 Then OutPut.Show(2) Else OutPut.Show(1) End If |
| -- 作者：有点蓝 -- 发布时间：2023/12/4 20:10:00 -- 测试有什么问题呢？ |